;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Apr 20 21:41:21 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/rmailkwd.el ;;; emacs version 19.28.90.32. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/rmailkwd.el' was compiled for Emacs 19")) (byte-code "ÀÁ!„ ÂÃÄ\"Á BÆÇÈÉ\"B\nÊ BËÌ \" Í BÀÆ!„.ÎÆ B·" [boundp rmail-label-obarray make-vector 47 0 current-load-list rmail-keywords mapcar #[(s) "À \n\"‡" [intern s rmail-label-obarray] 3] ("deleted" "answered" "filed" "forwarded" "unseen" "edited" "resent") rmail-attributes intern "deleted" rmail-deleted-label nil] 4) #@116 Add LABEL to labels associated with current RMAIL message. Completion is performed over known labels when reading. (defalias 'rmail-add-label #[(string) "À Â\"‡" [rmail-set-label string t] 3 (#$ . 823) (list (rmail-read-label "Add label"))]) #@121 Remove LABEL from labels associated with current RMAIL message. Completion is performed over known labels when reading. (defalias 'rmail-kill-label #[(string) "À Â\"‡" [rmail-set-label string nil] 3 (#$ . 1072) (list (rmail-read-label "Remove label"))]) (defalias 'rmail-read-label #[(prompt) "„Á ˆÂ \fƒÅÆ\f!ÇQ‚ÈP ʉ$‰ ̘ƒ)\f‚0Í Î\"‰)‡" [rmail-keywords rmail-parse-file-keywords completing-read prompt rmail-last-label " (default " symbol-name "): " ": " rmail-label-obarray nil result "" rmail-make-label t] 6]) (defalias 'rmail-set-label #[(l state &optional n) "À ˆ „ \n SÄIˆÅ!‰?…%È!†%É!\n†.\n‰ …¿Ì dZÌ eZÄÍÒŽŠ~ˆÓ !bˆÔyˆÕÖ!??…½`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 "À ZÀ \nZ}ˆ \fUƒÅ ˆÀ‡" [buffer-size omin omax n rmail-current-message rmail-display-labels] 3)) rmail-msgbeg 1 looking-at "[01]," bound start search-backward ",," re-search-forward ", " rmail-quote-label-name "," move state replace-match " " symbol-name rmail-deleted-label rmail-set-message-deleted-p] 5]) (defalias 'rmail-attribute-p #[(s) "À !‰ A>…\f\n)‡" [rmail-make-label s symbol rmail-attributes] 3]) (defalias 'rmail-keyword-p #[(s) "À !‰à A>… \n)‡" [rmail-make-label s symbol rmail-keywords] 3]) (defalias 'rmail-make-label #[(s &optional forcep) "9ƒ‡ ƒÂ— \"‡Ä— \"‡" [s forcep intern rmail-label-obarray intern-soft] 3]) (defalias 'rmail-force-make-label #[(s) "À —\n\"‡" [intern s rmail-label-obarray] 3]) (defalias 'rmail-quote-label-name #[(label) "ÀÁ Ä\"!!‡" [regexp-quote symbol-name rmail-make-label label t] 5]) #@240 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. (defalias 'rmail-previous-labeled-message #[(n labels) "À [\n\"‡" [rmail-next-labeled-message n labels] 3 (#$ . 2935) "p\nsMove to previous msg with labels: "]) #@235 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. (defalias 'rmail-next-labeled-message #[(n labels) "Á˜ƒ\n„ÃÄ!ˆÅ ˆ‰ÇÈ!ÉQ\n \fŒ~ˆ ÎVƒQ WƒQ T Ð \n\"ƒ' \f S‰ ‚) ÎWƒz ÑVƒz S Ð \n\"ƒQ \f T‰ ‚S)Ò\f!ˆ ÎWƒŒÓÔ\"ˆ ÎV…—ÓÕ\"+‡" [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 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 (#$ . 3342) "p\nsMove to next msg with labels: "]) (defalias 'rmail-keywords #[nil "†Á ‡" [rmail-keywords rmail-parse-file-keywords] 1]) (defalias 'rmail-parse-file-keywords #[nil "ŒŠ~ˆÀbˆÁÂÃÀ!Ä#…\"`ň`}ˆebˆÆÇÈÉ \"B‰*‡" [1 search-forward "\nLabels:" rmail-msgbeg t nil rmail-keywords mapcar rmail-force-make-label mail-parse-comma-list] 4]) (defalias 'rmail-install-keyword #[(word) "À Â\"à Æ !„bÇ !„bÈ eZÈ dZ \nËŽŠ~ˆÌbˆÂÍÐÑÍÂ#„<͈Ñcˆ`͈`|ˆ\f \fAB¡ˆ\fA‰ƒ\\Ò\f@!Ó±ˆ‚JÔÕ!ˆ. *‡" [rmail-make-label word t rmail-keywords keywords keyword rmail-attribute-p rmail-keyword-p buffer-size omax omin ((byte-code "À ZÀ \nZ}‡" [buffer-size omin omax] 3)) 1 nil buffer-read-only case-fold-search search-forward "\nLabels:" symbol-name "," delete-char -1] 4])