;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'rmail)
#@84 Obarray of labels used by Rmail.
`rmail-read-label' uses this to offer completion.
(defvar rmail-label-obarray (make-vector 47 0) (#$ . 101))
(mapc #[257 "\301
A@\"\207" [rmail-label-obarray intern] 4 "\n\n(fn S)"] rmail-attr-array)
#@73 Intern string S as a downcased symbol in `rmail-label-obarray'.

(fn S)
(defalias 'rmail-make-label #[257 "\301
\227\"\207" [rmail-label-obarray intern] 4 (#$ . 341)])
#@200 Add LABEL to labels associated with current RMAIL message.
Completes (see `rmail-read-label') over known labels when reading.
LABEL may be a symbol or string.  Only one label is allowed.

(fn LABEL)
(defalias 'rmail-add-label #[257 "\300
\301\"\207" [rmail-set-label t] 4 (#$ . 517) (byte-code "\300\301!C\207" [rmail-read-label "Add label"] 2)])
#@205 Remove LABEL from labels associated with current RMAIL message.
Completes (see `rmail-read-label') over known labels when reading.
LABEL may be a symbol or string.  Only one label is allowed.

(fn LABEL)
(defalias 'rmail-kill-label #[257 "\300
\301\"\207" [rmail-set-label nil] 4 (#$ . 871) (byte-code "\300\301!C\207" [rmail-read-label "Remove label"] 2)])
#@254 Read a label with completion, prompting with PROMPT.
Completions are chosen from `rmail-label-obarray'.  The default
is `rmail-last-label', if that is non-nil.  Updates `rmail-last-label'
according to the choice made, and returns a symbol.

(fn PROMPT)
(defalias 'rmail-read-label #[257 "\303\304=\204\305 \204\306 \211\262\203\307\310\311\312\"\"\210\313	\203+\314\315	!\316Q\202,\317P\n\303\211$\211\320\230\2039	\207\310
!\211\207" [major-mode rmail-last-label rmail-label-obarray nil rmail-summary-mode rmail-summary-exists rmail-get-keywords mapc rmail-make-label split-string ", " completing-read " (default " symbol-name "): " ": " ""] 7 (#$ . 1236)])
#@132 Set LABEL as present or absent according to STATE in message MSG.
LABEL may be a symbol or string.

(fn LABEL STATE &optional MSG)
(defalias 'rmail-set-label #[770 ";\204\n\306!\262\307\310\"\203\311\312!\210rq\210\313 \210\211\206$	\211\262\314U\203-\311\315!\210\n
S\316I\210\316G\314\211W\203R
HA@\230\203K\211\262\211T\262
\2027\266\211\203b\317
#\266\202\330\320!\321\322!\310Q\323
\321\310Q\"??\211=\204\326\324\f\203\234\203\227\325\230\204\227\321Q\202\324	\202\324\314\211\211\224\326Z]O\211G\314\225S^\316O
\325\230\203\302\211\325\230?\205\322\211\266\202\202\324\211\325\230\203\316
\266\202\202\324
\321Q\266\202#\210\266\327 \203

\330 \203\373\331 \212\332\333\"\216\334 !\210
\335!\210+\210\202
r q\210\211\335!\210*\336 \266\211	U\205
\337 )\207" [rmail-buffer rmail-current-message rmail-summary-vector rmail-attr-array rmail-keyword-header rmail-total-messages symbol-name string-search "," error "More than one label specified" rmail-maybe-set-message-counters 0 "No message" nil rmail-set-attribute rmail-get-keywords ", " regexp-quote string-match rmail-set-header "" 2 rmail-summary-exists rmail-summary-displayed selected-window make-closure #[0 "\301\300!\207" [V0 select-window] 2] rmail-pop-to-buffer rmail-summary-update-line rmail-maybe-display-summary rmail-display-labels rmail-summary-buffer] 15 (#$ . 1916)])
#@255 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.

(fn N LABELS)
(defalias 'rmail-previous-labeled-message #[514 "\300[\"\207" [rmail-next-labeled-message] 5 (#$ . 3335) "p\nsMove to previous msg with labels: "])
#@250 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.

(fn N LABELS)
(defalias 'rmail-next-labeled-message #[514 "\211\304\230\203	\262
\211\204\305\306!\210	q\210\211\307 \210\n\211\310\311!\312Q\313V\203D
W\203D
T\262\314
\315!\"\203!
\262S\262\202!\313W\203g
\316V\203g
S\262\314
\315!\"\203D
\262T\262\202D\313W\203r\305\317\"\207\313V\203}\305\320\"\207\321!\207" [rmail-last-multi-labels rmail-buffer rmail-current-message rmail-total-messages "" error "No labels to find have been specified previously" rmail-maybe-set-message-counters " \\(" mail-comma-list-regexp "\\)\\(,\\|\\'\\)" 0 string-match rmail-get-labels 1 "No previous message with labels %s" "No following message with labels %s" rmail-show-message-1] 9 (#$ . 3746) "p\nsMove to next msg with labels: "])
(provide 'rmailkwd)