Gecko [ goons4good.org ]

Name	Size	Permission	Date
binhex.elc	8.46 KB	-rw-r--r--	2023-06-07 04:03
blessmail.el	2.43 KB	-rw-r--r--	2013-01-01 15:37
emacsbug.elc	15.99 KB	-rw-r--r--	2023-06-07 04:03
feedmail.elc	96.01 KB	-rw-r--r--	2023-06-07 04:03
footnote.elc	21.67 KB	-rw-r--r--	2023-06-07 04:03
hashcash.elc	10.45 KB	-rw-r--r--	2023-06-07 04:04
mail-extr.elc	31.82 KB	-rw-r--r--	2023-06-07 04:04
mail-hist.elc	13.59 KB	-rw-r--r--	2023-06-07 04:04
mail-utils.elc	10.03 KB	-rw-r--r--	2023-06-07 04:04
mailabbrev.elc	13.86 KB	-rw-r--r--	2023-06-07 04:04
mailalias.elc	14.44 KB	-rw-r--r--	2023-06-07 04:04
mailclient.elc	3.31 KB	-rw-r--r--	2023-06-07 04:04
mailheader.elc	5.69 KB	-rw-r--r--	2023-06-07 04:04
metamail.elc	4.36 KB	-rw-r--r--	2023-06-07 04:04
mspools.elc	7.09 KB	-rw-r--r--	2023-06-07 04:04
reporter.elc	9.36 KB	-rw-r--r--	2023-06-07 04:04
rfc2368.elc	2.46 KB	-rw-r--r--	2023-06-07 04:04
rfc822.elc	5.73 KB	-rw-r--r--	2023-06-07 04:04
rmail-spam-filter.elc	12.79 KB	-rw-r--r--	2023-06-07 04:04
rmail.elc	127.36 KB	-rw-r--r--	2023-06-07 04:04
rmailedit.elc	9.4 KB	-rw-r--r--	2023-06-07 04:04
rmailkwd.elc	5.1 KB	-rw-r--r--	2023-06-07 04:04
rmailmm.elc	38.84 KB	-rw-r--r--	2023-06-07 04:04
rmailmsc.elc	1.5 KB	-rw-r--r--	2023-06-07 04:04
rmailout.elc	16.45 KB	-rw-r--r--	2023-06-07 04:04
rmailsort.elc	6.27 KB	-rw-r--r--	2023-06-07 04:04
rmailsum.elc	51.57 KB	-rw-r--r--	2023-06-07 04:04
sendmail.elc	54.33 KB	-rw-r--r--	2023-06-07 04:04
smtpmail.elc	22.25 KB	-rw-r--r--	2023-06-07 04:04
supercite.elc	56.84 KB	-rw-r--r--	2023-06-07 04:04
uce.elc	7.47 KB	-rw-r--r--	2023-06-07 04:04
undigest.elc	7.97 KB	-rw-r--r--	2023-06-07 04:04
unrmail.elc	4.63 KB	-rw-r--r--	2023-06-07 04:04
uudecode.elc	5.69 KB	-rw-r--r--	2023-06-07 04:04

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:04:09 2023
;;; 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) (#$ . 569))
(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 (#$ . 807)])
#@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 (#$ . 977) (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 (#$ . 1305) (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 (#$ . 1645)])
#@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 (#$ . 2337)])
#@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 (#$ . 3777) "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 (#$ . 4189) "p\nsMove to next msg with labels: "])
(provide 'rmailkwd)