;;; compiled by rms@wookumz.gnu.ai.mit.edu on Mon May 31 20:20:01 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/rmailsum.el ;;; emacs version 19.10.3. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (fset (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) " \" !  P D !Q$" [string= 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 E\n! %" [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) " \" !  P D $" [string= 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 E\n! %" [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"]) (byte-code "M! " [rmail-message-subject-p #[(msg subject &optional whole-message) " !b!` Ƃ!`\"eb + #6 !5\")" [rmail-msgbeg msg search-forward "\n*** EOOH ***\n" narrow-to-region whole-message "" "\n\n" re-search-forward subject nil t string-match mail-fetch-field "Subject" ""] 4] boundp rmail-summary-symbol-number 0] 2) (defalias 'rmail-new-summary #[(description redo-form function &rest args) "!‰= q\n)\n!)\n/ P! ebYt`B\"l!BBTG!,\np q @A \"Aeb) !#D! $%- \n) ! ȉ#!+" [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 buffer-read-only msgnum widen rmail-total-messages function apply args rmail-make-summary-line nreverse total rbuf erase-buffer princ make-local-variable minor-mode-alist ": " description redo-form rmail-summary-redo pop-to-buffer 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 "MMMMM" [rmail-make-summary-line #[(msg) " SH\nT\n\"U\n\" ! !)̂9 !\\fU8Ђ9I )" [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) " !b!`)!!l!̂+` `\"Q!!!H!b`!`\"b\"b`!`\" ! !b#`!`!#`#!#\"!b ) !b!cc,\"& S \"OTORI," [rmail-msgbeg msg forward-line 2 lim nil pos forward-char 3 concat search-forward ",," "" "{" buffer-substring end-of-line "} " labels 1 looking-at "Summary-line: " match-end 0 line string-match "#" delete-region -1 t case-fold-search rmail-msgend next "\n*** EOOH ***\n" beg "\n\n" end narrow-to-region rmail-make-basic-summary-line rmail-summary-vector format "%4d "] 9] rmail-make-basic-summary-line #[nil "eb#ł\\Ɗ `)#6!!\"!!!\"#\\Њ `)#[!!\"!!!\"#\\)Ҋ#kԂ`S !`\"! !Q\"eb#` !`\"!P)G\"XZ]OZW\\WZZ\\^O\",)# !` `\"-#` `\"&" [concat re-search-forward "^Date:" nil t " " "\\([^0-9:]\\)\\([0-3]?[0-9]\\)\\([- _]+\\)\\([adfjmnos][aceopu][bcglnprtvy]\\)" end-of-line format "%2d-%3s" string-to-int buffer-substring match-beginning 2 match-end 4 "\\([^a-z]\\)\\([adfjmnos][acepou][bcglnprtvy]\\)\\([-a-z _]*\\)\\([0-9][0-9]?\\)" "??????" " " "^From:[ ]*" " " mail-strip-quoted-names skip-chars-backward " " from len mch lo string-match "^" regexp-quote user-login-name "\\($\\|@\\)" "^To:[ ]*" "to: " "[@%]" "%25s" 25 0 9 16 " #" "^Subject:" skip-chars-forward "[\n][\n]+" "\n"] 10] rmail-summary-next-all #[(&optional number) " \n! !" [forward-line number 1 display-buffer rmail-buffer] 2 nil "p"] rmail-summary-previous-all #[(&optional number) " \n[! !" [forward-line number 1 display-buffer rmail-buffer] 2 nil "p"]] 2) (defalias 'rmail-summary-next-msg #[(&optional number) "!\nV!\nW\n[\n\nV$Ă% VL#=L S -+ !" [forward-line 0 number 1 re-search-forward re-search-backward nil 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"]) (fset (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) " !!!)" [nil end rmail-summary-goto-msg pop-to-buffer rmail-buffer rmail-delete-forward backward rmail-summary-buffer] 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 "MMM" [rmail-summary-mark-deleted #[(&optional n undel) "\n‰#m5!!-!4!c4!c)!Ç" [n rmail-summary-goto-msg t nil buffer-read-only skip-chars-forward " " "[0-9]" undel looking-at "D" delete-char 1 forward-line 0] 4] rmail-summary-mark-undeleted #[(n) " \"" [rmail-summary-mark-deleted n t] 3] rmail-summary-deleted-p #[(&optional n) " #!!!)" [n rmail-summary-goto-msg nil t skip-chars-forward " " "[0-9]" looking-at "D"] 4]] 2) (defalias 'rmail-summary-undelete #[(&optional arg) "U\n! #1!  !!- !)" [arg 1 rmail-summary-undelete-many nil buffer-read-only end-of-line 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 \n   \nV= W=\n!6\"T\nS q \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 use-local-map rmail-summary-mode-map 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 rmail-update-summary post-command-hook add-hook rmail-summary-rmail-update run-hooks rmail-summary-mode-hook] 3 "\ 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, all of the Rmail Mode commands are available, plus: \\[rmail-summary-undelete-many] Undelete all or prefix arg deleted messages." nil]) (byte-code "M!  G  ! # # # # # # # # # # # # # # # # # # # # # # # # # # # # # @A# BC# DE# FG# HI# JK# LM# NO# PQ# RS# TU# VW# XY#ہZM" [rmail-summary-rmail-update #[nil " !H!!`  \n!\n`\"!  =G gU@!c !ԋ-" [get-buffer-window rmail-buffer nil buffer-read-only forward-line 0 skip-chars-forward " " buf msg-num beg "0-9" string-to-int buffer-substring rmail-current-message 45 delete-char 1 display-buffer window ((byte-code " ! !" [select-window window rmail-show-message msg-num] 2))] 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 "" " " "" 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 #[(&optional n nowarn skip-rmail) ": !m!! ``d`\\^\"! \n 1 nW=!VN!db eb!P#ng\" \nb!!!gU!c))!? !!\"!+" [n prefix-numeric-value forward-line -1 0 rmail-buffer string-to-int buffer-substring 5 curmsg cur buf 1 message "No preceding message" rmail-total-messages "No following message" rmail-summary-goto-msg re-search-forward "^ *" int-to-string nil t nowarn "Message %d not found" skip-chars-forward " " "0-9" 45 buffer-read-only delete-char skip-rmail pop-to-buffer rmail-show-message rmail-summary-buffer] 8 nil "P"]] 4) (defalias 'rmail-summary-scroll-msg-up #[(&optional dist) " !" [scroll-other-window dist] 2 "\ Scroll other window forward." "P"]) (defalias 'rmail-summary-scroll-msg-down #[(&optional dist) " = Â ‚ ![!" [scroll-other-window dist - nil prefix-numeric-value] 3 "\ Scroll other 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 get-buffer-window rmail-wind kill-buffer selected-window next-window no-minibuf delete-window select-window] 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 ) " [rmail-buffer rmail-only-expunge save-buffer rmail-update-summary] 1 "\ Expunge and save RMAIL file." nil]) (defalias 'rmail-summary-get-new-mail #[nil "q ) " [rmail-buffer rmail-get-new-mail rmail-update-summary] 1 "\ Get new mail and recompute summary headers." nil]) (defalias 'rmail-summary-input #[(filename) "q\n!)" [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 " !" [end-of-buffer forward-line -1] 2 "\ Show last message in Rmail file from summary buffer." nil]) (byte-code "!  A\" # #‡" [boundp rmail-summary-edit-map nil nconc make-sparse-keymap text-mode-map define-key "" rmail-cease-edit "" rmail-abort-edit] 4) (defalias 'rmail-summary-edit-current-message #[nil " ! !" [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 #[(regexp &optional n) "q\n \")" [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!  \"9 \nB\nB!\n !+D" [prefix-numeric-value current-prefix-arg 0 reversep "Reverse " "" "Rmail search (regexp): " prompt nil regexp rmail-search-last-regexp "(default " ") " read-string equal 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 (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 (rmail-read-label "Add label"))]) (defalias 'rmail-summary-mail #[nil "\n& !! #" [mail-other-window 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 "!" [mail-other-window t] 2 "\ Continue composing outgoing message previously being composed." nil]) (defalias 'rmail-summary-reply #[(just-sender) "‹ ! !! #)" [nil mailbuf ((byte-code "q\n!p" [rmail-buffer rmail-reply just-sender mailbuf] 2)) pop-to-buffer 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 "‹ ! !! #)" [nil mailbuf ((byte-code "q p" [rmail-buffer rmail-retry-failure mailbuf] 1)) pop-to-buffer 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 #[nil "q !! #)" [rmail-buffer rmail-forward use-local-map copy-keymap current-local-map define-key "" rmail-summary-send-and-exit] 4 "\ Forward the current message to another user." nil]) (defalias 'rmail-summary-output-to-rmail-file #[nil "q!)" [rmail-buffer call-interactively rmail-output-to-rmail-file] 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 #[nil "q!)" [rmail-buffer call-interactively rmail-output] 2 "\ Append this message to Unix mail file named FILE-NAME." nil])