;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 30 19:50:24 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/rmailsum.el ;;; emacs version 19.28.92.13. ;;; 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.28.90"))) (error "`rmailsum.el' was compiled for Emacs 19.29 or later")) #@60 Additional expressions to highlight in Rmail Summary mode. (defvar rmail-summary-font-lock-keywords (quote (("^....D.*" . font-lock-string-face) ("^....-.*" . font-lock-type-face) ("^....[^D-] \\(......\\)" 1 font-lock-keyword-face) ("{ \\([^}]+\\),}" 1 font-lock-comment-face))) (#$ . 479)) (defalias 'rmail-update-summary #[(&rest ignore) " @ A\"" [apply rmail-summary-redo] 3]) #@58 Display a summary of all messages, one line per message. (defalias 'rmail-summary #[nil "#" [rmail-new-summary "All" (rmail-summary) nil] 4 (#$ . 868) 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) "\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 (#$ . 1037) "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) "\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 (#$ . 1483) "sRecipients to summarize by: \nP"]) #@251 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. (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 (#$ . 2037) "sRegexp to summarize by: "]) #@238 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. (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 (#$ . 2549) "sTopics to summarize by: \nP"]) (defalias '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]) #@109 Display a summary of all messages with the given SENDERS. SENDERS is a string of names separated by commas. (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 (#$ . 3347) "sSenders to summarize by: "]) (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]) (byte-code "! B" [boundp rmail-summary-symbol-number 0 current-load-list] 2) #@268 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. (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 pop-up-windows pop-up-frames 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 (#$ . 3971)]) (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]) (defalias '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]) (defalias '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]) (defalias 'rmail-summary-next-all #[(&optional number) " ymVy !" [number 1 0 -1 display-buffer rmail-buffer] 2 nil "p"]) (defalias 'rmail-summary-previous-all #[(&optional number) " [ymWy !" [number 1 0 -1 display-buffer rmail-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) "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 (#$ . 7312) "p"]) (defalias 'rmail-summary-previous-msg #[(&optional number) " \n[!" [rmail-summary-next-msg number 1] 2 nil "p"]) #@129 Show next message with LABEL. Defaults to last labels used. With prefix argument N moves forward N messages with these labels. (defalias 'rmail-summary-next-labeled-message #[(n labels) "q\n \")" [rmail-buffer rmail-next-labeled-message n labels] 3 (#$ . 7896) "p\nsMove to next msg with labels: "]) #@134 Show previous message with LABEL. Defaults to last labels used. With prefix argument N moves backward N messages with these labels. (defalias 'rmail-summary-previous-labeled-message #[(n labels) "q\n \")" [rmail-buffer rmail-previous-labeled-message n labels] 3 (#$ . 8209) "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) " Vq!!Q)\"5•O U Em?Go? [m?]o? h҂iy`d`\\^{!q~ !b!`!`b#,M ) S T7)\f\f! \"-" [nil n 0 forward found i search-regexp subject rmail-buffer mail-fetch-field "Subject" "^Subject: *\\(Re: *\\)?" regexp-quote "\n" rmail-current-message string-match "Re:[ ]*" done 1 -1 string-to-int 5 rmail-msgbeg search-forward "\n*** EOOH ***\n" end beg "\n\n" re-search-forward t rmail-summary-goto-msg error "No %s message with same subject" "following" "previous"] 7 (#$ . 8539) "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) " [!" [rmail-summary-next-same-subject n] 2 (#$ . 9344) "p"]) #@181 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. (defalias 'rmail-summary-delete-forward #[(&optional backward) " \f! !!\n#o$mAy!)A\n;΂<ymM\n?My*" [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 (#$ . 9615) "P"]) #@137 Delete this message and move to previous nondeleted one. Deleted messages stay in the file until the \[rmail-expunge] command is given. (defalias 'rmail-summary-delete-backward #[nil "!" [rmail-summary-delete-forward t] 2 (#$ . 10169) nil]) (defalias 'rmail-summary-mark-deleted #[(&optional n undel) "\n‰#m=\f\"=ww\n5!<!c<!c)yƇ" [n rmail-summary-goto-msg t overlay-get rmail-summary-overlay face nil buffer-read-only " " "[0-9]" undel looking-at "D" delete-char 1 0] 4]) (defalias 'rmail-summary-mark-undeleted #[(n) " \"" [rmail-summary-mark-deleted n t] 3]) (defalias 'rmail-summary-deleted-p #[(&optional n) " #ww!)" [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) "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 (#$ . 10928) "p"]) #@78 Undelete all deleted msgs, optional prefix arg N means undelete N prev msgs. (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 (#$ . 11434) "P"]) (put (quote rmail-summary-mode) (quote mode-class) (quote special)) #@951 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. (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 font-lock-defaults (rmail-summary-font-lock-keywords t) rmail-summary-enable run-hooks rmail-summary-mode-hook] 2 (#$ . 12025) nil]) (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]) (defalias '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]) (defalias 'rmail-summary-rmail-update #[nil "m\nyyw`w`{!=i\n! \f gU?!c Uю !\")h\n!h\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 t buffer-name rmail-summary-update-highlight] 4]) (byte-code "! B   ! # # # # # # # # # # # # # # # # # # # # # # # # # # # # # @# AB# CD# EF# GH# IJ# KL# MN# OP# QR# ST# UV# WX# YZ# [\\# ]^# _`# ab# cd# ef# gh# ij# kl # mnln!B# op# qr# st# uv# wx# yz# {|# }~# l!B# # # # # # l!B# # # # # # # # # l!B# # # # # l!B# # # # # # # # #!Y B‡" [boundp rmail-summary-mode-map nil current-load-list 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-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-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 input-menu] (nil) [menu-bar classify output-menu] (nil) [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-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) rmail-summary-overlay] 6) (defalias 'rmail-summary-goto-msg #[(&optional n nowarn skip-rmail) ": !myyp ` `d`\\^{!\fq )=\f|WI!VZ!db eb\"#|r\"\f bywwgU!c)) !y ? \"!!*." [n prefix-numeric-value -1 0 obuf rmail-buffer buf cur nil message-not-found string-to-int 5 curmsg rmail-total-messages total 1 message "No preceding message" "No following message" rmail-summary-goto-msg re-search-forward format "^%4d[^0-9]" t nowarn "Message %d not found" " " "0-9" 45 buffer-read-only delete-char rmail-summary-update-highlight skip-rmail selected-window selwin ((byte-code " !\nq" [select-window selwin obuf] 2)) pop-to-buffer rmail-show-message] 5 nil "P"]) (defalias 'rmail-summary-update-highlight #[(not-found) " !``\" #yw`)`)##" [rmail-summary-overlay make-local-variable make-overlay not-found overlay-put face nil move-overlay 0 " " 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) "=\n! !L ! !  Z!m*!)B>!T !)T !É)" [dist - rmail-summary-scroll-msg-down nil get-buffer-window rmail-buffer rmail-buffer-window selected-window rmail-summary-window select-window window-height ht move-to-window-line 2 rmail-summary-next-msg 1 other-window-scroll-buffer scroll-other-window display-buffer rmail-current-message] 4 (#$ . 20145) "P"]) #@130 Scroll the Rmail window backward. If the Rmail window is displaying the beginning of a message, advance to the previous message. (defalias 'rmail-summary-scroll-msg-down #[(&optional dist) "=\n! !C !!yo)!)95!K !)K !É)" [dist - rmail-summary-scroll-msg-up nil get-buffer-window rmail-buffer rmail-buffer-window selected-window rmail-summary-window select-window move-to-window-line 0 rmail-summary-previous-msg 1 other-window-scroll-buffer scroll-other-window-down display-buffer rmail-current-message] 4 (#$ . 20732) "P"]) #@42 Show current message from the beginning. (defalias 'rmail-summary-beginning-of-message #[nil " ! !" [pop-to-buffer rmail-buffer beginning-of-buffer rmail-summary-buffer] 2 (#$ . 21312) nil]) #@38 Quit out of Rmail and Rmail summary. (defalias 'rmail-summary-quit #[nil " " [rmail-summary-wipe rmail-quit] 1 (#$ . 21516) nil]) #@59 Kill and wipe away Rmail summary, remaining within Rmail. (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 (#$ . 21657) nil]) #@68 Actually erase all deleted messages and recompute summary headers. (defalias 'rmail-summary-expunge #[nil "q ) " [rmail-buffer rmail-only-expunge rmail-update-summary] 1 (#$ . 21951) nil]) #@30 Expunge and save RMAIL file. (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 (#$ . 22153) nil]) #@45 Get new mail and recompute summary headers. (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 (#$ . 22376) nil]) #@29 Run Rmail on file FILENAME. (defalias 'rmail-summary-input #[(filename) " ! !" [pop-to-buffer rmail-buffer rmail filename] 2 (#$ . 22600) "FRun rmail on RMAIL file: "]) #@55 Show first message in Rmail file from summary buffer. (defalias 'rmail-summary-first-message #[nil " " [beginning-of-buffer] 1 (#$ . 22779) nil]) #@54 Show last message in Rmail file from summary buffer. (defalias 'rmail-summary-last-message #[nil " y" [end-of-buffer -1] 1 (#$ . 22933) nil]) (byte-code "! B !  # #‡" [boundp rmail-summary-edit-map nil current-load-list make-sparse-keymap text-mode-map define-key "" rmail-cease-edit "" rmail-abort-edit] 4) #@36 Edit the contents of this message. (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 (#$ . 23279) nil]) #@63 Finish editing message, then go back to Rmail summary buffer. (defalias 'rmail-summary-cease-edit #[nil " \n!" [rmail-cease-edit pop-to-buffer rmail-summary-buffer] 2 (#$ . 23501) nil]) #@86 Abort edit of current message; restore original contents. Go back to summary buffer. (defalias 'rmail-summary-abort-edit #[nil " \n!" [rmail-abort-edit pop-to-buffer rmail-summary-buffer] 2 (#$ . 23697) 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) "p\nq\f [\"*" [buffer ((set-buffer buffer)) rmail-buffer rmail-search regexp n] 3 (#$ . 23917) (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)]) #@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\nq\f \"*" [buffer ((set-buffer buffer)) rmail-buffer rmail-search regexp n] 3 (#$ . 24610) (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)]) #@79 Show original message header if pruned header currently shown, or vice versa. (defalias 'rmail-summary-toggle-header #[nil "q )! Ǝ !eb*)" [rmail-buffer rmail-toggle-header get-buffer-window window selected-window owin ((select-window owin)) select-window] 3 (#$ . 25292) 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) "q\n!)" [rmail-buffer rmail-add-label label] 2 (#$ . 25594) (list (save-excursion (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) "q\n\")" [rmail-buffer rmail-set-label label nil] 3 (#$ . 25909) (list (save-excursion (set-buffer rmail-buffer) (rmail-read-label "Kill label")))]) #@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 " !\n! q)ʼnp& !! #" [get-buffer-window rmail-buffer window select-window rmail-start-mail nil use-local-map copy-keymap current-local-map define-key "" rmail-summary-send-and-exit] 8 (#$ . 26237) nil]) #@64 Continue composing outgoing message previously being composed. (defalias 'rmail-summary-continue #[nil " !\n! q)!" [get-buffer-window rmail-buffer window select-window rmail-start-mail t] 3 (#$ . 26632) 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) " !\n! q) ! !! #" [get-buffer-window rmail-buffer window select-window rmail-reply just-sender use-local-map copy-keymap current-local-map define-key "" rmail-summary-send-and-exit] 5 (#$ . 26863) "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 " !\n! q) !! #" [get-buffer-window rmail-buffer window select-window rmail-retry-failure use-local-map copy-keymap current-local-map define-key "" rmail-summary-send-and-exit] 5 (#$ . 27368) nil]) #@47 Send mail reply and return to summary buffer. (defalias 'rmail-summary-send-and-exit #[nil "!" [mail-send-and-exit t] 2 (#$ . 27866) 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) " !\n! q) ! !! #)" [get-buffer-window rmail-buffer window select-window rmail-forward resend use-local-map copy-keymap current-local-map define-key "" rmail-summary-send-and-exit] 5 (#$ . 28015) "P"]) #@46 Resend current message using 'rmail-resend'. (defalias 'rmail-summary-resend #[nil " !\n! q)!)" [get-buffer-window rmail-buffer window select-window call-interactively rmail-resend] 3 (#$ . 28447) nil]) #@209 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. (defalias 'rmail-summary-output-to-rmail-file #[(&optional file-name) "q  !!*\n!" [rmail-buffer nil rmail-delete-after-output file-name rmail-output-to-rmail-file call-interactively rmail-summary-delete-forward] 2 (#$ . 28673) nil]) #@269 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. (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 (#$ . 29143) nil]) #@56 Append this message to Unix mail file named FILE-NAME. (defalias 'rmail-summary-output #[nil "q!*\n!" [rmail-buffer nil rmail-delete-after-output call-interactively rmail-output rmail-summary-delete-forward] 2 (#$ . 29615) nil]) (defalias 'rmail-summary-construct-io-menu #[nil " !<\"\f\nA#B#\f\nA#B#)" [rmail-find-all-files rmail-secondary-file-directory files define-key rmail-summary-mode-map [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-to-rmail-file] 9]) #@116 Sort messages of current Rmail summary by date. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-date #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-date reverse] 3 (#$ . 30232) "P"]) #@119 Sort messages of current Rmail summary by subject. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-subject #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-subject reverse] 3 (#$ . 30488) "P"]) #@118 Sort messages of current Rmail summary by author. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-author #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-author reverse] 3 (#$ . 30753) "P"]) #@121 Sort messages of current Rmail summary by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-recipient #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-recipient reverse] 3 (#$ . 31015) "P"]) #@131 Sort messages of current Rmail summary by other correspondent. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-correspondent #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-correspondent reverse] 3 (#$ . 31286) "P"]) #@132 Sort messages of current Rmail summary by lines of the message. If prefix argument REVERSE is non-nil, sort them in reverse order. (defalias 'rmail-summary-sort-by-lines #[(reverse) "\n\"" [rmail-sort-from-summary rmail-sort-by-lines reverse] 3 (#$ . 31575) "P"]) #@166 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. (defalias 'rmail-summary-sort-by-keywords #[(reverse labels) "\n\"" [rmail-sort-from-summary #[(reverse) " \n\"" [rmail-sort-by-keywords reverse labels] 3] reverse] 3 (#$ . 31849) "P\nsSort by labels: "]) #@70 Sort Rmail messages from Summary buffer and update it after sorting. (defalias 'rmail-sort-from-summary #[(sortfun reverse) "! Ď!!*" [require rmailsort selected-window selwin ((select-window selwin)) pop-to-buffer rmail-buffer sortfun reverse] 2 (#$ . 32230)])