;;; compiled by mycroft@hal on Tue Sep 22 05:17:24 1992 ;;; from file /src/emacs-19.0/lisp/rmailkwd.el ;;; emacs version 19.0.426. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "! \"\"B \" !!͇" [boundp rmail-label-obarray make-vector 47 0 rmail-keywords mapcar (lambda (s) (byte-code " \n\"" [intern s rmail-label-obarray] 3)) ("deleted" "answered" "filed" "forwarded" "unseen" "edited") rmail-attributes intern "deleted" rmail-deleted-label nil] 4) (fset 'rmail-add-label (make-byte-code (quote (string)) " \"" [rmail-set-label string t] 3 "\ Add LABEL to labels associated with current RMAIL message. Completion is performed over known labels when reading." (quote (byte-code "!C" [rmail-read-label "Add label"] 2)))) (fset 'rmail-kill-label (make-byte-code (quote (string)) " \"" [rmail-set-label string nil] 3 "\ Remove LABEL from labels associated with current RMAIL message. Completion is performed over known labels when reading." (quote (byte-code "!C" [rmail-read-label "Remove label"] 2)))) (byte-code "$M$M$M$M$M$M$M" [rmail-read-label make-byte-code (prompt) "  !QP ʉ$  \"+ 2 \")" [rmail-keywords rmail-parse-file-keywords completing-read prompt rmail-last-label " (default " symbol-name "): " ": " rmail-label-obarray nil result string= "" rmail-make-label t] 5 rmail-set-label (l state &optional n) " \n SI!?%!%!\n.\n dZ eZҎ !b!!??`T` `\"d#`T`Tb !Q#$!$ !# )= $\"*.+" [rmail-maybe-set-message-counters n rmail-current-message rmail-summary-vector nil rmail-attribute-p l attribute rmail-keyword-p rmail-install-keyword keyword label buffer-size t case-fold-search buffer-read-only omin omax ((byte-code " \nZ Z\" U " [narrow-to-region buffer-size omin omax n rmail-current-message rmail-display-labels] 4)) widen rmail-msgbeg forward-line 1 looking-at "[01]," bound start narrow-to-region end-of-line search-backward ",," re-search-forward ", " rmail-quote-label-name "," move state replace-match insert " " symbol-name rmail-deleted-label rmail-set-message-deleted-p] rmail-attribute-p (s) " ! A> \n)" [rmail-make-label s symbol rmail-attributes] 3 rmail-keyword-p (s) " ! A> \n)" [rmail-make-label s symbol rmail-keywords] rmail-make-label (s &optional forcep) "9 ! \"! \"" [s forcep intern downcase rmail-label-obarray intern-soft] rmail-force-make-label (s) "\n! \"" [intern downcase s rmail-label-obarray] rmail-quote-label-name (label) " \"!!" [regexp-quote symbol-name rmail-make-label label t]] 6) (fset 'rmail-previous-labeled-message (make-byte-code (quote (n labels)) " [\n\"" [rmail-next-labeled-message n labels] 3 "\ Show previous message with one of the labels LABELS. LABELS should be a comma-separated list of label names. If LABELS is empty, the last set of labels specified is used. With prefix argument N moves backward N messages with these labels." "p\nsMove to previous msg with labels: ")) (fset 'rmail-next-labeled-message (make-byte-code (quote (n labels)) " \"  !   !Q   VS WS T   \")  S+W| V| S   \"S  TU) !W \"V \"+" [string= labels "" rmail-last-multi-labels error "No labels to find have been specified previously" rmail-maybe-set-message-counters rmail-current-message ", ?\\(" mail-comma-list-regexp "\\)," regexp current lastwin widen n 0 rmail-total-messages rmail-message-labels-p 1 rmail-show-message message "No previous message with labels %s" "No following message with labels %s"] 6 "\ Show next message with one of the labels LABELS. LABELS should be a comma-separated list of label names. If LABELS is empty, the last set of labels specified is used. With prefix argument N moves forward N messages with these labels." "p\nsMove to next msg with labels: ")) (byte-code "$M$M$M" [rmail-keywords make-byte-code nil " " [rmail-keywords rmail-parse-file-keywords] 1 rmail-parse-file-keywords " b!#$` `\"eb \"B*" [widen 1 search-forward "\nLabels:" rmail-msgbeg t narrow-to-region end-of-line rmail-keywords mapcar rmail-force-make-label mail-parse-comma-list] 4 rmail-install-keyword (word) " \"  !f !f eZ dZ \nˎ b#= c` `\" AB\" A` @!ccM!. *" [rmail-make-label word t rmail-keywords keywords keyword rmail-attribute-p rmail-keyword-p buffer-size omax omin ((byte-code " \nZ Z\"" [narrow-to-region buffer-size omin omax] 4)) widen 1 nil buffer-read-only case-fold-search search-forward "\nLabels:" end-of-line delete-region setcdr symbol-name "," delete-char -1]] 6)