;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:44 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/rmailkwd.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(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) (#$ . 573))
(mapc #[(s) "\303\211A@)\n\"\207" [s x rmail-label-obarray intern] 4] rmail-attr-array)
#@65 Intern string S as a downcased symbol in `rmail-label-obarray'.
(defalias 'rmail-make-label #[(s) "\302\227	\"\207" [s rmail-label-obarray intern] 3 (#$ . 811)])
#@188 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.
(defalias 'rmail-add-label #[(label) "\301\302\"\207" [label rmail-set-label t] 3 (#$ . 981) (list (rmail-read-label "Add label"))])
#@193 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.
(defalias 'rmail-kill-label #[(label) "\301\302\"\207" [label rmail-set-label nil] 3 (#$ . 1309) (list (rmail-read-label "Remove label"))])
#@241 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.
(defalias 'rmail-read-label #[(prompt) "\306	\307=\204\310 \204\311 \211\203\312\313\314\315\"\"\210\316\n\203+\317\320!\321Q\202,\322P\f\306\211$\211\323\230\203<\202A\313
!\211*\207" [old major-mode prompt rmail-last-label rmail-label-obarray result nil rmail-summary-mode rmail-summary-exists rmail-get-keywords mapc rmail-make-label split-string ", " completing-read " (default " symbol-name "): " ": " ""] 6 (#$ . 1649)])
#@100 Set LABEL as present or absent according to STATE in message MSG.
LABEL may be a symbol or string.
(defalias 'rmail-set-label #[(label state &optional msg) ";\204	\306!\307\310\"\203\311\312!\210r	q\210\313 \210\314\n\206#\211!\203+\311\315!\210\f\nS\316I\210\316G\317 ! !W\203_ H\211\"A@)\230\203V  T\211 \202=*
\203n\320
#\n#\210\202\361\321\n!$\322\323!\310Q%\307%\322$\310Q\"??\211&#=\204\360\324'\n#\203\260$\203\254$\325\230\204\254$\322Q\202\356\202\356$\317\211\211\224\326Z]O$\211G\317\225S^\316O(\211)\325\230\203\333(\325\230?\205\355(\202\355(\325\230\203\347)\202\355)\322(Q*#\210+)\327 \203*
*+\330 \203
\331 ,\212\332\216\333-!\210+*\334\n!\210,\202&
r-q\210+*\334\n!\210*\335 \210)\nU\2052
\336 )\207" [label rmail-buffer msg rmail-current-message rmail-summary-vector attr-index symbol-name string-match "," error "More than one label specified" rmail-maybe-set-message-counters zerop "No message" nil 0 rmail-set-attribute rmail-get-keywords ", " regexp-quote rmail-set-header "" 2 rmail-summary-exists rmail-summary-displayed selected-window ((select-window window)) rmail-pop-to-buffer rmail-summary-update-line rmail-maybe-display-summary rmail-display-labels rmail-attr-array i --dotimes-limit-- x state header regexp present rmail-keyword-header after before rmail-total-messages total window rmail-summary-buffer] 9 (#$ . 2341)])
#@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) "\302[	\"\207" [n labels rmail-next-labeled-message] 3 (#$ . 3781) "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) "\306\230\203	\204\307\310!\210\nq\210\311 \210\211\312\313!\314Q\315V\203J
W\203J
T\316\f\317
!\"\203$
S\211\202&\315W\203o
\320V\203o
S\316\f\317
!\"\203J
T\211\202L\315W\203}\307\321\"\202\217\315V\203\213\307\322\"\202\217\323!+\207" [labels rmail-last-multi-labels rmail-buffer rmail-current-message regexp current "" 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 lastwin n rmail-total-messages] 6 (#$ . 4193) "p\nsMove to next msg with labels: "])
(provide 'rmailkwd)