;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Sep 11 21:10:00 1994 ;;; from file /home/fsf/rms/e19/lisp/rmailsum.el ;;; emacs version 19.26.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/home/fsf/rms/e19/lisp/rmailsum.el' was compiled for Emacs 19")) (defalias (quote rmail-update-summary) #[(&rest ignore) " @ A\"" [apply rmail-summary-redo] 3]) (defalias 'rmail-summary #[nil "#" [rmail-new-summary "All" (rmail-summary) nil] 4 "\ Display a summary of all messages, one line per message." nil]) (defalias 'rmail-summary-by-labels #[(labels) "\n !PD!Q$" [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 "\ Display a summary of all messages with one or more LABELS. LABELS should be a string containing the desired labels, separated by commas." "sLabels to summarize by: "]) (defalias 'rmail-summary-by-recipients #[(recipients &optional primary-only) "\nP\n\fE\n!\f%" [rmail-new-summary "recipients " recipients rmail-summary-by-recipients primary-only rmail-message-recipients-p mail-comma-list-regexp] 6 "\ 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." "sRecipients to summarize by: \nP"]) (defalias 'rmail-summary-by-regexp #[(regexp) "\n !PD$" [regexp "" rmail-last-regexp error "No regexp specified." rmail-new-summary "regexp " rmail-summary-by-regexp rmail-message-regexp-p] 5 "\ 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 header line in the RMAIL-summary." "sRegexp to summarize by: "]) (defalias 'rmail-summary-by-topic #[(subject &optional whole-message) "\nP\n\fE\n!\f%" [rmail-new-summary "about " subject rmail-summary-by-topic whole-message rmail-message-subject-p mail-comma-list-regexp] 6 "\ Display a summary of all messages with the given SUBJECT. Normally checks the Subject field of headers; but if WHOLE-MESSAGE is non-nil (prefix arg given), look in the whole message. SUBJECT is a string of regexps separated by commas." "sTopics to summarize by: \nP"]) (defalias (quote rmail-message-subject-p) #[(msg subject &optional whole-message) " !b!`\fł!`}eb\f*#5!4\")" [rmail-msgbeg msg search-forward "\n*** EOOH ***\n" whole-message "" "\n\n" re-search-forward subject nil t string-match mail-fetch-field "Subject" ""] 4]) (defalias 'rmail-summary-by-senders #[(senders) "\nP\nD\n!$" [rmail-new-summary "senders " senders rmail-summary-by-senders rmail-message-senders-p mail-comma-list-regexp] 6 "\ Display a summary of all messages with the given SENDERS. SENDERS is a string of names separated by commas." "sSenders to summarize by: "]) (byte-code "\"! " [defalias rmail-message-senders-p #[(msg senders) " !b!`!`}!\")" [rmail-msgbeg msg search-forward "\n*** EOOH ***\n" "\n\n" string-match senders mail-fetch-field "From" ""] 4] boundp rmail-summary-symbol-number 0] 3) (defalias 'rmail-new-summary #[(description redo-form function &rest args) "!‰= q\n)\n!)\n/ P! ~ebYzfB\"r!BBTM)},\np q @A \"Aeb) !C# %&- \n) !! ! != !\fȉ#!+" [message "Computing summary lines..." nil was-in-summary mesg sumbuf major-mode rmail-summary-mode t rmail-buffer rmail-summary-buffer buffer-name generate-new-buffer "-summary" rmail-current-message 0 new-summary-line-count summary-msgs 1 point-min-marker point-max-marker old-max old-min buffer-read-only msgnum rmail-total-messages function apply args rmail-make-summary-line total rbuf erase-buffer princ make-local-variable minor-mode-alist (t (concat ": " description)) redo-form rmail-summary-redo one-window-p split-window select-window next-window frame-first-window pop-to-buffer window-buffer delete-other-windows rmail-summary-goto-msg "Computing summary lines...done"] 5 "\ Create a summary of selected messages. DESCRIPTION makes part of the mode line of the summary buffer. For each message, FUNCTION 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."]) (byte-code "\"\"\"\"\"" [defalias rmail-make-summary-line #[(msg) " SH\nTæU\n\" ! !(˂8 !\\fU7ς8I)" [rmail-summary-vector msg new-summary-line-count 10 0 message "Computing summary lines...%d" rmail-make-summary-line-1 line 4 rmail-message-deleted-p 68 rmail-msgbeg 3 48 45 32] 5] rmail-make-summary-line-1 #[(msg) " !by`)u!lɂ&``{Q\fy!@Еb`y`{X\"X`y`| ! !b#w`{y`#`}b ) !by,\" S \" O\f TORI," [rmail-msgbeg msg 2 lim nil pos 3 search-forward ",," "" "{" "} " labels 1 looking-at "Summary-line: " 0 line string-match "#" -1 t case-fold-search rmail-msgend next "\n*** EOOH ***\n" beg "\n\n" end rmail-make-basic-summary-line rmail-summary-vector format "%4d "] 9] rmail-make-basic-summary-line #[nil "eb#ĂOŊ`)#/ɔɕ{!ʔʕ{#Oˊ`)#Nʔʕ{!ɔɕ{#O)͊#^ς`S`y!dux`){! !Q\"eb#`x`{!P)G\"XZ]OZW\\WZZ\\^O\",)#w``{)#``{" [re-search-forward "^Date:" nil t " " "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- _]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" format "%2d-%3s" string-to-int 2 4 "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z _]*\\)\\([0-9][0-9]?\\)" "??????" " " "^From:[ ]*" " " mail-strip-quoted-names opoint 1 looking-at "[ ]" -1 " " from len mch lo string-match "^" regexp-quote user-login-name "\\($\\|@\\)" "^To:[ ]*" "to: " "[@%]" "%25s" 25 0 14 11 " #" "^Subject:" "[\n][\n]+" "\n"] 9] rmail-summary-next-all #[(&optional number) " y !" [number 1 display-buffer rmail-buffer] 2 nil "p"] rmail-summary-previous-all #[(&optional number) " [y !" [number 1 display-buffer rmail-buffer] 2 nil "p"]] 3) (defalias 'rmail-summary-next-msg #[(&optional number) "y V\f W [ V\"Â#VG#9 GS*+y !" [0 number nil re-search-forward re-search-backward non-del-msg-found search count "^....[^D]" t display-buffer rmail-buffer] 5 "\ 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." "p"]) (defalias (quote rmail-summary-previous-msg) #[(&optional number) " \n[!" [rmail-summary-next-msg number 1] 2 nil "p"]) (defalias 'rmail-summary-next-labeled-message #[(n labels) "q\n \")" [rmail-buffer rmail-next-labeled-message n labels] 3 "\ Show next message with LABEL. Defaults to last labels used. With prefix argument N moves forward N messages with these labels." "p\nsMove to next msg with labels: "]) (defalias 'rmail-summary-previous-labeled-message #[(n labels) "q\n \")" [rmail-buffer rmail-previous-labeled-message n labels] 3 "\ Show previous message with LABEL. Defaults to last labels used. With prefix argument N moves backward N messages with these labels." "p\nsMove to previous msg with labels: "]) (defalias 'rmail-summary-delete-forward #[(&optional backward) " \f! !!\n#o$m?By!)B\n<΂=y*" [nil end rmail-summary-goto-msg pop-to-buffer rmail-buffer rmail-delete-message rmail-current-message del-msg rmail-summary-buffer rmail-summary-mark-deleted backward 0 looking-at " +[0-9]+D" -1 1] 2 "\ Delete this message and move to next nondeleted one. Deleted messages stay in the file until the \\[rmail-expunge] command is given. With prefix argument, delete and move backward." "P"]) (defalias 'rmail-summary-delete-backward #[nil "!" [rmail-summary-delete-forward t] 2 "\ Delete this message and move to previous nondeleted one. Deleted messages stay in the file until the \\[rmail-expunge] command is given." nil]) (byte-code "\"\"\"" [defalias rmail-summary-mark-deleted #[(&optional n undel) "\n‰#m5ww-!4!c4!c)yÇ" [n rmail-summary-goto-msg t nil buffer-read-only " " "[0-9]" undel looking-at "D" delete-char 1 0] 4] rmail-summary-mark-undeleted #[(n) " \"" [rmail-summary-mark-deleted n t] 3] rmail-summary-deleted-p #[(&optional n) " #ww!)" [n rmail-summary-goto-msg nil t " " "[0-9]" looking-at "D"] 4]] 3) (defalias 'rmail-summary-undelete #[(&optional arg) "U\n!`#6!  !!/ !8\fb*" [arg 1 rmail-summary-undelete-many nil opoint buffer-read-only re-search-backward "\\(^ *[0-9]*\\)\\(D\\)" t replace-match "\\1 " rmail-summary-goto-msg pop-to-buffer rmail-buffer rmail-message-deleted-p rmail-current-message rmail-undelete-previous-message rmail-summary-buffer] 4 "\ Undelete current message. Optional prefix ARG means undelete ARG previous messages." "p"]) (defalias 'rmail-summary-undelete-many #[(&optional n) "q \f\n   \nV= W=\n!6\"T\nS q\f\nVi Wi\n!b\n!T\nSG, )" [rmail-buffer n rmail-current-message rmail-total-messages init-msg 0 msgs-undeled rmail-message-deleted-p rmail-set-attribute "deleted" nil rmail-summary-buffer rmail-summary-deleted-p rmail-summary-mark-undeleted rmail-summary-goto-msg] 4 "\ Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs." "P"]) (put (quote rmail-summary-mode) (quote mode-class) (quote special)) (defalias 'rmail-summary-mode #[nil "  !!!! !!! !" [kill-all-local-variables rmail-summary-mode major-mode "RMAIL Summary" mode-name t truncate-lines buffer-read-only set-syntax-table text-mode-syntax-table make-local-variable rmail-buffer rmail-total-messages rmail-current-message nil rmail-summary-redo revert-buffer-function post-command-hook rmail-summary-enable run-hooks rmail-summary-mode-hook] 2 "\ Rmail Summary Mode is invoked from Rmail Mode by using \\\\[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-keywords] Sort by keywords." nil]) (byte-code "\"\"\"! !##########################@#AB#CD#EF#GH#IJ#KL#MN#OP#QR#ST#UV#WX#YZ#[\\#]^#_`#ab#cd#ef#gh#ij#kl#mn #opnp!B#qr#st#uv#wx#yz#{|#}~n~!B######n!B#########n!B#####n!B#########ǁ!\"" [defalias rmail-summary-disable #[nil " !\"ʼn" [use-local-map text-mode-map remove-hook post-command-hook rmail-summary-rmail-update nil revert-buffer-function] 3] rmail-summary-enable #[nil " !\"ʼn" [use-local-map rmail-summary-mode-map add-hook post-command-hook rmail-summary-rmail-update rmail-update-summary revert-buffer-function] 3] rmail-summary-rmail-update #[nil "m\nyyw`w`{!=e\n! \f gU?!c Sю !!)d\n!d\nq!)*+" [nil buffer-read-only -1 0 " " string-to-int "0-9" msg-num rmail-current-message get-buffer-window rmail-buffer selected-window owin window 45 delete-char 1 ((select-window owin)) select-window rmail-show-message buffer-name] 4] boundp rmail-summary-mode-map nil make-keymap suppress-keymap define-key "a" rmail-summary-add-label "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-topic "m" rmail-summary-mail "" rmail-summary-retry-failure "n" rmail-summary-next-msg "n" rmail-summary-next-all "" rmail-summary-next-labeled-message "o" rmail-summary-output-to-rmail-file "" rmail-summary-output "p" rmail-summary-previous-msg "p" rmail-summary-previous-all "" rmail-summary-previous-labeled-message "q" rmail-summary-quit "r" rmail-summary-reply "s" rmail-summary-expunge-and-save "s" rmail-summary-search "t" rmail-summary-toggle-header "u" rmail-summary-undelete "" rmail-summary-undelete-many "w" rmail-summary-wipe "x" rmail-summary-expunge "." rmail-summary-beginning-of-message "<" rmail-summary-first-message ">" rmail-summary-last-message " " rmail-summary-scroll-msg-up "" rmail-summary-scroll-msg-down "?" describe-mode "" 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-keywords [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 output-inbox] ("Output (inbox)..." . rmail-summary-output) [menu-bar classify output] ("Output (Rmail)..." . rmail-summary-output-to-rmail-file) [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 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-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) rmail-summary-overlay #[(&optional n nowarn skip-rmail) ": !myyp\f``d`\\^{! \n \f4tW@!VQ!db eb!P#tj\" \nbywwgU!c))!``\" #y`T)`)##y%? ' !!*-" [n prefix-numeric-value -1 0 rmail-buffer nil string-to-int 5 curmsg message-not-found cur buf obuf 1 message "No preceding message" rmail-total-messages "No following message" rmail-summary-goto-msg re-search-forward "^ *" int-to-string t nowarn "Message %d not found" " " "0-9" 45 buffer-read-only delete-char rmail-summary-overlay make-local-variable make-overlay overlay-put face move-overlay highlight skip-rmail selected-window selwin ((byte-code " !\nq" [select-window selwin obuf] 2)) pop-to-buffer rmail-show-message] 9 nil "P"]] 6) (defalias 'rmail-summary-scroll-msg-up #[(&optional dist) "!\f!!Ɖ)" [rmail-buffer other-window-scroll-buffer get-buffer-window scroll-other-window dist display-buffer nil rmail-current-message] 2 "\ Scroll the Rmail window forward." "P"]) (defalias 'rmail-summary-scroll-msg-down #[(&optional dist) " = Â ‚ ![!" [rmail-summary-scroll-msg-up dist - nil prefix-numeric-value] 3 "\ Scroll the Rmail window backward." "P"]) (defalias 'rmail-summary-beginning-of-message #[nil " ! !" [pop-to-buffer rmail-buffer beginning-of-buffer rmail-summary-buffer] 2 "\ Show current message from the beginning." nil]) (defalias 'rmail-summary-quit #[nil " " [rmail-summary-wipe rmail-quit] 1 "\ Quit out of Rmail and Rmail summary." nil]) (defalias 'rmail-summary-wipe #[nil "q)p! \"= !)" [rmail-buffer nil rmail-summary-buffer local-rmail-buffer kill-buffer selected-window next-window no-minibuf delete-window pop-to-buffer] 4 "\ Kill and wipe away Rmail summary, remaining within Rmail." nil]) (defalias 'rmail-summary-expunge #[nil "q ) " [rmail-buffer rmail-only-expunge rmail-update-summary] 1 "\ Actually erase all deleted messages and recompute summary headers." nil]) (defalias 'rmail-summary-expunge-and-save #[nil "q ) q )!" [rmail-buffer rmail-only-expunge rmail-update-summary save-buffer set-buffer-modified-p nil] 2 "\ Expunge and save RMAIL file." nil]) (defalias 'rmail-summary-get-new-mail #[nil "\nq \f) !)" [nil msg rmail-buffer rmail-get-new-mail rmail-current-message rmail-summary-goto-msg] 2 "\ Get new mail and recompute summary headers." nil]) (defalias 'rmail-summary-input #[(filename) " ! !" [pop-to-buffer rmail-buffer rmail filename] 2 "\ Run Rmail on file FILENAME." "FRun rmail on RMAIL file: "]) (defalias 'rmail-summary-first-message #[nil " " [beginning-of-buffer] 1 "\ Show first message in Rmail file from summary buffer." nil]) (defalias 'rmail-summary-last-message #[nil " y" [end-of-buffer -1] 1 "\ Show last message in Rmail file from summary buffer." nil]) (byte-code "!  \f # #‡" [boundp rmail-summary-edit-map nil make-sparse-keymap text-mode-map define-key "" rmail-cease-edit "" rmail-abort-edit] 4) (defalias 'rmail-summary-edit-current-message #[nil " ! \f!" [pop-to-buffer rmail-buffer rmail-edit-current-message use-local-map rmail-summary-edit-map] 2 "\ Edit the contents of this message." nil]) (defalias 'rmail-summary-cease-edit #[nil " \n!" [rmail-cease-edit pop-to-buffer rmail-summary-buffer] 2 "\ Finish editing message, then go back to Rmail summary buffer." nil]) (defalias 'rmail-summary-abort-edit #[nil " \n!" [rmail-abort-edit pop-to-buffer rmail-summary-buffer] 2 "\ Abort edit of current message; restore original contents. Go back to summary buffer." nil]) (defalias 'rmail-summary-search-backward #[(regexp &optional n) "p\nq\f [\"*" [buffer ((set-buffer buffer)) rmail-buffer rmail-search regexp n] 3 "\ 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." (byte-code " !YĂP \n$\nR! Ś7 \n@\n@!\n !+D" [prefix-numeric-value current-prefix-arg 0 reversep "Reverse " "" "Rmail search (regexp): " prompt nil regexp rmail-search-last-regexp "(default " ") " read-string error "No previous Rmail search string"] 5)]) (defalias 'rmail-summary-search #[(regexp &optional n) "p\nq\f \"*" [buffer ((set-buffer buffer)) rmail-buffer rmail-search regexp n] 3 "\ 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." (byte-code " !WĂP \n$\nR! Ś7 \n@\n@!\n !+D" [prefix-numeric-value current-prefix-arg 0 reversep "Reverse " "" "Rmail search (regexp): " prompt nil regexp rmail-search-last-regexp "(default " ") " read-string error "No previous Rmail search string"] 5)]) (defalias 'rmail-summary-toggle-header #[nil "q )" [rmail-buffer rmail-toggle-header] 1 "\ Show original message header if pruned header currently shown, or vice versa." nil]) (defalias 'rmail-summary-add-label #[(label) "q\n!)" [rmail-buffer rmail-add-label label] 2 "\ Add LABEL to labels associated with current Rmail message. Completion is performed over known labels when reading." (list (save-excursion (set-buffer rmail-buffer) (rmail-read-label "Add label")))]) (defalias 'rmail-summary-kill-label #[(label) "q\n\")" [rmail-buffer rmail-set-label label nil] 3 "\ Remove LABEL from labels associated with current Rmail message. Completion is performed over known labels when reading." (list (save-excursion (set-buffer rmail-buffer) (rmail-read-label "Kill label")))]) (defalias 'rmail-summary-mail #[nil "\n& !! #" [rmail-start-mail nil rmail-buffer use-local-map copy-keymap current-local-map define-key "" rmail-summary-send-and-exit] 7 "\ Send mail in another window. While composing the message, use \\[mail-yank-original] to yank the original message into it." nil]) (defalias 'rmail-summary-continue #[nil "!" [rmail-start-mail t] 2 "\ Continue composing outgoing message previously being composed." nil]) (defalias 'rmail-summary-reply #[(just-sender) "q\n! !! #" [rmail-buffer rmail-reply just-sender use-local-map copy-keymap current-local-map define-key "" rmail-summary-send-and-exit] 4 "\ 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." "P"]) (defalias 'rmail-summary-retry-failure #[nil "q !! #" [rmail-buffer rmail-retry-failure use-local-map copy-keymap current-local-map define-key "" rmail-summary-send-and-exit] 4 "\ 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." nil]) (defalias 'rmail-summary-send-and-exit #[nil "!" [mail-send-and-exit t] 2 "\ Send mail reply and return to summary buffer." nil]) (defalias 'rmail-summary-forward #[(resend) "q\n! !! #)" [rmail-buffer rmail-forward resend use-local-map copy-keymap current-local-map define-key "" rmail-summary-send-and-exit] 4 "\ Forward the current message to another user. With prefix argument, \"resend\" the message instead of forwarding it; see the documentation of `rmail-resend'." "P"]) (defalias 'rmail-summary-output-to-rmail-file #[nil "q!*\n!" [rmail-buffer nil rmail-delete-after-output call-interactively rmail-output-to-rmail-file rmail-summary-delete-forward] 2 "\ Append the current message to an Rmail file named FILE-NAME. If the file does not exist, ask if it should be created. If file is being visited, the message is appended to the Emacs buffer visiting that file." nil]) (defalias 'rmail-summary-output-menu #[nil "q!*\n!" [rmail-buffer nil rmail-delete-after-output call-interactively rmail-output-menu rmail-summary-delete-forward] 2 "\ Output current message to another Rmail file, chosen with a menu. Also set the default for subsequent \\[rmail-output-to-rmail-file] commands. The variables `rmail-secondary-file-directory' and `rmail-secondary-file-regexp' control which files are offered in the menu." nil]) (defalias 'rmail-summary-output #[nil "q!*\n!" [rmail-buffer nil rmail-delete-after-output call-interactively rmail-output rmail-summary-delete-forward] 2 "\ Append this message to Unix mail file named FILE-NAME." nil]) (defalias 'rmail-summary-sort-by-date #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-date reverse] 3 "\ Sort messages of current Rmail summary by date. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-subject #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-subject reverse] 3 "\ Sort messages of current Rmail summary by subject. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-author #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-author reverse] 3 "\ Sort messages of current Rmail summary by author. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-recipient #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-recipient reverse] 3 "\ Sort messages of current Rmail summary by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-correspondent #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-correspondent reverse] 3 "\ Sort messages of current Rmail summary by other correspondent. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-lines #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-lines reverse] 3 "\ Sort messages of current Rmail summary by lines of the message. If prefix argument REVERSE is non-nil, sort them in reverse order." "P"]) (defalias 'rmail-summary-sort-by-keywords #[(reverse labels) "\n\"" [rmail-sort-from-summary #[(reverse) " \n\"" [rmail-sort-by-keywords reverse labels] 3] reverse] 3 "\ Sort messages of current Rmail summary by keywords. If prefix argument REVERSE is non-nil, sort them in reverse order. KEYWORDS is a comma-separated list of labels." "P\nsSort by labels: "]) (defalias 'rmail-sort-from-summary #[(sortfun reverse) "! Ď!!*" [require rmailsort selected-window selwin ((select-window selwin)) pop-to-buffer rmail-buffer sortfun reverse] 2 "\ Sort Rmail messages from Summary buffer and update it after sorting."])