| Current Path : /usr/share/emacs/24.3/lisp/mail/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/mail/rmailsum.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:45 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mail/rmailsum.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\303\313\305\314\307\310\311\312&\207" [require rmail rfc2047 custom-declare-variable rmail-summary-scroll-between-messages t "Non-nil means Rmail summary scroll commands move between messages.\nThat is, after `rmail-summary-scroll-msg-up' reaches the end of a\nmessage, it moves to the next message; and similarly for\n`rmail-summary-scroll-msg-down'." :type boolean :group rmail-summary rmail-summary-line-count-flag "Non-nil means Rmail summary should show the number of lines in each message.\nSetting this option to nil might speed up the generation of summaries."] 8)
#@60 Additional expressions to highlight in Rmail Summary mode.
(defvar rmail-summary-font-lock-keywords '(("^.....D.*" . font-lock-string-face) ("^.....-.*" . font-lock-type-face) ("^.....[^D-] \\(......\\)" 1 font-lock-keyword-face) ("{ \\([^\n}]+\\) }" 1 font-lock-comment-face)) (#$ . 1207))
#@60 (FUNCTION . ARGS) to regenerate this Rmail summary buffer.
(defvar rmail-summary-redo nil (#$ . 1504))
#@69 Overlay used to highlight the current message in the Rmail summary.
(defvar rmail-summary-overlay nil (#$ . 1613))
(put 'rmail-summary-overlay 'permanent-local t)
#@36 Keymap used in Rmail summary mode.
(defvar rmail-summary-mode-map (byte-code "\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\333#\210\303\335\336#\210\303\337\340#\210\303\341\327#\210\303\342\340#\210\303\343\344#\210\303\345\346#\210\303\347\350#\210\303\351\352#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\303\365\366#\210\303\367\370#\210\303\371\372#\210\303\373\374#\210\303\375\376#\210\303\377\201@ #\210\303\201A \201B #\210\303\201C \201D #\210\303\201E \201F #\210\303\201G \201H #\210\303\201I \201J #\210\303\201K \201L #\210\303\201M \201N #\210\303\201O \201P #\210\303\201Q \201R #\210\303\201S \201T #\210\303\201U \201V #\210\303\201W \201X #\210\303\201Y \201Z #\210\303\201[ \201\\ #\210\303\201] \201^ #\210\303\201_ \201` #\210\303\201a \201b #\210\303\201c \201d #\210\303\201e \201f #\210\303\201g \201h #\210\303\201i \201j #\210\303\201k \201l #\210\303\201m \201n #\210\303\201o \201p #\210\303\201q \201r #\210\303\201s \201t #\210\303\201u \201v #\210\303\201w \201x #\210\303\201y \201z \201x \201z !B#\210\303\201{ \201| #\210\303\201} \201~ #\210\303\201 \201\200 #\210\303\201\201 \201\202 #\210\303\201\203 \201\204 #\210\303\201\205 \201\206 #\210\303\201\207 \201\210 #\210\303\201\211 \201\212 #\210\303\201\213 \201\214 #\210\303\201\215 \201\216 \201x \201\216 !B#\210\303\201\217 \201\220 #\210\303\201\221 \201\222 #\210\303\201\223 \201\224 #\210\303\201\225 \201\226 #\210\303\201\227 \201\230 #\210\303\201\231 \201\232 #\210\303\201\233 \201\234 \201x \201\234 !B#\210\303\201\235 \201\236 #\210\303\201\237 \201\240 #\210\303\201\241 \201\242 #\210\303\201\243 \201\244 #\210\303\201\245 \201\246 #\210\303\201\247 \201\250 #\210\303\201\251 \201\252 #\210\303\201\253 \201\254 #\210\303\201\255 \201\256 \201x \201\256 !B#\210\303\201\257 \201\260 #\210\303\201\261 \201\262 #\210\303\201\263 \201\264 #\210\303\201\265 \201\266 #\210\303\201\267 \201\270 \201x \201\270 !B#\210\303\201\271 \201\272 #\210\303\201\273 \201\274 #\210\303\201\275 \201\276 #\210\303\201\277 \201\300 #\210\303\201\301 \201\302 #\210\303\201\303 \201\304 #\210\303\201\305 \201\306 #\210\303\201\307 \201\310 #\210)\207" [map make-keymap suppress-keymap define-key [mouse-2] rmail-summary-mouse-goto-message "a" rmail-summary-add-label "b" rmail-summary-bury "c" rmail-summary-continue "d" rmail-summary-delete-forward "" rmail-summary-delete-backward "e" rmail-summary-edit-current-message "f" rmail-summary-forward "g" rmail-summary-get-new-mail "h" rmail-summary "i" rmail-summary-input "j" rmail-summary-goto-msg "
" "k" rmail-summary-kill-label "l" rmail-summary-by-labels "" "\f" "" rmail-summary-by-recipients "" rmail-summary-by-regexp "" rmail-summary-by-senders "" rmail-summary-by-topic "m" rmail-summary-mail "\355" rmail-summary-retry-failure "n" rmail-summary-next-msg "n" rmail-summary-next-all "" rmail-summary-next-labeled-message "o" rmail-summary-output "" rmail-summary-output-as-seen "p" rmail-summary-previous-msg "p" rmail-summary-previous-all "" rmail-summary-previous-labeled-message "q" rmail-summary-quit "Q" rmail-summary-wipe "r" rmail-summary-reply "s" rmail-summary-expunge-and-save "s" rmail-summary-search "t" rmail-summary-toggle-header "u" rmail-summary-undelete "\365" rmail-summary-undelete-many "x" rmail-summary-expunge "w" rmail-summary-output-body "v" rmail-mime "." rmail-summary-beginning-of-message "/" rmail-summary-end-of-message "<" rmail-summary-first-message ">" rmail-summary-last-message " " rmail-summary-scroll-msg-up "" rmail-summary-scroll-msg-down "?" describe-mode "" rmail-summary-next-same-subject "" rmail-summary-previous-same-subject "" rmail-summary-sort-by-date "" rmail-summary-sort-by-subject "" rmail-summary-sort-by-author "" rmail-summary-sort-by-recipient "" rmail-summary-sort-by-correspondent "\f" rmail-summary-sort-by-lines " " rmail-summary-sort-by-labels "" rmail-summary-save-buffer [menu-bar] make-sparse-keymap [menu-bar classify] "Classify" [menu-bar classify output-menu] ("Output (Rmail Menu)..." . rmail-summary-output-menu) [menu-bar classify input-menu] ("Input Rmail File (menu)..." . rmail-input-menu) [menu-bar classify input-menu] (nil) [menu-bar classify output-menu] (nil) [menu-bar classify output-body] ("Output body..." . rmail-summary-output-body) [menu-bar classify output-inbox] ("Output..." . rmail-summary-output) [menu-bar classify output] ("Output as seen..." . rmail-summary-output-as-seen) [menu-bar classify kill-label] ("Kill Label..." . rmail-summary-kill-label) [menu-bar classify add-label] ("Add Label..." . rmail-summary-add-label) [menu-bar summary] "Summary" [menu-bar summary senders] ("By Senders..." . rmail-summary-by-senders) [menu-bar summary labels] ("By Labels..." . rmail-summary-by-labels) [menu-bar summary recipients] ("By Recipients..." . rmail-summary-by-recipients) [menu-bar summary topic] ("By Topic..." . rmail-summary-by-topic) [menu-bar summary regexp] ("By Regexp..." . rmail-summary-by-regexp) [menu-bar summary all] ("All" . rmail-summary) [menu-bar mail] "Mail" [menu-bar mail rmail-summary-get-new-mail] ("Get New Mail" . rmail-summary-get-new-mail) [menu-bar mail lambda] ("----") [menu-bar mail continue] ("Continue" . rmail-summary-continue) [menu-bar mail resend] ("Re-send..." . rmail-summary-resend) [menu-bar mail forward] ("Forward" . rmail-summary-forward) [menu-bar mail retry] ("Retry" . rmail-summary-retry-failure) [menu-bar mail reply] ("Reply" . rmail-summary-reply) [menu-bar mail mail] ("Mail" . rmail-summary-mail) [menu-bar delete] "Delete" [menu-bar delete expunge/save] ("Expunge/Save" . rmail-summary-expunge-and-save) [menu-bar delete expunge] ("Expunge" . rmail-summary-expunge) [menu-bar delete undelete] ("Undelete" . rmail-summary-undelete) [menu-bar delete delete] ("Delete" . rmail-summary-delete-forward) [menu-bar move] "Move" [menu-bar move search-back] ("Search Back..." . rmail-summary-search-backward) [menu-bar move search] ("Search..." . rmail-summary-search) [menu-bar move previous] ("Previous Nondeleted" . rmail-summary-previous-msg) [menu-bar move next] ("Next Nondeleted" . rmail-summary-next-msg) [menu-bar move last] ("Last" . rmail-summary-last-message) [menu-bar move first] ("First" . rmail-summary-first-message) [menu-bar move previous] ("Previous" . rmail-summary-previous-all) [menu-bar move next] ("Next" . rmail-summary-next-all)] 6) (#$ . 1782))
(defalias 'rmail-update-summary #[(&rest ignore) "\301@A\"\207" [rmail-summary-redo apply] 3])
#@58 Display a summary of all messages, one line per message.
(defalias 'rmail-summary #[nil "\300\301\302\303#\207" [rmail-new-summary "All" (rmail-summary) nil] 4 (#$ . 8627) nil])
#@138 Display a summary of all messages with one or more LABELS.
LABELS should be a string containing the desired labels, separated by commas.
(defalias 'rmail-summary-by-labels #[(labels) "\302\230\203 \206
\303\304!\305\306P\307D\310\311\312!\313Q$\207" [labels rmail-last-multi-labels "" error "No label specified" rmail-new-summary "labels " rmail-summary-by-labels rmail-message-labels-p " \\(" mail-comma-list-regexp "\\)\\(,\\|\\'\\)"] 7 (#$ . 8812) "sLabels to summarize by: "])
#@261 Display a summary of all messages with the given RECIPIENTS.
Normally checks the To, From and Cc fields of headers;
but if PRIMARY-ONLY is non-nil (prefix arg given),
only look in the To and From fields.
RECIPIENTS is a string of regexps separated by commas.
(defalias 'rmail-summary-by-recipients #[(recipients &optional primary-only) "\302\303P\304 E\305\306! %\207" [recipients primary-only rmail-new-summary "recipients " rmail-summary-by-recipients rmail-message-recipients-p mail-comma-list-regexp] 6 (#$ . 9310) "sRecipients to summarize by: \nP"])
(defalias 'rmail-message-recipients-p #[(msg recipients &optional primary-only) "\303\304 \n$\207" [msg recipients primary-only rmail-apply-in-message rmail-message-recipients-p-1] 5])
(defalias 'rmail-message-recipients-p-1 #[(recipients &optional primary-only) "`\302\303!\210`}\210\304\305\306!\206 \307\"\2061 \304\305\310!\206 \307\"\2061 ?\2051 \304\305\311!\2060 \307\"\207" [recipients primary-only search-forward "\n\n" string-match mail-fetch-field "To" "" "From" "Cc"] 4])
#@241 Display a summary of all messages according to regexp REGEXP.
If the regular expression is found in the header of the message
(including in the date and other lines, as well as the subject line),
Emacs will list the message in the summary.
(defalias 'rmail-summary-by-regexp #[(regexp) "\302\230\203 \206
\303\304!\305\306P\307D\310$\207" [regexp rmail-last-regexp "" error "No regexp specified" rmail-new-summary "regexp " rmail-summary-by-regexp rmail-message-regexp-p] 5 (#$ . 10368) "sRegexp to summarize by: "])
#@75 Return t, if for message number MSG, regexp REGEXP matches in the header.
(defalias 'rmail-message-regexp-p #[(msg regexp) "\302\303 $\207" [msg regexp rmail-apply-in-message rmail-message-regexp-p-1] 5 (#$ . 10901)])
(defalias 'rmail-message-regexp-p-1 #[(msg regexp) "`\212\304\305!\210`)}\210\203 \203 \n `#\207\306 \307\310#\207" [rmail-enable-mime rmail-search-mime-header-function msg regexp search-forward "\n\n" re-search-forward nil t] 4])
#@241 Display a summary of all messages with the given SUBJECT.
Normally checks just the Subject field of headers; but with prefix
argument WHOLE-MESSAGE is non-nil, looks in the whole message.
SUBJECT is a string of regexps separated by commas.
(defalias 'rmail-summary-by-topic #[(subject &optional whole-message) "\302\303P\304 E\305\306! %\207" [subject whole-message rmail-new-summary "about " rmail-summary-by-topic rmail-message-subject-p mail-comma-list-regexp] 6 (#$ . 11364) (let* ((subject (regexp-quote (rmail-simplified-subject))) (prompt (concat "Topics to summarize by (regexp" (if subject ", default current subject" "") "): "))) (list (read-string prompt nil nil subject) current-prefix-arg))])
(defalias 'rmail-message-subject-p #[(msg subject &optional whole-message) "\203\f \303 \304\n\305\306%\207\307\n\310 !\"\207" [whole-message msg subject rmail-apply-in-message re-search-forward nil t string-match rmail-simplified-subject] 6])
#@123 Display a summary of all messages whose "From" field matches SENDERS.
SENDERS is a string of regexps separated by commas.
(defalias 'rmail-summary-by-senders #[(senders) "\301\302P\303D\304\305!$\207" [senders rmail-new-summary "senders " rmail-summary-by-senders rmail-message-senders-p mail-comma-list-regexp] 6 (#$ . 12325) "sSenders to summarize by: "])
(defalias 'rmail-message-senders-p #[(msg senders) "\302\303\304 \"\206\n \305\"\207" [senders msg string-match rmail-get-header "From" ""] 5])
(defvar rmail-summary-symbol-number 0)
#@274 Create a summary of selected messages.
DESC makes part of the mode line of the summary buffer. REDO is form ...
For each message, FUNC is applied to the message number and ARGS...
and if the result is non-nil, that message is included.
nil for FUNCTION means all messages.
(defalias 'rmail-new-summary #[(desc redo func &rest args) "\306\307!\210\204\f \310\311!\210\312\211\211\f\313=\203 \314rq\210\315
$\211 !)\n\204\226 \316 \203c \"\203c #\204c \317\320 $\"\210\321\322\323 !!\210\324 !\210 \325\323 !=\204g \326 \210\202g \324 !\210q\210% &\327 \203\206 \320 '\212\330\216\324 !\210&\210+\202\217 r q\210&\210)\331 \210) q\210\332 \314\211#\210\333 \210\306\334!+\207" [rmail-buffer sumbuf was-in-summary mesg major-mode desc message "Computing summary lines..." error "No RMAIL buffer found" nil rmail-summary-mode t rmail-new-summary-1 one-window-p split-window selected-window select-window next-window frame-first-window rmail-pop-to-buffer window-buffer delete-other-windows rmail-summary-displayed ((select-window window)) rmail-maybe-display-summary rmail-summary-goto-msg rmail-summary-construct-io-menu "Computing summary lines...done" redo func args rmail-summary-buffer rmail-current-message pop-up-windows pop-up-frames rmail-summary-window-size rmail-total-messages total window] 6 (#$ . 12877)])
#@337 Filter messages to obtain summary lines.
DESCRIPTION is added to the mode line.
Return the summary buffer by invoking FUNCTION on each message
passing the message number and ARGS...
REDO is a form ...
The current buffer must be a Rmail buffer either containing a
collection of mbox formatted messages or displaying a single
message.
(defalias 'rmail-new-summary-1 #[(description form function args) "\306\307\310 \311p \312 \212\313 \203 q\210\314 \315 \316\216\212~\210eb\210
Y\203m rq\210 \203G \317 !#\203Q \320 !B\nB) T \321 !\204+ \321 \322\246!\203+ \323\324 \"\210\202+ \n\237. \306\"#\203\203 r$q\210\306\")\212p %q\210\306 &\325 \210\n\203\244 \326\n@A\"\210\nA\211\204\226 eb\210)\312&\327 \210\330\331!\210\312\332'PDC%$()
++\207" [sumbuf rmail-new-summary-line-count summary-msgs rmail-total-messages inhibit-read-only total nil 0 rmail-get-create-summary-buffer 1 t rmail-buffers-swapped-p point-min-marker point-max-marker ((narrow-to-region old-min old-max)) apply rmail-get-summary zerop 10 message "Computing summary lines...%d" erase-buffer princ rmail-summary-mode make-local-variable minor-mode-alist ": " main-buffer msgnum rmail-view-buffer old-max old-min function args rmail-summary-buffer rmail-enable-mime rmail-buffer rbuf buffer-read-only description form rmail-summary-redo] 5 (#$ . 14227)])
#@84 Return the Rmail summary buffer.
If necessary, it is created and undo is disabled.
(defalias 'rmail-get-create-summary-buffer #[nil "\203\f \303!\203\f \207\304\303 \305P!r q\210\306) )\207" [rmail-summary-buffer buff buffer-undo-list buffer-name generate-new-buffer "-summary" t] 3 (#$ . 15607)])
#@399 Return the summary line for message MSGNUM.
The mbox buffer must be current when you call this function
even if its text is swapped.
If the message has a summary line already, it will be stored in
the message as a header and simply returned, otherwise the
summary line is created, saved in the message header, cached and
returned.
The current buffer contains the unrestricted message collection.
(defalias 'rmail-get-summary #[(msgnum) " SH\211\204 T\304 ! S\nI\210\n)\207" [rmail-summary-vector msgnum line rmail-new-summary-line-count rmail-create-summary-line] 4 (#$ . 15917)])
#@217 Function to decode a Rmail summary line.
It receives the summary line for one message as a string
and should return the decoded string.
By default, it is `rfc2047-decode-string', which decodes MIME-encoded
subject.
(custom-declare-variable 'rmail-summary-line-decoder '#'rfc2047-decode-string '(#$ . 16514) :type 'function :version "23.3" :group 'rmail-summary)
#@253 Return the summary line for message MSGNUM.
Obtain the message summary from the header if it is available
otherwise create it and store it in the message header.
The mbox buffer must be current when you call this function
even if its text is swapped.
(defalias 'rmail-create-summary-line #[(msgnum) "\306!\307!\310!\311\211 \212\312 \203 q\210\203$ \313
\f\"\212\214~\210
b\210\314\315\f\316#\203R
`}\210
b\210\314\317P\311\316#\205H \320\321!\322 \n $\202U \323!.\207" [msgnum lines unseen deleted end beg rmail-msgbeg rmail-msgend rmail-message-deleted-p nil rmail-buffers-swapped-p count-lines search-forward "\n\n" t ": " looking-at "......U" rmail-create-summary rmail-error-bad-format rmail-view-buffer rmail-summary-line-count-flag rmail-attribute-header] 5 (#$ . 16884)])
#@169 Return a coded string wrapped in curly braces denoting the status.
The current buffer must already be narrowed to the message headers for
the message being processed.
(defalias 'rmail-get-summary-status #[nil "\305!\306\307\310\211 \203 \f\306\311O\f\312\313OP\202 \307 \fGW\203: \f \211TO\211\314\230\2043 \n P T\211\202 \nG\306V\203F \315\n\316Q\n,\207" [rmail-attribute-header char result index status mail-fetch-field 0 "" nil 1 2 6 "-" "{" "}"] 5 (#$ . 17692)])
(autoload 'rmail-make-label "rmailkwd")
#@211 Return a string wrapped in curly braces with the current message labels.
Returns nil if there are no labels. The current buffer must
already be narrowed to the message headers for the message being
processed.
(defalias 'rmail-get-summary-labels #[nil "\302!\211\205 \303\230?\205 \304\305\306 \307\"\"\210\310\311 \")\207" [rmail-keyword-header labels mail-fetch-field "" mapc rmail-make-label split-string ", " format "{ %s } "] 6 (#$ . 18219)])
#@359 Return the summary line for message MSGNUM.
The current buffer should already be narrowed to the header for that message.
It could be either buffer, so don't access Rmail local variables.
DELETED is t if this message is marked deleted.
UNSEEN is t if it is marked unseen.
LINES is the number of lines in the message (if we should display that)
or else nil.
(defalias 'rmail-create-summary #[(msgnum deleted unseen lines) "eb\210\306 \307 \310\211\211\211\211\211 \204 \311\202v \312X\203/ \313\314 \"\202v \315X\203> \313\316 \"\202v \317X\203M \313\320 \"\202v \321X\203^ \313\322 \323\245\"\202v \324X\203o \313\325 \323\245\"\202v \313\326 \323\245\" \203\200 \327\202\212 \203\211 \330\202\212 \331\313\332 \f# @ \211 !A@)\" \n\311 \260!.\207" [linecount-string basic-end basic-start prefix status pos rmail-header-summary rmail-get-summary-labels nil " " 9 format " [%d]" 99 " [%d]" 999 " [%d]" 9999 " [%dk]" 1000 99999 " [%dk]" "[%dk]" 68 45 32 "%5d%c " labels line lines deleted unseen msgnum x rmail-summary-line-decoder] 9 (#$ . 18679)])
#@236 Return a message summary based on the message headers.
The value is a list of two strings, the first and second parts of the summary.
The current buffer must already be narrowed to the message headers for
the message being processed.
(defalias 'rmail-header-summary #[nil "eb\210\212\306\307\310\311#\204 \312\202k \311\306\313\314 \311#)\203. \315\316\317\320\224\320\225{!\321\224\321\225{#\202k \311\306\322\314 \311#)\203L \315\316\317\321\224\321\225{!\320\224\320\225{#\202k \306\323\314 \311#\203j \315\324\320\224\320\225{\325\224\325\225{\321\224\321\225{$\202k \326)\327\212\306\330\310\311#\205\217 \331`S`\332y\210\333\334!\204{ \335u\210\336\310x\210`){!\310\211 \310 \n\203\300 \3375\206\273 \340\341\342 !\343\3416\206\267 \342 \3447\206\266 \345 Q!\346\260\n\"\203\334 \212eb\210\306\347\310\311#\203\333 \350\331`\310\210\336\310x\210`{!P)\n\204\344 \351\202.\352\n!\211G\337\353\n\"\315\354\f\203\374 \355X\203\n\356 \355Z]\310O\202-\n\f\357Z\356W\203\356\202% \f\360\\W\203\" \355Z\202%\f\357Z\211
\355\\^O\"-Q\306\361\310\311#\203l\310\211 8 9\336\310w\210`9\332y\2109`S{8\333\334!\203f8\362\356\225\314 {Q8\332y\210\202O8*\202x\306\363\310\311#\210`\310\210`{\364PD\207" [case-fold-search opoint from len mch lo re-search-forward "^Date:" nil t " " "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- _]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" line-end-position format "%2d-%3s" string-to-number 2 4 "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z _]*\\)\\([0-9][0-9]?\\)" "\\(19\\|20\\)\\([0-9][0-9]\\)-\\([01][0-9]\\)-\\([0-3][0-9]\\)" "%2s%2s%2s" 3 "??????" " " "^From:[ ]*" mail-strip-quoted-names 1 looking-at "[ ]" -1 " " string-match "^\\(" regexp-quote user-login-name "\\($\\|@\\)\\|" "@" system-name "\\>\\)" "^To:[ ]*" "to: " " " rfc2047-decode-string "[@%]" "%25s" 25 0 14 11 "^Subject:" " " "[\n][\n]+" "\n" rmail-user-mail-address-regexp user-mail-address mail-host-address str pos] 11 (#$ . 19783)])
(defalias 'rmail-summary-next-all #[(&optional number) "\203 \202 \302y\210m\203 \303V\203 \304y\210\305 !\207" [number rmail-buffer 1 0 -1 display-buffer] 2 nil "p"])
(defalias 'rmail-summary-previous-all #[(&optional number) "\203 \202 \302[y\210m\203 \303W\203 \304y\210\305 !\207" [number rmail-buffer 1 0 -1 display-buffer] 2 nil "p"])
#@171 Display next non-deleted msg from rmail file.
With optional prefix argument NUMBER, moves forward this number of non-deleted
messages, or backward if NUMBER is negative.
(defalias 'rmail-summary-next-msg #[(&optional number) "\305y\210\305V\203\f \306\210\305W\203 [\202 \305V\203\" \307\202# \310\306\211\305V\203B \n\311\306\312#\2066 \211\203B S\211\202( +\313 \210\314\f!\207" [number non-del-msg-found search count rmail-buffer 0 nil re-search-forward re-search-backward "^.....[^D]" t beginning-of-line display-buffer] 5 (#$ . 22152) "p"])
#@141 Display previous non-deleted msg from rmail file.
With optional prefix argument NUMBER, moves backward this number of
non-deleted messages.
(defalias 'rmail-summary-previous-msg #[(&optional number) "\301\203 \202\n \302[!\207" [number rmail-summary-next-msg 1] 2 (#$ . 22720) "p"])
#@130 Show next message with LABELS. Defaults to last labels used.
With prefix argument N moves forward N messages with these labels.
(defalias 'rmail-summary-next-labeled-message #[(n labels) "\305r q\210\306\n \"\210\f)\307!)\207" [msg rmail-buffer n labels rmail-current-message nil rmail-next-labeled-message rmail-summary-goto-msg] 3 (#$ . 23013) "p\nsMove to next msg with labels: "])
#@135 Show previous message with LABELS. Defaults to last labels used.
With prefix argument N moves backward N messages with these labels.
(defalias 'rmail-summary-previous-labeled-message #[(n labels) "\305r q\210\306\n \"\210\f)\307!)\207" [msg rmail-buffer n labels rmail-current-message nil rmail-previous-labeled-message rmail-summary-goto-msg] 3 (#$ . 23409) "p\nsMove to previous msg with labels: "])
#@137 Go to the next message in the summary having the same subject.
With prefix argument N, do this N times.
If N is negative, go backwards.
(defalias 'rmail-summary-next-same-subject #[(n) "\306V\307\211\211 r
q\210\310 )\212\306U\204s \f\203% m?\202' o?\203s \307 \f\2036 m?\2028 o?\203[ \f\203C \311\202D \312y\210\313`d\314`\\^{! \310\n!\230\211\203- \203b \n)\f\203l S\202n T\211\202 ) \203~ \315 !\202\212 \316\317\f\203\210 \320\202\211 \321\",\207" [n found i subject forward rmail-buffer 0 nil rmail-simplified-subject 1 -1 string-to-number 6 rmail-summary-goto-msg error "No %s message with same subject" "following" "previous" rmail-current-message done] 6 (#$ . 23822) "p"])
#@148 Go to the previous message in the summary having the same subject.
With prefix argument N, do this N times.
If N is negative, go forwards instead.
(defalias 'rmail-summary-previous-same-subject #[(n) "\301[!\207" [n rmail-summary-next-same-subject] 2 (#$ . 24531) "p"])
#@232 Delete this message and move to next nondeleted one.
Deleted messages stay in the file until the \[rmail-expunge] command is given.
A prefix argument serves as a repeat count;
a negative argument means to delete and move backward.
(defalias 'rmail-summary-delete-forward #[(&optional count) "\247\204 \306\307\211\310W\310U?\205i \311 \210r\fq\210\312 \210
)\313\n!\210 \203/ o\2020 m\204L \212\314 \210\315\316!)\203L \203F \317\202G \306y\210\202' m\203W \204W \317y\210\310V\203b S\202d T\211\202 +\207" [count backward del-msg end rmail-buffer rmail-current-message 1 nil 0 rmail-summary-goto-msg rmail-delete-message rmail-summary-mark-deleted beginning-of-line looking-at " *[0-9]+D" -1] 5 (#$ . 24809) "p"])
#@235 Delete this message and move to previous nondeleted one.
Deleted messages stay in the file until the \[rmail-expunge] command is given.
A prefix argument serves as a repeat count;
a negative argument means to delete and move forward.
(defalias 'rmail-summary-delete-backward #[(&optional count) "\301[!\207" [count rmail-summary-delete-forward] 2 (#$ . 25547) "p"])
(defalias 'rmail-summary-mark-deleted #[(&optional n undel) "\203\n \306\307\211#\210m\204G \310 \311\"\203G \312\313\312w\210\314\312w\210 \2033 \315\316!\203: \317\320!\210\313c\210\202: \317\320!\210\316c\210r\fq\210
S\321!I\210*\322 \207" [n rmail-summary-overlay buffer-read-only undel rmail-buffer rmail-summary-vector rmail-summary-goto-msg t overlay-get face nil " " "0-9" looking-at "D" delete-char 1 rmail-create-summary-line beginning-of-line] 4])
#@40 Update the summary line for message N.
(defalias 'rmail-summary-update-line #[(n) "\306\307\211#\205V \310\311 \311\312!\313\n \" \310\211 \f@\211\2034 \314\315\"\211\2044 \fA\211\202 \n |\210\316rq\210S\317!I)p\"\210
\205T \320y\210\321\310!.\207" [n buffer-read-only start end overlays high rmail-summary-goto-msg t nil line-beginning-position 2 overlays-in overlay-get rmail-summary princ rmail-create-summary-line -1 rmail-summary-update-highlight ov rmail-buffer rmail-summary-vector] 6 (#$ . 26384)])
(defalias 'rmail-summary-mark-undeleted #[(n) "\301\302\"\207" [n rmail-summary-mark-deleted t] 3])
(defalias 'rmail-summary-deleted-p #[(&optional n) "\212\203 \301\302\303#\210\304\302w\210\305\302w\210\306\307!)\207" [n rmail-summary-goto-msg nil t " " "0-9" looking-at "D"] 4])
#@85 Undelete current message.
Optional prefix ARG means undelete ARG previous messages.
(defalias 'rmail-summary-undelete #[(&optional arg) "\306U\204\n \307!\207\310`\310\210\311\312\310\313#\203F \314\315!\210\316 \210 \203* \fq\210\202. \317\f!\210\320
!\2037 \321 \210 \203? \317\f!\210\317!\202H b*\207" [arg opoint buffer-read-only rmail-enable-mime rmail-buffer rmail-current-message 1 rmail-summary-undelete-many nil re-search-backward "\\(^ *[0-9]*\\)\\(D\\)" t replace-match "\\1 " rmail-summary-goto-msg rmail-pop-to-buffer rmail-message-deleted-p rmail-undelete-previous-message rmail-summary-buffer] 4 (#$ . 27203) "p"])
#@78 Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs.
(defalias 'rmail-summary-undelete-many #[(&optional n) "rq\210 \203\f \n\202
\211 \206 \306 \n\306V\203:
W\203: \307\n!\2033 \310
\311\"\210
T\nS\211\202 q\210\f\306\n\306V\203b
W\203b \312\n!\203[ \313\n!\210
T\nS\211\202C ,\314 )\207" [rmail-buffer n rmail-current-message rmail-total-messages init-msg msgs-undeled 0 rmail-message-deleted-p rmail-set-attribute nil rmail-summary-deleted-p rmail-summary-mark-undeleted rmail-summary-goto-msg rmail-deleted-attr-index rmail-summary-buffer] 4 (#$ . 27847) "P"])
(put 'rmail-summary-mode 'mode-class 'special)
#@947 Rmail Summary Mode is invoked from Rmail Mode by using \<rmail-mode-map>\[rmail-summary].
As commands are issued in the summary buffer, they are applied to the
corresponding mail messages in the rmail buffer.
All normal editing commands are turned off.
Instead, nearly all the Rmail mode commands are available,
though many of them move only among the messages in the summary.
These additional commands exist:
\[rmail-summary-undelete-many] Undelete all or prefix arg deleted messages.
\[rmail-summary-wipe] Delete the summary and go to the Rmail buffer.
Commands for sorting the summary:
\[rmail-summary-sort-by-date] Sort by date.
\[rmail-summary-sort-by-subject] Sort by subject.
\[rmail-summary-sort-by-author] Sort by author.
\[rmail-summary-sort-by-recipient] Sort by recipient.
\[rmail-summary-sort-by-correspondent] Sort by correspondent.
\[rmail-summary-sort-by-lines] Sort by lines.
\[rmail-summary-sort-by-labels] Sort by labels.
(defalias 'rmail-summary-mode #[nil "\306 \210\307\310\311\211\312\f!\210\313\314!\210\313\315!\210\313\305!\210\316\313\317!\210\316\313\320!\210\313\321!\210\322\323 \210\324\325!\207" [major-mode mode-name truncate-lines buffer-read-only text-mode-syntax-table rmail-current-message kill-all-local-variables rmail-summary-mode "RMAIL Summary" t set-syntax-table make-local-variable rmail-buffer rmail-total-messages nil rmail-summary-redo revert-buffer-function font-lock-defaults (rmail-summary-font-lock-keywords t) rmail-summary-enable run-mode-hooks rmail-summary-mode-hook] 3 (#$ . 28512) nil])
(defalias 'rmail-summary-disable #[nil "\302!\210\303\304\305\306#\210\307\211\207" [text-mode-map revert-buffer-function use-local-map remove-hook post-command-hook rmail-summary-rmail-update t nil] 4])
(defalias 'rmail-summary-enable #[nil "\302!\210\303\304\305\306\307$\210\310\211\207" [rmail-summary-mode-map revert-buffer-function use-local-map add-hook post-command-hook rmail-summary-rmail-update nil t rmail-update-summary] 5])
#@261 Remove the unseen mark from the current message, update the summary vector.
N is the number of the current message. Optional argument NOMOVE
non-nil means we are already at the right column. Optional argument
UNSEEN non-nil means mark the message as unseen.
(defalias 'rmail-summary-mark-seen #[(n &optional nomove unseen) "\212\204 \306 \210\307\310w\210\311\310w\210\312g \203 \313\202 \314\"\205D \310\315\316!\210 \203- \317\202. \307c\210)\320\321 \321\322!\"r\fq\210
S I*)\207" [nomove unseen buffer-read-only line rmail-buffer rmail-summary-vector beginning-of-line " " nil "0-9" char-equal 32 45 delete-char 1 "-" buffer-substring-no-properties line-beginning-position 2 n] 4 (#$ . 30519)])
#@313 Used for communicating between calls to `rmail-summary-rmail-update'.
If it moves to a message within an Incremental Search, and removes
the `unseen' attribute from that message, it sets this flag
so that if the next motion between messages is in the same Incremental
Search, the `unseen' attribute is restored.
(defvar rmail-summary-put-back-unseen nil (#$ . 31235))
(defalias 'rmail-summary-rmail-update #[nil "\306\212m\203\n \307y\210\310 \210\311\306w\210\312`\313\306w\210`{!\n\204! \306\f =\204\225 \314
\315\"\316 \n\203V \203K \317\315\f#\210\212 b\210\320\f\315\211#\210)\321 !\205R `\202X \306 \320 \315\"\210\203t \322\216\323!\210\324 \315\"\210)\202\204 \325
!\203\204 r
q\210\324 \315\"\210)\326\327!\203\224 \325
!\203\224 \327
!\210*\330\306!+\207" [buffer-read-only msg-num isearch-mode rmail-summary-put-back-unseen rmail-current-message rmail-buffer nil -1 beginning-of-line " " string-to-number "0-9" get-buffer-window t selected-window rmail-set-attribute rmail-summary-mark-seen rmail-message-unseen-p ((select-window owin)) select-window rmail-show-message buffer-name fboundp linum-update rmail-summary-update-highlight owin window rmail-unseen-attr-index] 4])
#@53 Save the buffer associated with this RMAIL summary.
(defalias 'rmail-summary-save-buffer #[nil "\302 \303\216\212\304 !\210\305 +\207" [#1=#:wconfig rmail-buffer current-window-configuration ((set-window-configuration #1#)) switch-to-buffer save-buffer] 2 (#$ . 32444) nil])
#@53 Select the message whose summary line you click on.
(defalias 'rmail-summary-mouse-goto-message #[(event) "\302!\303 8\206 A@:\203 A@@\202 A@)b\210\304 \207" [event position event-end 5 rmail-summary-goto-msg] 2 (#$ . 32726) "@e"])
#@321 Go to message N in the summary buffer and the Rmail buffer.
If N is nil, use the message corresponding to point in the summary
and move to that message in the Rmail buffer.
If NOWARN, don't say anything if N is out of range.
If SKIP-RMAIL, don't do anything to the Rmail buffer.
Returns non-nil if message N was found.
(defalias 'rmail-summary-goto-msg #[(&optional n nowarn skip-rmail) ":\203 \306!m\203 \307y\210\310 \210p\n` \311 \312`d\313`\\^{! r q\210 ) \2049 \202\202 \314W\203E \315\316!\210\314 V\203b \317V\203b \315\320!\210db\210\321\311 !#\210eb\210\322\323\324\"\311\325#\204\202 \204z \315\326\"\210 \325\fb\210\327!\210\330
!\210\310 \210!\204\241 \331 \"\332\216\333 !\210\334!\210*
.?\207" [n obuf rmail-buffer buf cur message-not-found prefix-numeric-value -1 beginning-of-line nil string-to-number 6 1 message "No preceding message" 0 "No following message" rmail-summary-goto-msg re-search-forward format "^%5d[^0-9]" t "Message %d not found" rmail-summary-mark-seen rmail-summary-update-highlight selected-window ((byte-code "\302!\210 q\207" [selwin obuf select-window] 2)) rmail-pop-to-buffer rmail-show-message curmsg rmail-total-messages total nowarn skip-rmail selwin] 5 (#$ . 32973) "P"])
(defalias 'rmail-summary-update-highlight #[(not-found) "\204 \302\300!\210\303``\"\304\305\306#\210 \203 \304\307\310#\207\311\212\312 \210\313\310w\210`)\314 #\210\304\307\315#\207" [rmail-summary-overlay not-found make-local-variable make-overlay overlay-put rmail-summary t face nil move-overlay beginning-of-line " " line-end-position highlight] 4])
#@119 Scroll the Rmail window forward.
If the Rmail window is displaying the end of a message,
advance to the next message.
(defalias 'rmail-summary-scroll-msg-up #[(&optional dist) "\306=\203\n \307\310!\207\311 !\211\203P \312 \313\n!\210\212\314\312 ! \315\f\316Z!\210\310\210m*\313 !\210)\203F
\204< \317\320!\202R \321\206B \322!\202R \323!)\202R \324 )\207" [dist rmail-buffer rmail-buffer-window rmail-summary-window ht rmail-summary-scroll-between-messages - rmail-summary-scroll-msg-down nil get-buffer-window selected-window select-window window-height move-to-window-line 2 error "End of buffer" rmail-summary-next-msg 1 scroll-other-window rmail-summary-beginning-of-message other-window-scroll-buffer] 4 (#$ . 34596) "P"])
#@131 Scroll the Rmail window backward.
If the Rmail window is now displaying the beginning of a message,
move to the previous message.
(defalias 'rmail-summary-scroll-msg-down #[(&optional dist) "\306=\203\n \307\310!\207\311 !\211\203H \312 \313\n!\210\212\314\315!\210\316 \210o)\313 !\210)\203? \f\2045 \317\320!\202J \321\206; \322!\202J \323!)\202J \324 )\207" [dist rmail-buffer rmail-buffer-window rmail-summary-window rmail-summary-scroll-between-messages other-window-scroll-buffer - rmail-summary-scroll-msg-up nil get-buffer-window selected-window select-window move-to-window-line 0 beginning-of-line error "Beginning of buffer" rmail-summary-previous-msg 1 scroll-other-window-down rmail-summary-beginning-of-message] 4 (#$ . 35343) "P"])
#@42 Show current message from the beginning.
(defalias 'rmail-summary-beginning-of-message #[nil "\300\301!\207" [rmail-summary-show-message BEG] 2 (#$ . 36103) nil])
#@33 Show bottom of current message.
(defalias 'rmail-summary-end-of-message #[nil "\300\301!\207" [rmail-summary-show-message END] 2 (#$ . 36272) nil])
#@83 Show current mail message.
Position it according to WHERE which can be BEG or END
(defalias 'rmail-summary-show-message #[(where) "\306 \203, \204, \307\310 \"\210\311\312 !\210\313 !\210\n\314\315\312 !!=\204( \316 \210)\2020 \313 !\210\f\317=\203@ eb\210\320\321!\210\202O \f\322=\203O db\210\323\324 S!\210\313
!\207" [pop-up-frames rmail-buffer buffer rmail-summary-window-size where rmail-summary-buffer one-window-p split-window selected-window select-window frame-first-window rmail-pop-to-buffer window-buffer next-window delete-other-windows BEG search-forward "\n\n" END recenter window-height] 4 (#$ . 36426)])
#@53 Bury the Rmail buffer and the Rmail summary buffer.
(defalias 'rmail-summary-bury #[nil "p\303\304\n!\211\203 \305 \306\n!\"\210\202 \307\n!\210)\310\306!!\210\307!)\207" [buffer-to-bury window rmail-buffer nil get-buffer-window set-window-buffer other-buffer bury-buffer switch-to-buffer] 4 (#$ . 37058) nil])
#@38 Quit out of Rmail and Rmail summary.
(defalias 'rmail-summary-quit #[nil "\300 \210\301 \207" [rmail-summary-wipe rmail-quit] 1 (#$ . 37382) nil])
#@59 Kill and wipe away Rmail summary, remaining within Rmail.
(defalias 'rmail-summary-wipe #[nil "rq\210\303)\304p!\210\305 \306\303\307\"=\204 \310 \210\311\n!)\207" [rmail-buffer rmail-summary-buffer local-rmail-buffer nil kill-buffer selected-window next-window no-minibuf delete-window rmail-pop-to-buffer] 4 (#$ . 37535) nil])
#@68 Actually erase all deleted messages and recompute summary headers.
(defalias 'rmail-summary-expunge #[nil "rq\210\301 \203\f \302 \210)\303 \207" [rmail-buffer rmail-expunge-confirmed rmail-only-expunge rmail-update-summary] 1 (#$ . 37875) nil])
#@30 Expunge and save RMAIL file.
(defalias 'rmail-summary-expunge-and-save #[nil "\212\300 \210)\301 \210\302\303!\207" [rmail-expunge-and-save rmail-update-summary set-buffer-modified-p nil] 2 (#$ . 38128) nil])
#@326 Get new mail and recompute summary headers.
Optionally you can specify the file to get new mail from. In this case,
the file of new mail is not changed or deleted. Noninteractively, you can
pass the inbox file name as an argument. Interactively, a prefix
argument says to read a file name and use that file as the inbox.
(defalias 'rmail-summary-get-new-mail #[(&optional file-name) "\304r q\210\305\n!\210 )\306!\206 \307!)\207" [msg rmail-buffer file-name rmail-current-message nil rmail-get-new-mail zerop rmail-summary-goto-msg] 2 (#$ . 38344) (list (if current-prefix-arg (read-file-name "Get new mail from file: ")))])
#@29 Run Rmail on file FILENAME.
(defalias 'rmail-summary-input #[(filename) "\302!\210\303 !\207" [rmail-buffer filename rmail-pop-to-buffer rmail] 2 (#$ . 38984) "FRun rmail on RMAIL file: "])
#@55 Show first message in Rmail file from summary buffer.
(defalias 'rmail-summary-first-message #[nil "\300 \207" [beginning-of-buffer] 1 (#$ . 39181) nil])
#@54 Show last message in Rmail file from summary buffer.
(defalias 'rmail-summary-last-message #[nil "\300 \210\301y\207" [end-of-buffer -1] 1 (#$ . 39341) nil])
(defvar rmail-summary-edit-map nil)
(byte-code "\204 \302 \244\303\304\305#\210\303\306\307#\210\302\207" [rmail-summary-edit-map text-mode-map make-sparse-keymap define-key "" rmail-cease-edit " " rmail-abort-edit] 4)
#@36 Edit the contents of this message.
(defalias 'rmail-summary-edit-current-message #[nil "\302!\210\303 \210\304 !\207" [rmail-buffer rmail-summary-edit-map rmail-pop-to-buffer rmail-edit-current-message use-local-map] 2 (#$ . 39733) nil])
#@63 Finish editing message, then go back to Rmail summary buffer.
(defalias 'rmail-summary-cease-edit #[nil "\301 \210\302!\207" [rmail-summary-buffer rmail-cease-edit rmail-pop-to-buffer] 2 (#$ . 39978) nil])
#@86 Abort edit of current message; restore original contents.
Go back to summary buffer.
(defalias 'rmail-summary-abort-edit #[nil "\301 \210\302!\207" [rmail-summary-buffer rmail-abort-edit rmail-pop-to-buffer] 2 (#$ . 40191) nil])
#@221 Show message containing next match for REGEXP.
Prefix argument gives repeat count; negative argument means search
backwards (through earlier messages).
Interactively, empty argument means use same regexp used last time.
(defalias 'rmail-summary-search-backward #[(regexp &optional n) "rq\210\303 \n[\")\207" [rmail-buffer regexp n rmail-search] 3 (#$ . 40428) (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0)) (prompt (concat (if reversep "Reverse " #1="") "Rmail search (regexp")) regexp) (setq prompt (concat prompt (if rmail-search-last-regexp (concat ", default " rmail-search-last-regexp "): ") "): "))) (setq regexp (read-string prompt)) (cond ((not (equal regexp #1#)) (setq rmail-search-last-regexp regexp)) ((not rmail-search-last-regexp) (error "No previous Rmail search string"))) (list rmail-search-last-regexp (prefix-numeric-value current-prefix-arg)))])
#@221 Show message containing next match for REGEXP.
Prefix argument gives repeat count; negative argument means search
backwards (through earlier messages).
Interactively, empty argument means use same regexp used last time.
(defalias 'rmail-summary-search #[(regexp &optional n) "p\305 \306\216\307\n!\210\310 \f\"+\207" [selwin buffer rmail-buffer regexp n selected-window ((byte-code "\302!\210 q\207" [selwin buffer select-window] 2)) rmail-pop-to-buffer rmail-search] 3 (#$ . 41322) (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0)) (prompt (concat (if reversep "Reverse " #1="") "Rmail search (regexp")) regexp) (setq prompt (concat prompt (if rmail-search-last-regexp (concat ", default " rmail-search-last-regexp "): ") "): "))) (setq regexp (read-string prompt)) (cond ((not (equal regexp #1#)) (setq rmail-search-last-regexp regexp)) ((not rmail-search-last-regexp) (error "No previous Rmail search string"))) (list rmail-search-last-regexp (prefix-numeric-value current-prefix-arg)))])
#@79 Show original message header if pruned header currently shown, or vice versa.
(defalias 'rmail-summary-toggle-header #[nil "\304 \305\216 q\210\306 \210*\307 !\211\205 \310 \311\216\312\n!\210eb*)\207" [#1=#:wconfig rmail-buffer window owin current-window-configuration ((set-window-configuration #1#)) rmail-toggle-header get-buffer-window selected-window ((select-window owin)) select-window] 3 (#$ . 42339) nil])
#@116 Add LABEL to labels associated with current Rmail message.
Completion is performed over known labels when reading.
(defalias 'rmail-summary-add-label #[(label) "rq\210\302 !)\207" [rmail-buffer label rmail-add-label] 2 (#$ . 42766) (list (save-current-buffer (set-buffer rmail-buffer) (rmail-read-label "Add label")))])
#@121 Remove LABEL from labels associated with current Rmail message.
Completion is performed over known labels when reading.
(defalias 'rmail-summary-kill-label #[(label) "rq\210\302 \303\")\207" [rmail-buffer label rmail-set-label nil] 3 (#$ . 43094) (list (save-current-buffer (set-buffer rmail-buffer) (rmail-read-label "Kill label")))])
#@78 Replace bindings to `mail-send-and-exit' with `rmail-summary-send-and-exit'.
(defalias 'rmail-summary-override-mail-send-and-exit #[nil "\302\303\304 !!\210\305\306!\307\211\205# @\310\304 \311#\210 A\211\204 \307*\207" [key --dolist-tail-- use-local-map copy-keymap current-local-map where-is-internal mail-send-and-exit nil define-key rmail-summary-send-and-exit] 5 (#$ . 43437)])
#@123 Send mail in another window.
While composing the message, use \[mail-yank-original] to yank the
original message into it.
(defalias 'rmail-summary-mail #[nil "\302!\211\203 \303 !\210\202 q\210)\304\305\211\211\211\211p&\210\306 \207" [rmail-buffer window get-buffer-window select-window rmail-start-mail nil rmail-summary-override-mail-send-and-exit] 8 (#$ . 43834) nil])
#@64 Continue composing outgoing message previously being composed.
(defalias 'rmail-summary-continue #[nil "\302!\211\203 \303 !\210\202 q\210)\304\305!\207" [rmail-buffer window get-buffer-window select-window rmail-start-mail t] 3 (#$ . 44219) nil])
#@224 Reply to the current message.
Normally include CC: to all other recipients of original message;
prefix argument means ignore them. While composing the reply,
use \[mail-yank-original] to yank the original message into it.
(defalias 'rmail-summary-reply #[(just-sender) "\303!\211\203 \304 !\210\202 q\210)\305\n!\210\306 \207" [rmail-buffer window just-sender get-buffer-window select-window rmail-reply rmail-summary-override-mail-send-and-exit] 3 (#$ . 44479) "P"])
#@225 Edit a mail message which is based on the contents of the current message.
For a message rejected by the mail system, extract the interesting headers and
the body of the original message; otherwise copy the current message.
(defalias 'rmail-summary-retry-failure #[nil "\302!\211\203 \303 !\210\202 q\210)\304 \210\305 \207" [rmail-buffer window get-buffer-window select-window rmail-retry-failure rmail-summary-override-mail-send-and-exit] 3 (#$ . 44960) nil])
#@47 Send mail reply and return to summary buffer.
(defalias 'rmail-summary-send-and-exit #[nil "\300\301!\207" [mail-send-and-exit t] 2 (#$ . 45433) nil])
#@156 Forward the current message to another user.
With prefix argument, "resend" the message instead of forwarding it;
see the documentation of `rmail-resend'.
(defalias 'rmail-summary-forward #[(resend) "\212\303!\211\203 \304 !\210\202 q\210)\305\n!\210\306 )\207" [rmail-buffer window resend get-buffer-window select-window rmail-forward rmail-summary-override-mail-send-and-exit] 3 (#$ . 45591) "P"])
#@46 Resend current message using `rmail-resend'.
(defalias 'rmail-summary-resend #[nil "\212\302!\211\203 \303 !\210\202 q\210)\304\305!)\207" [rmail-buffer window get-buffer-window select-window call-interactively rmail-resend] 3 (#$ . 46002) nil])
#@596 Append this message to mail file FILE-NAME.
This works with both mbox format and Babyl format files,
outputting in the appropriate format for each.
The default file name comes from `rmail-default-file',
which is updated to the name you use in this command.
A prefix argument N says to output that many consecutive messages
from those in the summary, starting with the current one.
Deleted messages are skipped and don't count.
When called from Lisp code, N may be omitted and defaults to 1.
This command always outputs the complete message header,
even the header display is currently pruned.
(defalias 'rmail-summary-output #[(&optional file-name n) "\306\307 \nW\205C \310 \210r q\210\f)\211=?\205C Tr q\210\307 \311
\312\"\210*
\2036 \313\307!\210\202 \nW\203 \314\312!\210\202 *\207" [prev-msg i n rmail-buffer rmail-current-message rmail-delete-after-output 0 nil rmail-summary-goto-msg rmail-output 1 rmail-summary-delete-forward rmail-summary-next-msg file-name] 3 (#$ . 46260) (progn (require 'rmailout) (list (rmail-output-read-file-name) (prefix-numeric-value current-prefix-arg)))])
(defalias 'rmail-summary-output-to-rmail-file 'rmail-summary-output)
#@472 Append this message to mbox file named FILE-NAME.
A prefix argument N says to output that many consecutive messages,
from the summary, starting with the current one.
Deleted messages are skipped and don't count.
When called from Lisp code, N may be omitted and defaults to 1.
This outputs the message header as you see it (or would see it)
displayed in Rmail.
The default file name comes from `rmail-default-file',
which is updated to the name you use in this command.
(defalias 'rmail-summary-output-as-seen #[(&optional file-name n) "\306\307!\210\310\311 \nW\205G \312 \210r q\210\f)\211=?\205G Tr q\210\311 \313\314\"\210*
\203: \315\311!\210\202 \nW\203 \316\314!\210\202 *\207" [prev-msg i n rmail-buffer rmail-current-message rmail-delete-after-output require rmailout 0 nil rmail-summary-goto-msg rmail-output-as-seen 1 rmail-summary-delete-forward rmail-summary-next-msg file-name] 3 (#$ . 47443) (progn (require 'rmailout) (list (rmail-output-read-file-name) (prefix-numeric-value current-prefix-arg)))])
#@269 Output current message to another Rmail file, chosen with a menu.
Also set the default for subsequent \[rmail-output-to-babyl-file] commands.
The variables `rmail-secondary-file-directory' and
`rmail-secondary-file-regexp' control which files are offered in the menu.
(defalias 'rmail-summary-output-menu #[nil "rq\210\302\303\304!\210* \205 \305\302!\207" [rmail-buffer rmail-delete-after-output nil call-interactively rmail-output-menu rmail-summary-delete-forward] 2 (#$ . 48479) nil])
(defalias 'rmail-summary-construct-io-menu #[nil "\303!\211\203\" \304\n\305\306\307\306 \310#B#\210\304\n\311\312\307\312 \313#B#\202- \304\n\314\315#\210\304\n\316\317#)\207" [rmail-secondary-file-directory files rmail-summary-mode-map rmail-find-all-files define-key [menu-bar classify input-menu] "Input Rmail File" rmail-list-to-menu rmail-summary-input [menu-bar classify output-menu] "Output Rmail File" rmail-summary-output [menu-bar classify input-menu] ("Input Rmail File" . rmail-disable-menu) [menu-bar classify output-menu] ("Output Rmail File" . rmail-disable-menu)] 9])
#@122 Write this message body to the file FILE-NAME.
FILE-NAME defaults, interactively, from the Subject field of the message.
(defalias 'rmail-summary-output-body #[(&optional file-name) "rq\210\303\n\203 \304\n!\210\202 \305\304!\210* \205 \306\303!\207" [rmail-buffer rmail-delete-after-output file-name nil rmail-output-body-to-file call-interactively rmail-summary-delete-forward] 2 (#$ . 49565) nil])
#@121 Sort messages of current Rmail summary by "Date" header.
If prefix argument REVERSE is non-nil, sorts in reverse order.
(defalias 'rmail-summary-sort-by-date #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-date] 3 (#$ . 49978) "P"])
#@152 Sort messages of current Rmail summary by "Subject" header.
Ignores any "Re: " prefix. If prefix argument REVERSE is
non-nil, sorts in reverse order.
(defalias 'rmail-summary-sort-by-subject #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-subject] 3 (#$ . 50247) "P"])
#@173 Sort messages of current Rmail summary by author.
This uses either the "From" or "Sender" header, downcased.
If prefix argument REVERSE is non-nil, sorts in reverse order.
(defalias 'rmail-summary-sort-by-author #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-author] 3 (#$ . 50553) "P"])
#@181 Sort messages of current Rmail summary by recipient.
This uses either the "To" or "Apparently-To" header, downcased.
If prefix argument REVERSE is non-nil, sorts in reverse order.
(defalias 'rmail-summary-sort-by-recipient #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-recipient] 3 (#$ . 50878) "P"])
#@278 Sort messages of current Rmail summary by other correspondent.
This uses either the "From", "Sender", "To", or
"Apparently-To" header, downcased. Uses the first header not
excluded by `mail-dont-reply-to-names'. If prefix argument
REVERSE is non-nil, sorts in reverse order.
(defalias 'rmail-summary-sort-by-correspondent #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-correspondent] 3 (#$ . 51217) "P"])
#@127 Sort messages of current Rmail summary by the number of lines.
If prefix argument REVERSE is non-nil, sorts in reverse order.
(defalias 'rmail-summary-sort-by-lines #[(reverse) "\301\302\"\207" [reverse rmail-sort-from-summary rmail-sort-by-lines] 3 (#$ . 51661) "P"])
#@158 Sort messages of current Rmail summary by labels.
LABELS is a comma-separated list of labels.
If prefix argument REVERSE is non-nil, sorts in reverse order.
(defalias 'rmail-summary-sort-by-labels #[(reverse labels) "\301\302\"\207" [reverse rmail-sort-from-summary #[(reverse) "\302 \"\207" [reverse labels rmail-sort-by-labels] 3]] 3 (#$ . 51938) "P\nsSort by labels: "])
#@237 Sort the Rmail buffer using sorting function SORTFUN.
Passes REVERSE to SORTFUN as its sole argument. Then regenerates
the summary. Note that the whole Rmail buffer is sorted, even if
the summary is only showing a subset of messages.
(defalias 'rmail-sort-from-summary #[(sortfun reverse) "\304\305!\210\306 \307\216\310 !\210\n !*\207" [selwin rmail-buffer sortfun reverse require rmailsort selected-window ((select-window selwin)) rmail-pop-to-buffer] 2 (#$ . 52321)])
(provide 'rmailsum)