Current File : //usr/local/share/emacs/27.2/lisp/mail/rmailsum.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\311\312\313\314&\207" [require rmail rfc2047 custom-declare-variable rmail-summary-scroll-between-messages funcall function #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [t] 1] "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)) (#$ . 1138))
#@60 (FUNCTION . ARGS) to regenerate this Rmail summary buffer.
(defvar rmail-summary-redo nil (#$ . 1435))
#@69 Overlay used to highlight the current message in the Rmail summary.
(defvar rmail-summary-overlay nil (#$ . 1544))
(put 'rmail-summary-overlay 'permanent-local t)
#@36 Keymap used in Rmail summary mode.
(defvar rmail-summary-mode-map (byte-code "\300 \301!\210\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\332#\210\302\334\335#\210\302\336\337#\210\302\340\326#\210\302\341\337#\210\302\342\343#\210\302\344\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\302\360\361#\210\302\362\363#\210\302\364\365#\210\302\366\367#\210\302\370\371#\210\302\372\373#\210\302\374\375#\210\302\376\377#\210\302\201@ \201A #\210\302\201B \201C #\210\302\201D \201E #\210\302\201F \201G #\210\302\201H \201I #\210\302\201J \201K #\210\302\201L \201M #\210\302\201N \201O #\210\302\201P \201Q #\210\302\201R \201S #\210\302\201T \201U #\210\302\201V \201W #\210\302\201X \201Y #\210\302\201Z \201[ #\210\302\201\\ \201] #\210\302\201^ \201_ #\210\302\201` \201_ #\210\302\201a \201b #\210\302\201c \201d #\210\302\201e \201f #\210\302\201g \201h #\210\302\201i \201j #\210\302\201k \201l #\210\302\201m \201n #\210\302\201o \201p #\210\302\201q \201r #\210\302\201s \201t #\210\302\201u \201v #\210\302\201w \201x #\210\302\201y \201z \201x \201z !B#\210\302\201{ \201| #\210\302\201} \201~ #\210\302\201 \201\200 #\210\302\201\201 \201\202 #\210\302\201\203 \201\204 #\210\302\201\205 \201\206 #\210\302\201\207 \201\210 #\210\302\201\211 \201\212 #\210\302\201\213 \201\214 #\210\302\201\215 \201\216 \201x \201\216 !B#\210\302\201\217 \201\220 #\210\302\201\221 \201\222 #\210\302\201\223 \201\224 #\210\302\201\225 \201\226 #\210\302\201\227 \201\230 #\210\302\201\231 \201\232 #\210\302\201\233 \201\234 \201x \201\234 !B#\210\302\201\235 \201\236 #\210\302\201\237 \201\240 #\210\302\201\241 \201\242 #\210\302\201\243 \201\244 #\210\302\201\245 \201\246 #\210\302\201\247 \201\250 #\210\302\201\251 \201\252 #\210\302\201\253 \201\254 #\210\302\201\255 \201\256 \201x \201\256 !B#\210\302\201\257 \201\260 #\210\302\201\261 \201\262 #\210\302\201\263 \201\264 #\210\302\201\265 \201\266 #\210\302\201\267 \201\270 \201x \201\270 !B#\210\302\201\271 \201\272 #\210\302\201\273 \201\274 #\210\302\201\275 \201\276 #\210\302\201\277 \201\300 #\210\302\201\301 \201\302 #\210\302\201\303 \201\304 #\210\302\201\305 \201\306 #\210\302\201\307 \201\310 #\210\211\207" [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 [33554464] 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)] 7) (#$ . 1713))
#@16
(fn &rest _)
(defalias 'rmail-update-summary #[128 "\301@A\"\207" [rmail-summary-redo apply] 4 (#$ . 8489)])
#@58 Display a summary of all messages, one line per message.
(defalias 'rmail-summary #[0 "\300\301\302\303#\207" [rmail-new-summary "All" (rmail-summary) nil] 4 (#$ . 8608) nil])
#@151 Display a summary of all messages with one or more LABELS.
LABELS should be a string containing the desired labels, separated by commas.
(fn LABELS)
(defalias 'rmail-summary-by-labels #[257 "\211\301\230\203 \206
\302\303!\262\211\304\305P\306D\307\310\311!\312Q$\207" [rmail-last-multi-labels "" error "No label specified" rmail-new-summary "labels " rmail-summary-by-labels rmail-message-labels-p " \\(" mail-comma-list-regexp "\\)\\(,\\|\\'\\)"] 8 (#$ . 8791) "sLabels to summarize by: "])
#@282 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 regular expression.
(fn RECIPIENTS &optional PRIMARY-ONLY)
(defalias 'rmail-summary-by-recipients #[513 "\300\301P\302E\303%\207" [rmail-new-summary "recipients " rmail-summary-by-recipients rmail-message-recipients-p] 8 (#$ . 9301) "sRecipients to summarize by: \nP"])
#@46
(fn MSG RECIPIENTS &optional PRIMARY-ONLY)
(defalias 'rmail-message-recipients-p #[770 "\300\301$\207" [rmail-apply-in-message rmail-message-recipients-p-1] 8 (#$ . 9804)])
#@42
(fn RECIPIENTS &optional PRIMARY-ONLY)
(defalias 'rmail-message-recipients-p-1 #[513 "`\300\301!\210`}\210\302\303\304!\206 \305\"\2061 \302\303\306!\206 \305\"\2061 \211?\2051 \302\303\307!\2060 \305\"\207" [search-forward "\n\n" string-match mail-fetch-field "To" "" "From" "Cc"] 6 (#$ . 9988)])
#@254 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.
(fn REGEXP)
(defalias 'rmail-summary-by-regexp #[257 "\211\301\230\203 \206
\302\303!\262\211\304\305P\306D\307$\207" [rmail-last-regexp "" error "No regexp specified" rmail-new-summary "regexp " rmail-summary-by-regexp rmail-message-regexp-p] 6 (#$ . 10300) "sRegexp to summarize by: "])
#@92 Return t, if for message number MSG, regexp REGEXP matches in the header.
(fn MSG REGEXP)
(defalias 'rmail-message-regexp-p #[514 "\300\301$\207" [rmail-apply-in-message rmail-message-regexp-p-1] 7 (#$ . 10844)])
#@101 Make an RFC2047-decoded copy of current buffer, apply FUNCTION with ARGS.
(fn FUNCTION &rest ARGS)
(defalias 'rmail--decode-and-apply #[385 "p\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210eb\210\312e\212\313\314\315\316#\210`)\"\210\317\"*\262\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-buffer-substring rfc2047-decode-region search-forward "\n\n" nil move apply] 10 (#$ . 11068)])
#@19
(fn MSG REGEXP)
(defalias 'rmail-message-regexp-p-1 #[514 "`\212\302\303!\210`)}\210\203 \203 `#\207\304\305\306\307$\207" [rmail-enable-mime rmail-search-mime-header-function search-forward "\n\n" rmail--decode-and-apply re-search-forward nil t] 7 (#$ . 11571)])
#@260 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 regular expression.
(fn SUBJECT &optional WHOLE-MESSAGE)
(defalias 'rmail-summary-by-topic #[513 "\300\301P\302E\303%\207" [rmail-new-summary "about " rmail-summary-by-topic rmail-message-subject-p] 8 (#$ . 11852) (byte-code "\301\302 !\303\203
\304\202 \305\306Q\307\310\211$D\207" [current-prefix-arg regexp-quote rmail-simplified-subject "Topics to summarize by (regexp" ", default current subject" "" "): " read-string nil] 7)])
#@44
(fn MSG SUBJECT &optional WHOLE-MESSAGE)
(defalias 'rmail-message-subject-p #[770 "\211\203 \300\301\302\303\304&\207\305\306!\"\207" [rmail-apply-in-message rmail--decode-and-apply re-search-forward nil t string-match rmail-simplified-subject] 10 (#$ . 12504)])
#@186 Display a summary of all messages whose "From" field matches SENDERS.
SENDERS is a regular expression. The default for SENDERS matches the
sender of the current message.
(fn SENDERS)
(defalias 'rmail-summary-by-senders #[257 "\300\301P\302D\303$\207" [rmail-new-summary "senders " rmail-summary-by-senders rmail-message-senders-p] 6 (#$ . 12782) (byte-code "\300\301!\302!\303\203 \304\202 \305\306Q\307\310\211$C\207" [rmail-get-header "From" regexp-quote "Senders to summarize by (regexp" ", default this message's sender" "" "): " read-string nil] 8)])
#@20
(fn MSG SENDERS)
(defalias 'rmail-message-senders-p #[514 "\300\301\302\"\206\n \303\"\207" [string-match rmail-get-header "From" ""] 7 (#$ . 13355)])
(defvar rmail-summary-symbol-number 0)
#@480 Create a summary of selected messages.
DESC makes part of the mode line of the summary buffer.
REDO is what to put in `rmail-summary-redo'; usually
its car is the function that called `rmail-new-summary'
and its cdr is the arguments passed to that function.
For each message, applies FUNCTION to the message number and ARGS...,
and if the result is non-nil, it includes that message in the summary.
If FUNCTION is nil, includes all messages.
(fn DESC REDO FUNCTION &rest ARGS)
(defalias 'rmail-new-summary #[899 "\306\307!\210\204\f \310\311!\210\312\211\211\313\314!\203 \315\262rq\210\316$\211\262\n\262)\204\221 \317 \203_ \203_ \f\204_ \320\321
\"\210\322\323\324 !!\210\325!\210\211\326\324 !=\204c \327 \210\202c \325!\210q\210$\330 \203\205 \321 \212\331\332\333\334\335!\336\"\337$\216\325 !\210*\210\202\212 r q\210)\340 \266\211q\210\341\315\211#\210\342 \210\306\343!\207" [rmail-buffer rmail-summary-buffer rmail-current-message pop-up-windows pop-up-frames rmail-summary-window-size message "Computing summary lines..." error "No RMAIL buffer found" nil derived-mode-p 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 make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 rmail-maybe-display-summary rmail-summary-goto-msg rmail-summary-construct-io-menu "Computing summary lines...done" rmail-total-messages] 16 (#$ . 13556)])
#@398 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 what to put in `rmail-summary-redo'.
The current buffer must be a Rmail buffer either containing a
collection of mbox formatted messages or displaying a single
message.
(fn DESCRIPTION REDO FUNCTION ARGS)
(defalias 'rmail-new-summary-1 #[1028 "\306\307\310 \311p \312\212\313 \203 q\210\314 \315 \316\307\317\320\321\"\322\"\323$\216\212~\210eb\210Y\203m rq\210 \203G \324\n #\203R \325!BB\262)T\262\307U\204- \326\246\307U\203- \327\330\"\210\202- \237\262*\266*\266\306
\203\206 r q\210\306)\212p q\210\306 \331 \210\203\244 \332@A\"\210A\262\202\222 eb\210)\312 \333 \210\334\335!\210\312\336\nPDC !\210*\207" [rmail-new-summary-line-count rmail-total-messages inhibit-read-only rmail-view-buffer rmail-summary-buffer rmail-enable-mime nil 0 rmail-get-create-summary-buffer 1 t rmail-buffers-swapped-p point-min-marker point-max-marker make-byte-code "\300\301}\207" vconcat vector [] 2 apply rmail-get-summary 10 message "Computing summary lines...%d" erase-buffer princ rmail-summary-mode make-local-variable minor-mode-alist ": " rmail-buffer buffer-read-only rmail-summary-redo] 19 (#$ . 15101)])
#@84 Return the Rmail summary buffer.
If necessary, it is created and undo is disabled.
(defalias 'rmail-get-create-summary-buffer #[0 "\203\f \302!\203\f \207\303\302 \304P!r\211q\210\305)\211\207" [rmail-summary-buffer buffer-undo-list buffer-name generate-new-buffer "-summary" t] 3 (#$ . 16456)])
#@412 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.
(fn MSGNUM)
(defalias 'rmail-get-summary #[257 "SH\211\204 T\302!\262SI\210\211\207" [rmail-summary-vector rmail-new-summary-line-count rmail-create-summary-line] 5 (#$ . 16763)])
(byte-code "\300\301\302\303\304DD\305\306\303\307\310\311\312& \207" [custom-declare-variable rmail-summary-line-decoder funcall function #[0 "\300\207" [rfc2047-decode-string] 1] "Function to decode a Rmail summary line.\nIt receives the summary line for one message as a string\nand should return the decoded string.\n\nBy default, it is `rfc2047-decode-string', which decodes MIME-encoded\nsubject." :type :version "23.3" :group rmail-summary] 10)
#@266 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.
(fn MSGNUM)
(defalias 'rmail-create-summary-line #[257 "\303!\304!\305!\306\211\212\307 \203 q\210 \203 \310\"\262\212\214~\210b\210\311\312\313#\203M `}\210b\210\311\n\314P\306\313#\205A \315\316!\262\317$\202Q \320!+\207" [rmail-view-buffer rmail-summary-line-count-flag rmail-attribute-header 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] 11 (#$ . 17811)])
#@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 #[0 "\301!\302\303\304\203 \305\302\306#\305\307\310#P\202 \303\262GW\203< \305\211T#\211\262\311\230\2045 P\262T\262\202 G\302V\203I \312\313Q\262\207" [rmail-attribute-header mail-fetch-field 0 "" nil substring 1 2 6 "-" "{" "}"] 9 (#$ . 18591)])
(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 #[0 "\301!\211\205 \211\302\230?\205 \303\304\305\306\"\"\210\307\310\"\207" [rmail-keyword-header mail-fetch-field "" mapc rmail-make-label split-string ", " format "{ %s } "] 6 (#$ . 19113)])
#@393 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.
(fn MSGNUM DELETED UNSEEN LINES)
(defalias 'rmail-create-summary #[1028 "eb\210\301 \302 \303\211\211\211\211\204 \304\202k \305X\203$ \306\307 \"\202k \310X\2033 \306\311 \"\202k \312X\203B \306\313 \"\202k \314X\203S \306\315 \316\245\"\202k \317X\203d \306\320 \316\245\"\202k \306\321 \316\245\"\262 \203v \322\202\200 \203 \323\202\200 \324\262\306\325\f#\262@\262A@\262\304\n\260!\207" [rmail-summary-line-decoder 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 "] 18 (#$ . 19565)])
#@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 #[0 "eb\210\212\303\304\305\306#\204 \307\202k \306\303\310\311 \306#)\203. \312\313\314\315\224\315\225{!\316\224\316\225{#\202k \306\303\317\311 \306#)\203L \312\313\314\316\224\316\225{!\315\224\315\225{#\202k \303\320\311 \306#\203j \312\321\315\224\315\225{\322\224\322\225{\316\224\316\225{$\202k \323)\324\212\303\325\305\306#\205\214 \326`S\327y\210\330\331!\204y \332u\210\333\305x\210`{!\305\211\211\203\251 \334 \206\244 \335\336\337 !\340\336\n!\341\260\"\203\306 \212eb\210\303\342\305\306#\203\305 \343\326`\305\210\333\305x\210`{!P\262)\204\316 \344\202-\345!\262\346\347\350#\262G\262\334\351\"\262\312\352\203\361 \353X\203\376 \354\355\353Z]\"\202,\354\356Z\355W\203
\355\202!\357\\W\203 \353Z\202!\356Z\211\262\353\\^#\"\266\204)Q\303\360\305\306#\203f\305\211\333\305w\210`\262\327y\210`S{\262\330\331!\203a\211\350\355\225\311 {Q\262\327y\210\202K\262\202r\303\361\305\306#\210`\305\210`{\362PD\207" [case-fold-search rmail-user-mail-address-regexp user-mail-address 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 "\\($\\|@\\)\\|" "\\>\\)" "^To:[ ]*" "to: " " " rfc2047-decode-string replace-regexp-in-string "\n+" " " "[@%]" "%25s" 25 substring 0 14 11 "^Subject:" "[\n][\n]+" "\n"] 14 (#$ . 20571)])
#@25
(fn &optional NUMBER)
(defalias 'rmail-summary-next-all #[256 "\211\204 \301\262\211y\210m\203 \211\302V\203 \303y\210\304!\207" [rmail-buffer 1 0 -1 display-buffer] 3 (#$ . 22572) "p"])
#@25
(fn &optional NUMBER)
(defalias 'rmail-summary-previous-all #[256 "\300\206 \301[!\207" [rmail-summary-next-all 1] 3 (#$ . 22772) "p"])
#@194 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.
(fn &optional NUMBER)
(defalias 'rmail-summary-next-msg #[256 "\211\204 \301\262\302y\210\211\302V\203 \303\210\211\302W\203 \211[\202 \211\302V\203) \304\202* \305\303\302V\203G \306\303\307#\206: \211\211\262\203G S\262\202+ \266\310 \210\311!\207" [rmail-buffer 1 0 nil re-search-forward re-search-backward "^.....[^D]" t beginning-of-line display-buffer] 8 (#$ . 22919) "p"])
#@164 Display previous non-deleted msg from rmail file.
With optional prefix argument NUMBER, moves backward this number of
non-deleted messages.
(fn &optional NUMBER)
(defalias 'rmail-summary-previous-msg #[256 "\300\206 \301[!\207" [rmail-summary-next-msg 1] 3 (#$ . 23491) "p"])
#@145 Show next message with LABELS. Defaults to last labels used.
With prefix argument N moves forward N messages with these labels.
(fn N LABELS)
(defalias 'rmail-summary-next-labeled-message #[514 "\302rq\210\303\"\210 \262)\304!\207" [rmail-buffer rmail-current-message nil rmail-next-labeled-message rmail-summary-goto-msg] 6 (#$ . 23777) "p\nsMove to next msg with labels: "])
#@150 Show previous message with LABELS. Defaults to last labels used.
With prefix argument N moves backward N messages with these labels.
(fn N LABELS)
(defalias 'rmail-summary-previous-labeled-message #[514 "\302rq\210\303\"\210 \262)\304!\207" [rmail-buffer rmail-current-message nil rmail-previous-labeled-message rmail-summary-goto-msg] 6 (#$ . 24168) "p\nsMove to previous msg with labels: "])
#@145 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.
(fn N)
(defalias 'rmail-summary-next-same-subject #[257 "\211\302V\303\211\211rq\210\304 \262 \262)\212\302U\204r \203\" m?\202$ o?\203r \303\211\204Z \2035 m?\2027 o?\203Z \203B \305\202C \306y\210\307`d\310`\\^{!\262\304!\230\262\202( \211\203a \262\210\203k S\202m T\262\202 )\211\203} \311!\202\211 \312\313\203\207 \314\202\210 \315\"\207" [rmail-buffer rmail-current-message 0 nil rmail-simplified-subject 1 -1 string-to-number 6 rmail-summary-goto-msg error "No %s message with same subject" "following" "previous"] 11 (#$ . 24576) "p"])
#@156 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.
(fn N)
(defalias 'rmail-summary-previous-same-subject #[257 "\300[!\207" [rmail-summary-next-same-subject] 3 (#$ . 25285) "p"])
#@254 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.
(fn &optional COUNT)
(defalias 'rmail-summary-delete-forward #[256 "\211\247\204 \302\262\303\304W\304U?\205s \211\205 o?\205s \305 \210rq\210\306 \210 \262)\307!\210\211\2036 o\2027 m\204S \212\310 \210\311\312!)\203S \211\203M \313\202N \302y\210\202. \304V\203^ S\202` T\262m\203\f \211\204\f \304\262\313y\210\202\f \207" [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 (#$ . 25569) "p"])
#@257 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.
(fn &optional COUNT)
(defalias 'rmail-summary-delete-backward #[256 "\300[!\207" [rmail-summary-delete-forward] 3 (#$ . 26328) "p"])
#@26
(fn &optional N UNDEL)
(defalias 'rmail-summary-mark-deleted #[512 "\203 \304 =\204 \305\306\211#\210m\204L \307\310\"\203L \311\312\311w\210\313\311w\210\211\203: \314\315!\203A \316\317!\210\312c\210\202A \316\317!\210\315c\210r\nq\210 S\311I\210*\320 \207" [rmail-summary-overlay buffer-read-only rmail-buffer rmail-summary-vector rmail-summary-msg-number rmail-summary-goto-msg t overlay-get face nil " " "0-9" looking-at "D" delete-char 1 beginning-of-line] 6 (#$ . 26703)])
#@48 Update the summary line for message N.
(fn N)
(defalias 'rmail-summary-update-line #[257 "\303\304\211#\205Q \305\306 \306\307!\310\"\305\211@\211\262\203. \311\312\"\211\262\204. A\262\202 |\210\313r q\210\nS\314 !I)p\"\210\205N \315y\210\316\305!)\266\205\207" [buffer-read-only rmail-buffer rmail-summary-vector 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] 11 (#$ . 27199)])
#@10
(fn N)
(defalias 'rmail-summary-mark-undeleted #[257 "\300\301\"\207" [rmail-summary-mark-deleted t] 4 (#$ . 27716)])
#@20
(fn &optional N)
(defalias 'rmail-summary-deleted-p #[256 "\212\211\203 \300\301\302#\210\303\301w\210\304\301w\210\305\306!)\207" [rmail-summary-goto-msg nil t " " "0-9" looking-at "D"] 5 (#$ . 27843)])
#@105 Undelete current message.
Optional prefix ARG means undelete ARG previous messages.
(fn &optional ARG)
(defalias 'rmail-summary-undelete #[256 "\211\305U\204\n \306!\207\307`\307\210\310\311\307\312#\203F \313\314!\210\315 \210 \203* \nq\210\202. \316\n!\210\317 !\2038 \320\305!\210 \203@ \316\n!\210\316\f!\202H \211b)\207" [buffer-read-only rmail-enable-mime rmail-buffer rmail-current-message rmail-summary-buffer 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] 7 (#$ . 28058) "p"])
#@96 Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs.
(fn &optional N)
(defalias 'rmail-summary-undelete-many #[256 "\211\203D \211\303V\203| m\204| \304 \210\305\306 \203' rq\210\307\310!\210 \262)\311!\210\210m\204= \212\312 \210\313\314!)\203= \310y\210\202( \211S\262\202 \304\310!\210\n\303\211W\203z \211\304 \210\305\306 \203j rq\210\307\310!\210 \262)\311!\210\210m\204r \310y\210\210\211T\262\202J \266m\205\202 \315y\207" [rmail-buffer rmail-current-message rmail-total-messages 0 rmail-summary-goto-msg nil rmail-summary-deleted-p rmail-undelete-previous-message 1 rmail-summary-mark-undeleted beginning-of-line looking-at " *[0-9]+ " -1] 7 (#$ . 28709) "P"])
(put 'rmail-summary-mode 'mode-class 'special)
(defvar rmail-summary-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [rmail-summary-mode-hook variable-documentation put "Hook run after entering RMAIL Summary mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp rmail-summary-mode-map definition-name rmail-summary-mode] 4)
(defvar rmail-summary-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [rmail-summary-mode-abbrev-table rmail-summary-mode-map variable-documentation put purecopy "Keymap for `rmail-summary-mode'." boundp rmail-summary-mode-syntax-table definition-name rmail-summary-mode (lambda (#1=#:def-tmp-var) (defvar rmail-summary-mode-syntax-table #1#)) make-syntax-table "Syntax table for `rmail-summary-mode'." (lambda (#1#) (defvar rmail-summary-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `rmail-summary-mode'." derived-mode-parent special-mode] 5)
#@1127 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.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `rmail-summary-mode-hook', as the final or penultimate step
during initialization.
(defalias 'rmail-summary-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
$=\204R \326
\325$C#\210\327 !\210\330\f!\210
$\307\211%&\330'!\210\306\331!\210\306\332!\210\306\333!\210\334\306\335!\210\334 \306\336!\210\306\337!\210\340 \341 \210)\342\343!\207" [delay-mode-hooks major-mode mode-name rmail-summary-mode-map rmail-summary-mode-syntax-table rmail-summary-mode-abbrev-table make-local-variable t special-mode rmail-summary-mode "RMAIL Summary" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table rmail-buffer rmail-total-messages rmail-current-message 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 local-abbrev-table truncate-lines buffer-read-only text-mode-syntax-table] 6 (#$ . 30716) nil])
(defalias 'rmail-summary-disable #[0 "\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 #[0 "\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])
#@293 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.
(fn N &optional NOMOVE UNSEEN)
(defalias 'rmail-summary-mark-seen #[769 "\212\204 \303 \210\304\305w\210\306\305w\210\307g\203 \310\202 \311\"\205D \305\312\313!\210\211\203- \314\202. \304c\210)\315\316 \316\317!\"r q\210\nSI)\262)\207" [buffer-read-only 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] 7 (#$ . 33418)])
#@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 (#$ . 34127))
(defalias 'rmail-summary-rmail-update #[0 "\306\212m\203\n \307y\210\310 \210\311\306w\210m?\205\242 \312`\313\306w\210`{! \204% \306 =\204\235 \314\f\315\"\316 \203U \n\203J \317
\315 #\210\212\nb\210\320 \315\211#\210)\321!\205Q `\202W \306\320\315\"\210\203{ \322\323\324\325\326!\327\"\330$\216\331!\210\332\315\"\210)\202\213 \333\f!\203\213 r\fq\210\332\315\"\210)\334\335!\203\233 \333\f!\203\233 \335\f!\210\266\336\306!\262*\207" [buffer-read-only isearch-mode rmail-summary-put-back-unseen rmail-current-message rmail-buffer rmail-unseen-attr-index 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 make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 select-window rmail-show-message buffer-name fboundp linum-update rmail-summary-update-highlight] 9])
#@53 Save the buffer associated with this RMAIL summary.
(defalias 'rmail-summary-save-buffer #[0 "\301 \302\303\304\305\306!\307\"\310$\216\212\311!\210\312 *\207" [rmail-buffer current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 switch-to-buffer save-buffer] 7 (#$ . 35400) nil])
#@65 Select the message whose summary line you click on.
(fn EVENT)
(defalias 'rmail-summary-mouse-goto-message #[257 "\300\301!!b\210\302 \207" [posn-point event-end rmail-summary-goto-msg] 4 (#$ . 35739) "@e"])
(defalias 'rmail-summary-msg-number #[0 "\212\300 \210\301`d\302`\\^{!)\207" [beginning-of-line string-to-number 6] 5])
#@357 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.
(fn &optional N NOWARN SKIP-RMAIL)
(defalias 'rmail-summary-goto-msg #[768 ":\203\n \302!\262m\203 \303y\210\304 \210p`\305\306`d\307`\\^{!rq\210 )\310U\2030 \305\262\204; \262 \202\210 \311W\203I \312\313!\210\311\262 V\203e \211\310V\203e \312\314!\210db\210\315\305 #\210eb\210\316\317\320 \"\305\321#\204\210 \204 \312\322\n\"\210\262 \321\262b\210\203\273 \323 !\210\324!\210\304 \210\204\273 \325 \326\310\327\330\331 \"\332\"\333$\216\334!\210\335\n!\210)\210?\207" [rmail-buffer rmail-total-messages prefix-numeric-value -1 beginning-of-line nil string-to-number 6 0 1 message "No preceding message" "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 make-byte-code "\302\301!\210\300q\207" vconcat vector [select-window] 2 rmail-pop-to-buffer rmail-show-message] 17 (#$ . 36076) "P"])
#@18
(fn NOT-FOUND)
(defalias 'rmail-summary-update-highlight #[257 "\204 \301\300!\210\302``\"\303\304\305#\210\211\203 \303\306\307#\207\310\212\311 \210\312\307w\210`)\313 #\210\303\306\314#\207" [rmail-summary-overlay make-local-variable make-overlay overlay-put rmail-summary t face nil move-overlay beginning-of-line " " line-end-position highlight] 5 (#$ . 37366)])
#@140 Scroll the Rmail window forward.
If the Rmail window is displaying the end of a message,
advance to the next message.
(fn &optional DIST)
(defalias 'rmail-summary-scroll-msg-up #[256 "\211\303=\203\n \304\305!\207\306!\211\203@ \307 \310!\210\311d!\310!\210\262\2037 \204- \312\313!\202B \314\2063 \315!\202B \316!)\202B \317 \207" [rmail-buffer rmail-summary-scroll-between-messages other-window-scroll-buffer - rmail-summary-scroll-msg-down nil get-buffer-window selected-window select-window pos-visible-in-window-p error "End of buffer" rmail-summary-next-msg 1 scroll-other-window rmail-summary-beginning-of-message] 6 (#$ . 37751) "P"])
#@152 Scroll the Rmail window backward.
If the Rmail window is now displaying the beginning of a message,
move to the previous message.
(fn &optional DIST)
(defalias 'rmail-summary-scroll-msg-down #[256 "\211\303=\203\n \304\305!\207\306!\211\203@ \307 \310!\210\311e!\310!\210\262\2037 \204- \312\313!\202B \314\2063 \315!\202B \316!)\202B \317 \207" [rmail-buffer rmail-summary-scroll-between-messages other-window-scroll-buffer - rmail-summary-scroll-msg-up nil get-buffer-window selected-window select-window pos-visible-in-window-p error "Beginning of buffer" rmail-summary-previous-msg 1 scroll-other-window-down rmail-summary-beginning-of-message] 6 (#$ . 38411) "P"])
#@42 Show current message from the beginning.
(defalias 'rmail-summary-beginning-of-message #[0 "\300\301!\207" [rmail-summary-show-message BEG] 2 (#$ . 39097) nil])
#@33 Show bottom of current message.
(defalias 'rmail-summary-end-of-message #[0 "\300\301!\207" [rmail-summary-show-message END] 2 (#$ . 39264) nil])
#@96 Show current mail message.
Position it according to WHERE which can be BEG or END.
(fn WHERE)
(defalias 'rmail-summary-show-message #[257 "\304 \203+ \204+ \305\306 \n\"\210\307\310 !\210\311 !\210\211\312\313\310 !!=\204' \314 \210\210\202/ \311 !\210\211\315\267\202H eb\210\316\317!\210\202H db\210\320\321 S!\210\311 !\207" [pop-up-frames rmail-buffer rmail-summary-window-size 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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (BEG 53 END 63)) search-forward "\n\n" recenter window-height] 6 (#$ . 39416)])
#@53 Bury the Rmail buffer and the Rmail summary buffer.
(defalias 'rmail-summary-bury #[0 "p\301\302!\211\262\203 \303\304!\"\210\202 \305!\266\306\304!!\210\305!\207" [rmail-buffer nil get-buffer-window set-window-buffer other-buffer bury-buffer switch-to-buffer] 6 (#$ . 40135) nil])
#@38 Quit out of Rmail and Rmail summary.
(defalias 'rmail-summary-quit #[0 "\300 \210\301 \207" [rmail-summary-wipe rmail-quit] 1 (#$ . 40433) nil])
#@59 Kill and wipe away Rmail summary, remaining within Rmail.
(defalias 'rmail-summary-wipe #[0 "rq\210\302)\303p!\210\304 \305\302\306\"=\204 \307 \210\310!\207" [rmail-buffer rmail-summary-buffer nil kill-buffer selected-window next-window no-minibuf delete-window rmail-pop-to-buffer] 5 (#$ . 40584) nil])
#@68 Actually erase all deleted messages and recompute summary headers.
(defalias 'rmail-summary-expunge #[0 "rq\210\301 \203\f \302 \210)\303 \207" [rmail-buffer rmail-expunge-confirmed rmail-only-expunge rmail-update-summary] 1 (#$ . 40900) nil])
#@30 Expunge and save RMAIL file.
(defalias 'rmail-summary-expunge-and-save #[0 "\212\300 \210)\301 \210\302\303!\207" [rmail-expunge-and-save rmail-update-summary set-buffer-modified-p nil] 2 (#$ . 41151) nil])
#@352 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.
(fn &optional FILE-NAME)
(defalias 'rmail-summary-get-new-mail #[256 "\302rq\210\303!\210 \262)\211\304U\206 \305!\207" [rmail-buffer rmail-current-message nil rmail-get-new-mail 0 rmail-summary-goto-msg] 4 (#$ . 41365) (byte-code "\205 \301\302!C\207" [current-prefix-arg read-file-name "Get new mail from file: "] 2)])
#@44 Run Rmail on file FILENAME.
(fn FILENAME)
(defalias 'rmail-summary-input #[257 "\301!\210\302!\207" [rmail-buffer rmail-pop-to-buffer rmail] 3 (#$ . 42025) "FRun rmail on RMAIL file: "])
#@55 Show first message in Rmail file from summary buffer.
(defalias 'rmail-summary-first-message #[0 "\300 \207" [beginning-of-buffer] 1 (#$ . 42221) nil])
#@54 Show last message in Rmail file from summary buffer.
(defalias 'rmail-summary-last-message #[0 "\300 \210\301y\207" [end-of-buffer -1] 1 (#$ . 42379) 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 #[0 "\302!\210\303 \210\304 !\207" [rmail-buffer rmail-summary-edit-map rmail-pop-to-buffer rmail-edit-current-message use-local-map] 2 (#$ . 42769) nil])
#@63 Finish editing message, then go back to Rmail summary buffer.
(defalias 'rmail-summary-cease-edit #[0 "\301 \210\302!\207" [rmail-summary-buffer rmail-cease-edit rmail-pop-to-buffer] 2 (#$ . 43012) nil])
#@86 Abort edit of current message; restore original contents.
Go back to summary buffer.
(defalias 'rmail-summary-abort-edit #[0 "\301 \210\302!\207" [rmail-summary-buffer rmail-abort-edit rmail-pop-to-buffer] 2 (#$ . 43223) nil])
#@246 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.
(fn REGEXP &optional N)
(defalias 'rmail-summary-search-backward #[513 "rq\210\301[\")\207" [rmail-buffer rmail-search] 5 (#$ . 43458) (byte-code "\302!\303Y\211\203
\304\202 \305\306P\307 \203 \310 \311Q\202 \311P\262\312!\262\211\305\232\2041 \211\2029 \2049 \313\314!\210 \302!D\207" [current-prefix-arg rmail-search-last-regexp prefix-numeric-value 0 "Reverse " "" "Rmail search (regexp" nil ", default " "): " read-string error "No previous Rmail search string"] 7)])
#@246 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.
(fn REGEXP &optional N)
(defalias 'rmail-summary-search #[513 "p\301 \302\303\304\305\306\"\307\"\310$\216\311!\210\312\")\207" [rmail-buffer selected-window make-byte-code 0 "\302\301!\210\300q\207" vconcat vector [select-window] 2 rmail-pop-to-buffer rmail-search] 11 (#$ . 44174) (byte-code "\302!\303W\211\203
\304\202 \305\306P\307 \203 \310 \311Q\202 \311P\262\312!\262\211\305\232\2041 \211\2029 \2049 \313\314!\210 \302!D\207" [current-prefix-arg rmail-search-last-regexp prefix-numeric-value 0 "Reverse " "" "Rmail search (regexp" nil ", default " "): " read-string error "No previous Rmail search string"] 7)])
#@79 Show original message header if pruned header currently shown, or vice versa.
(defalias 'rmail-summary-toggle-header #[0 "\301 \302\303\304\305\306!\307\"\310$\216q\210\311 \210)\210\312!\211\2054 \313 \302\303\304\305\306!\314\"\310$\216\315!\210eb)\262\207" [rmail-buffer current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 rmail-toggle-header get-buffer-window selected-window [select-window] select-window] 8 (#$ . 45041) nil])
#@128 Add LABEL to labels associated with current Rmail message.
Completion is performed over known labels when reading.
(fn LABEL)
(defalias 'rmail-summary-add-label #[257 "rq\210\301!)\207" [rmail-buffer rmail-add-label] 3 (#$ . 45540) (byte-code "rq\210\301\302!)C\207" [rmail-buffer rmail-read-label "Add label"] 2)])
#@133 Remove LABEL from labels associated with current Rmail message.
Completion is performed over known labels when reading.
(fn LABEL)
(defalias 'rmail-summary-kill-label #[257 "rq\210\301\302\")\207" [rmail-buffer rmail-set-label nil] 4 (#$ . 45867) (byte-code "rq\210\301\302!)C\207" [rmail-buffer rmail-read-label "Kill label"] 2)])
#@78 Replace bindings to `mail-send-and-exit' with `rmail-summary-send-and-exit'.
(defalias 'rmail-summary-override-mail-send-and-exit #[0 "\300\301\302 !!\210\303\304!\211\205 \211@\305\302 \306#\210A\266\202\202\n \207" [use-local-map copy-keymap current-local-map where-is-internal mail-send-and-exit define-key rmail-summary-send-and-exit] 6 (#$ . 46209)])
#@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 #[0 "\301!\211\203 \302!\210\202 q\210\210\303\304\211\211\211\211p&\210\305 \207" [rmail-buffer get-buffer-window select-window rmail-start-mail nil rmail-summary-override-mail-send-and-exit] 7 (#$ . 46575) nil])
#@64 Continue composing outgoing message previously being composed.
(defalias 'rmail-summary-continue #[0 "\301!\211\203 \302!\210\202 q\210\210\303\304!\207" [rmail-buffer get-buffer-window select-window rmail-start-mail t] 3 (#$ . 46953) nil])
#@242 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.
(fn JUST-SENDER)
(defalias 'rmail-summary-reply #[257 "\301!\211\203 \302!\210\202 q\210\210\303!\210\304 \207" [rmail-buffer get-buffer-window select-window rmail-reply rmail-summary-override-mail-send-and-exit] 4 (#$ . 47206) "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 #[0 "\301!\211\203 \302!\210\202 q\210\210\303 \210\304 \207" [rmail-buffer get-buffer-window select-window rmail-retry-failure rmail-summary-override-mail-send-and-exit] 3 (#$ . 47677) nil])
#@47 Send mail reply and return to summary buffer.
(defalias 'rmail-summary-send-and-exit #[0 "\300\301!\207" [mail-send-and-exit t] 2 (#$ . 48143) nil])
#@169 Forward the current message to another user.
With prefix argument, "resend" the message instead of forwarding it;
see the documentation of `rmail-resend'.
(fn RESEND)
(defalias 'rmail-summary-forward #[257 "\212\301!\211\203 \302!\210\202 q\210\210\303!\210\304 )\207" [rmail-buffer get-buffer-window select-window rmail-forward rmail-summary-override-mail-send-and-exit] 4 (#$ . 48299) "P"])
#@46 Resend current message using `rmail-resend'.
(defalias 'rmail-summary-resend #[0 "\212\301!\211\203 \302!\210\202 q\210\210\303\304!)\207" [rmail-buffer get-buffer-window select-window call-interactively rmail-resend] 3 (#$ . 48705) nil])
#@627 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 if the header display is currently pruned.
(fn &optional FILE-NAME N)
(defalias 'rmail-summary-output #[512 "\303\304W\205B \305 \210\211rq\210 )\211\262=?\205B T\262rq\210\304\306\307\"\210*\n\2035 \310\304!\210\202 W\203 \311\307!\210\202 \207" [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] 7 (#$ . 48956) (byte-code "\301\302!\210\303 \304!D\207" [current-prefix-arg require rmailout rmail-output-read-file-name prefix-numeric-value] 3)])
(defalias 'rmail-summary-output-to-rmail-file 'rmail-summary-output)
#@500 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.
(fn &optional FILE-NAME N)
(defalias 'rmail-summary-output-as-seen #[512 "\303\304!\210\305\306W\205F \307 \210\211rq\210 )\211\262=?\205F T\262rq\210\306\310\311\"\210*\n\2039 \312\306!\210\202 W\203 \313\311!\210\202 \207" [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] 7 (#$ . 50158) (byte-code "\301\302!\210\303 \304!D\207" [current-prefix-arg require rmailout rmail-output-read-file-name prefix-numeric-value] 3)])
#@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 #[0 "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 (#$ . 51210) nil])
(defalias 'rmail-summary-construct-io-menu #[0 "\302!\211\203# \303 \304\305\306\305\307#B#\210\303 \310\311\306\311\312#B#\202. \303 \313\314#\210\303 \315\316#\207" [rmail-secondary-file-directory 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])
#@148 Write this message body to the file FILE-NAME.
FILE-NAME defaults, interactively, from the Subject field of the message.
(fn &optional FILE-NAME)
(defalias 'rmail-summary-output-body #[256 "rq\210\302\211\203 \303!\210\202 \304\303!\210* \205 \305\302!\207" [rmail-buffer rmail-delete-after-output nil rmail-output-body-to-file call-interactively rmail-summary-delete-forward] 3 (#$ . 52281) nil])
#@135 Sort messages of current Rmail summary by "Date" header.
If prefix argument REVERSE is non-nil, sorts in reverse order.
(fn REVERSE)
(defalias 'rmail-summary-sort-by-date #[257 "\300\301\"\207" [rmail-sort-from-summary rmail-sort-by-date] 4 (#$ . 52693) "P"])
#@166 Sort messages of current Rmail summary by "Subject" header.
Ignores any "Re: " prefix. If prefix argument REVERSE is
non-nil, sorts in reverse order.
(fn REVERSE)
(defalias 'rmail-summary-sort-by-subject #[257 "\300\301\"\207" [rmail-sort-from-summary rmail-sort-by-subject] 4 (#$ . 52962) "P"])
#@187 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.
(fn REVERSE)
(defalias 'rmail-summary-sort-by-author #[257 "\300\301\"\207" [rmail-sort-from-summary rmail-sort-by-author] 4 (#$ . 53268) "P"])
#@195 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.
(fn REVERSE)
(defalias 'rmail-summary-sort-by-recipient #[257 "\300\301\"\207" [rmail-sort-from-summary rmail-sort-by-recipient] 4 (#$ . 53593) "P"])
#@292 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.
(fn REVERSE)
(defalias 'rmail-summary-sort-by-correspondent #[257 "\300\301\"\207" [rmail-sort-from-summary rmail-sort-by-correspondent] 4 (#$ . 53932) "P"])
#@141 Sort messages of current Rmail summary by the number of lines.
If prefix argument REVERSE is non-nil, sorts in reverse order.
(fn REVERSE)
(defalias 'rmail-summary-sort-by-lines #[257 "\300\301\"\207" [rmail-sort-from-summary rmail-sort-by-lines] 4 (#$ . 54376) "P"])
#@179 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.
(fn REVERSE LABELS)
(defalias 'rmail-summary-sort-by-labels #[514 "\300\301\302\303\304\305!\306\"\307\310%\"\207" [rmail-sort-from-summary make-byte-code 257 "\301\300\"\207" vconcat vector [rmail-sort-by-labels] 4 "\n\n(fn REVERSE)"] 9 (#$ . 54653) "P\nsSort by labels: "])
#@259 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.
(fn SORTFUN REVERSE)
(defalias 'rmail-sort-from-summary #[514 "\301\302!\210\303 \304\305\306\307\310!\311\"\312$\216\313!\210!)\207" [rmail-buffer require rmailsort selected-window make-byte-code 0 "\301\300!\207" vconcat vector [select-window] 2 rmail-pop-to-buffer] 9 (#$ . 55098)])
(provide 'rmailsum)
Mini Shell