Gecko [ 122.154.134.11 ]

Name	Size	Permission
binhex.elc	9.01 KB	-rw-r--r--
blessmail.el	2.51 KB	-rw-r--r--
emacsbug.elc	7.55 KB	-rw-r--r--
feedmail.elc	79.59 KB	-rw-r--r--
footnote.elc	21.09 KB	-rw-r--r--
hashcash.elc	10.81 KB	-rw-r--r--
mail-extr.elc	33.9 KB	-rw-r--r--
mail-hist.elc	13.74 KB	-rw-r--r--
mail-utils.elc	9.55 KB	-rw-r--r--
mailabbrev.elc	13.96 KB	-rw-r--r--
mailalias.elc	13.52 KB	-rw-r--r--
mailclient.elc	3.56 KB	-rw-r--r--
mailheader.elc	5.92 KB	-rw-r--r--
mailpost.elc	2.3 KB	-rw-r--r--
metamail.elc	4.44 KB	-rw-r--r--
mspools.elc	7.25 KB	-rw-r--r--
reporter.elc	9.65 KB	-rw-r--r--
rfc2368.elc	2.46 KB	-rw-r--r--
rfc822.elc	5.71 KB	-rw-r--r--
rmail-spam-filter.elc	13.24 KB	-rw-r--r--
rmail.elc	113.93 KB	-rw-r--r--
rmailedit.elc	8.83 KB	-rw-r--r--
rmailkwd.elc	5.12 KB	-rw-r--r--
rmailmm.elc	11.05 KB	-rw-r--r--
rmailmsc.elc	1.56 KB	-rw-r--r--
rmailout.elc	15.73 KB	-rw-r--r--
rmailsort.elc	6.33 KB	-rw-r--r--
rmailsum.elc	52.51 KB	-rw-r--r--
sendmail.elc	51.72 KB	-rw-r--r--
smtpmail.elc	21.58 KB	-rw-r--r--
supercite.elc	58.99 KB	-rw-r--r--
uce.elc	7.66 KB	-rw-r--r--
undigest.elc	7.88 KB	-rw-r--r--
unrmail.elc	4.69 KB	-rw-r--r--
uudecode.elc	6.19 KB	-rw-r--r--

Code Editor : rmailkwd.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:23 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/mail/rmailkwd.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`rmailkwd.el' was compiled for Emacs 19.29 or later"))

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

(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) (#$ . 629))
(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 (#$ . 867)])
#@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 (#$ . 1037) (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 (#$ . 1366) (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 (#$ . 1706)])
#@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\n\204!�\f\nS\314I\210\314G\315W\203U�H\211 A@)\230\203L�T\211\2023�*
\203d�\316
!\n#\210\202\347�\317\n!\"\320\321!\310Q#\307#\320\"\310Q\"??\211$!=\204\346�\322%\n!\203\246�\"\203\242�\"\323\230\204\242�\"\320Q\202\344�\202\344�\"\315\211\211\224\324Z]O\"\211G\315\225S^\314O&\211'\323\230\203\321�&\323\230?\205\343�&\202\343�&\323\230\203\335�'\202\343�'\320&Q*#\210+)\325 \203 ()\326 \203\327 *\212\330\216\331+!\210)(\332\n!\210,\202r+q\210)(\332\n!\210*\333 \210)\nU\205(\334 )\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 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)) 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 (#$ . 2398)])
#@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 (#$ . 3791) "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 (#$ . 4203) "p\nsMove to next msg with labels: "])
(provide 'rmailkwd)

${this.title}

Code Editor : rmailkwd.elc