;ELC   
;;; compiled by jwz@thalidomide on Fri Dec 31 02:07:07 1993
;;; from file /th/jwz/emacs19/lisp/rmail/rmailkwd.el
;;; emacs version 19.9 Lucid (beta9).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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 "This file was compiled for Emacs 19."))

(byte-code "ÀÁ!¬…ÂÃÄ\"ÅÆÇÈ\"B	ÊË	\"ÀÅ!¬‚ÍÍ‡" [boundp rmail-label-obarray make-vector 47 0 rmail-keywords mapcar #[(s) "À	\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 #[(string) "À	Â\"‡" [rmail-set-label string t] 3 "\
Add LABEL to labels associated with current RMAIL message.
Completion is performed over known labels when reading." (byte-code "ÀÁ!C‡" [rmail-read-label "Add label"] 2)])
(fset 'rmail-kill-label #[(string) "À	Â\"‡" [rmail-set-label string nil] 3 "\
Remove LABEL from labels associated with current RMAIL message.
Completion is performed over known labels when reading." (byte-code "ÀÁ!C‡" [rmail-read-label "Remove label"] 2)])
(byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÇMˆÈÉMˆÊËMˆÌÍM‡" [rmail-read-label #[(prompt) "¬ƒÁ ˆÂ«ˆÅÆ!ÇQªÈP	Ê‰$‰Ì˜«ƒª‡ÍÎ\"‰)‡" [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] rmail-set-label #[(l state &optional n) "À ˆ	¬‚\n	SÄIˆÅ!‰?­ŠÈ!®„É!\n®‚\n‰…³ Ì dZÌ eZÄÍÒŽŠ~ˆÓ	!bˆÔyˆÕÖ!??­Û`TÄ`Äˆ`}ˆdÙÚÄÍ#ˆ«†`Tª„`TbˆÛÜÝ!Þ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}ˆU«ƒÅ ˆÀ‡" [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] 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] 3] rmail-make-label #[(s &optional forcep) "9«‚‡	«†Â—\"‡Ä—\"‡" [s forcep intern rmail-label-obarray intern-soft] 3] rmail-force-make-label #[(s) "À	—\n\"‡" [intern s rmail-label-obarray] 3] rmail-quote-label-name #[(label) "ÀÁÂÄ\"!!‡" [regexp-quote symbol-name rmail-make-label label t] 5]] 2)
(fset 'rmail-previous-labeled-message #[(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 #[(n labels) "Á˜«‚\n¬„ÃÄ!ˆÅ ˆ‰ÇÈ!ÉQ\nŒ~ˆÎV« W«™TÐ\n\"«fS‰ª\\ÎW«ŸÑV«™SÐ\n\"«gT‰ª])Ò!ˆÎ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 "\
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 #[nil "®‚Á ‡" [rmail-keywords rmail-parse-file-keywords] 1] 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] rmail-install-keyword #[(word) "À	Â\"Ã Æ!¬ÐÇ!¬ËÈ eZÈ dZ	\nËŽŠ~ˆÌbˆÂÍÐÑÍÂ#¬†ÍˆÑcˆ`Íˆ`|ˆAB¡ˆA‰«ŠÒ@!Ó±ˆªpÔÕ!ˆ.*‡" [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]] 2)