;ELC ;;; compiled by kwzh@churchy.gnu.ai.mit.edu on Mon Jun 12 22:48:02 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/rmail.el ;;; emacs version 19.28.94.2. ;;; 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 "`rmail.el' was compiled for Emacs 19.29 or later")) (byte-code "!!!\"" [require mail-utils fboundp buffer-disable-undo buffer-flush-undo defalias] 3) #@52 If non-nil, name of program for fetching new mail. (defvar rmail-movemail-program nil (#$ . 593)) #@108 *A regexp specifying names to prune of reply to messages. A value of nil means exclude your own name only. (defvar rmail-dont-reply-to-names nil (#$ . -698)) #@313 A regular expression specifying part of the value of the default value of the variable `rmail-dont-reply-to-names', for when the user does not set `rmail-dont-reply-to-names' explicitly. (The other part of the default value is the user's name.) It is useful to set this variable in the site customization file. (defvar rmail-default-dont-reply-to-names "info-" (#$ . 863)) #@65 *Regexp to match Header fields that Rmail should normally hide. (defvar rmail-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:\\|^\\(resent-\\|\\)message-id:\\|^summary-line:" (#$ . -1243)) #@142 *Regexp to match Header fields that Rmail should display. If nil, display all header fields except those matched by `rmail-ignored-headers'. (defvar rmail-displayed-headers nil (#$ . -1567)) #@66 *Headers that should be stripped when retrying a failed message. (defvar rmail-retry-ignored-headers nil (#$ . -1764)) #@141 *Regexp to match Header fields that Rmail should normally highlight. A value of nil means don't highlight. See also `rmail-highlight-face'. (defvar rmail-highlighted-headers "^From:\\|^Subject:" (#$ . -1890)) #@47 *Face used by Rmail for highlighting headers. (defvar rmail-highlight-face nil (#$ . -2105)) #@73 *Non-nil means automatically delete a message that is copied to a file. (defvar rmail-delete-after-output nil (#$ . -2204)) #@248 *List of files which are inboxes for user's primary mail file `~/RMAIL'. `nil' means the default, which is ("/usr/spool/mail/$USER") (the name varies depending on the operating system, and the value of the environment variable MAIL overrides it). (defvar rmail-primary-inbox-list nil (#$ . -2335)) #@69 *Non-nil means Rmail makes a new frame for composing outgoing mail. (defvar rmail-mail-new-frame nil (#$ . -2639)) #@50 *Directory for additional secondary Rmail files. (defvar rmail-secondary-file-directory "~/" (#$ . -2760)) #@52 *Regexp for which files are secondary Rmail files. (defvar rmail-secondary-file-regexp "\\.xmail$" (#$ . -2873)) #@45 Regexp marking the start of an mmdf message (defvar mmdf-delim1 "^\n" (#$ . 2992)) #@43 Regexp marking the end of an mmdf message (defvar mmdf-delim2 "^\n" (#$ . 3085)) #@121 If non nil, a filter function for new messages in RMAIL. Called with region narrowed to the message, including headers. (defvar rmail-message-filter nil (#$ . 3177)) #@63 String to prepend to Subject line when replying to a message. (defvar rmail-reply-prefix "Re: " (#$ . 3349)) #@73 Regexp to delete from Subject line before inserting rmail-reply-prefix. (defvar rmail-reply-regexp "\\`\\(Re\\(([0-9]+)\\|\\^[0-9]+\\)?: *\\)*" (#$ . 3464)) #@53 If non nil, the summary buffer is always displayed. (defvar rmail-display-summary nil (#$ . 3627)) (byte-code "! B! B!  B!- B!: B!G B!T B!a\n B‡" [boundp rmail-mode-map nil current-load-list rmail-inbox-list rmail-keywords rmail-current-message rmail-total-messages rmail-message-vector rmail-deleted-vector rmail-overlay-list] 2) #@52 Additional expressions to highlight in Rmail mode. (defvar rmail-font-lock-keywords (quote (("^\\(From\\|Sender\\):" . font-lock-function-name-face) ("^Reply-To:.*$" . font-lock-function-name-face) ("^Subject:" . font-lock-comment-face) ("^\\(To\\|Apparently-To\\|Cc\\):" . font-lock-keyword-face) ("^[ ]*\\sw*[>|}].*$" . font-lock-reference-face) ("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$" . font-lock-string-face))) (#$ . 4035)) (byte-code "! B! B!  B!- B!: B‡" [boundp rmail-summary-buffer nil current-load-list rmail-summary-vector rmail-last-label rmail-last-multi-labels rmail-last-regexp] 2) #@41 *Default file name for \[rmail-output]. (defvar rmail-default-file "~/xmail" (#$ . -4694)) #@55 *Default file name for \[rmail-output-to-rmail-file]. (defvar rmail-default-rmail-file "~/XMAIL" (#$ . -4791)) (byte-code "!\"RӰ)B" [boundp rmail-unix-mail-delimiter "\\([A-Z]?[A-Z][A-Z][A-Z]\\( DST\\)?" "\\|[-+]?[0-9][0-9][0-9][0-9]" "\\|" "\\) *" time-zone-regexp "From " "\\(" "[^ \n]*" "\\(\\|\".*\"[^ \n]*\\)" "\\|<[^<>\n]+>" "\\) ?" "\\([^ \n]*\\) *" "\\([^ ]*\\) *" "\\([0-9]*\\) *" "\\([0-9:]*\\) *" " [0-9][0-9]\\([0-9]*\\) *" "\\(remote from .*\\)?" "\n" current-load-list] 15) (defalias 'rmail-select-summary '(macro . #[(&rest body) "\nBBEBBDE\nBBEFBBB" [let ((total rmail-total-messages)) if (rmail-summary-displayed) ((window (selected-window))) save-excursion unwind-protect progn (pop-to-buffer rmail-summary-buffer) ((rmail-total-messages total)) body ((select-window window)) (set-buffer rmail-summary-buffer) ((rmail-total-messages total)) ((rmail-maybe-display-summary))] 13])) #@538 Read and edit incoming mail. Moves messages into file named by `rmail-file-name' (a babyl format file) and edits that file in RMAIL Mode. Type \[describe-mode] once editing that file, for a list of RMAIL commands. May be called with file name as argument; then performs rmail editing on that file, but does not copy any new mail into the file. Interactively, if you supply a prefix argument, then you have a chance to specify a file name with the minibuffer. If `rmail-display-summary' is non-nil, make a summary for this RMAIL file. (defalias 'rmail #[(&optional file-name-arg) " \n! !4 !4 !) !<\n=< < !)\n=G! _ V_\n=s s dbs | ! *" [expand-file-name file-name-arg rmail-file-name file-name get-file-buffer existed verify-visited-file-modtime nil enable-local-variables find-file major-mode rmail-mode rmail-forget-messages rmail-set-message-counters rmail-edit-mode error "Exit Rmail Edit mode before getting new mail." buffer-size 0 rmail-mode-2 rmail-convert-file rmail-inbox-list rmail-show-message rmail-get-new-mail rmail-first-unseen-message rmail-display-summary rmail-summary rmail-construct-io-menu] 3 (#$ . 5754) (byte-code " É$C" [current-prefix-arg read-file-name "Run rmail on RMAIL file: " nil t] 5)]) (defalias 'rmail-convert-file #[nil "~eb!-!c)-ed( - Cdb!u!)]!eb#`d} !))" [nil convert looking-at "BABYL OPTIONS:" "Version: 5\n" buffer-read-only "BABYL OPTIONS: -*- rmail -*-\n" rmail-insert-rmail-file-header t search-backward "" 1 "\n*From " message "Converting to Babyl format..." search-forward "\n" rmail-convert-to-babyl-format "Converting to Babyl format...done"] 4]) (defalias 'rmail-insert-rmail-file-header #[nil "c)" [nil buffer-read-only "BABYL OPTIONS: -*- rmail -*-\nVersion: 5\nLabels:\nNote: This is the header of an rmail file.\nNote: If you are seeing it in rmail,\nNote: it means the file has no messages in it.\n"] 1]) (byte-code " !###############################@A#BC#DE#F#GH#IJ#KL#MN#OP#QR#ST#UV#WX#YZ#[\\#]^#_`#ab#cd#ef#gh #ijhj!B#kl#ml#no#pq#rs#tu#vwhw!B#xy#z{#|}#~##h!B#########h!B#####h!B##########" [rmail-mode-map make-keymap suppress-keymap define-key "a" rmail-add-label "b" rmail-bury "c" rmail-continue "d" rmail-delete-forward "" rmail-delete-backward "e" rmail-edit-current-message "f" rmail-forward "g" rmail-get-new-mail "h" rmail-summary "i" rmail-input "j" rmail-show-message "k" rmail-kill-label "l" rmail-summary-by-labels "" "\f" "" rmail-summary-by-recipients "" rmail-summary-by-regexp "" rmail-summary-by-topic "m" rmail-mail "m" rmail-retry-failure "n" rmail-next-undeleted-message "n" rmail-next-message "" rmail-next-labeled-message "o" rmail-output-to-rmail-file "" rmail-output "p" rmail-previous-undeleted-message "p" rmail-previous-message "" rmail-previous-labeled-message "q" rmail-quit "r" rmail-reply "s" rmail-expunge-and-save "s" rmail-search "t" rmail-toggle-header "u" rmail-undelete-previous-message "w" "x" rmail-expunge "." rmail-beginning-of-message "<" rmail-first-message ">" rmail-last-message " " scroll-up "" scroll-down "?" describe-mode "" rmail-sort-by-date "" rmail-sort-by-subject "" rmail-sort-by-author "" rmail-sort-by-recipient "" rmail-sort-by-correspondent "\f" rmail-sort-by-lines " " rmail-sort-by-keywords "" rmail-next-same-subject "" rmail-previous-same-subject [menu-bar] make-sparse-keymap [menu-bar classify] "Classify" [menu-bar classify input-menu] nil [menu-bar classify output-menu] [menu-bar classify output-inbox] ("Output (inbox)..." . rmail-output) [menu-bar classify output] ("Output (Rmail)..." . rmail-output-to-rmail-file) [menu-bar classify kill-label] ("Kill Label..." . rmail-kill-label) [menu-bar classify add-label] ("Add Label..." . rmail-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-get-new-mail] ("Get New Mail" . rmail-get-new-mail) [menu-bar mail lambda] ("----") [menu-bar mail continue] ("Continue" . rmail-continue) [menu-bar mail resend] ("Re-send..." . rmail-resend) [menu-bar mail forward] ("Forward" . rmail-forward) [menu-bar mail retry] ("Retry" . rmail-retry-failure) [menu-bar mail reply] ("Reply" . rmail-reply) [menu-bar mail mail] ("Mail" . rmail-mail) [menu-bar delete] "Delete" [menu-bar delete expunge/save] ("Expunge/Save" . rmail-expunge-and-save) [menu-bar delete expunge] ("Expunge" . rmail-expunge) [menu-bar delete undelete] ("Undelete" . rmail-undelete-previous-message) [menu-bar delete delete] ("Delete" . rmail-delete-forward) [menu-bar move] "Move" [menu-bar move search-back] ("Search Back..." . rmail-search-backwards) [menu-bar move search] ("Search..." . rmail-search) [menu-bar move previous] ("Previous Nondeleted" . rmail-previous-undeleted-message) [menu-bar move next] ("Next Nondeleted" . rmail-next-undeleted-message) [menu-bar move last] ("Last" . rmail-last-message) [menu-bar move first] ("First" . rmail-first-message) [menu-bar move previous] ("Previous" . rmail-previous-message) [menu-bar move next] ("Next" . rmail-next-message) put rmail-mode mode-class special] 6) (defalias 'rmail-mode-kill-summary #[nil "!" [rmail-summary-buffer kill-buffer] 2]) #@3136 Rmail Mode is used by \\[rmail] for editing Rmail files. All normal editing commands are turned off. Instead, these commands are available: \[rmail-beginning-of-message] Move point to front of this message (same as \[beginning-of-buffer]). \[scroll-up] Scroll to next screen of this message. \[scroll-down] Scroll to previous screen of this message. \[rmail-next-undeleted-message] Move to Next non-deleted message. \[rmail-previous-undeleted-message] Move to Previous non-deleted message. \[rmail-next-message] Move to Next message whether deleted or not. \[rmail-previous-message] Move to Previous message whether deleted or not. \[rmail-first-message] Move to the first message in Rmail file. \[rmail-last-message] Move to the last message in Rmail file. \[rmail-show-message] Jump to message specified by numeric position in file. \[rmail-search] Search for string and show message it is found in. \[rmail-delete-forward] Delete this message, move to next nondeleted. \[rmail-delete-backward] Delete this message, move to previous nondeleted. \[rmail-undelete-previous-message] Undelete message. Tries current message, then earlier messages till a deleted message is found. \[rmail-edit-current-message] Edit the current message. \[rmail-cease-edit] to return to Rmail. \[rmail-expunge] Expunge deleted messages. \[rmail-expunge-and-save] Expunge and save the file. \[rmail-quit] Quit Rmail: expunge, save, then switch to another buffer. \[save-buffer] Save without expunging. \[rmail-get-new-mail] Move new mail from system spool directory into this file. \[rmail-mail] Mail a message (same as \[mail-other-window]). \[rmail-continue] Continue composing outgoing message started before. \[rmail-reply] Reply to this message. Like \[rmail-mail] but initializes some fields. \[rmail-retry-failure] Send this message again. Used on a mailer failure message. \[rmail-forward] Forward this message to another user. \[rmail-output-to-rmail-file] Output this message to an Rmail file (append it). \[rmail-output] Output this message to a Unix-format mail file (append it). \[rmail-input] Input Rmail file. Run Rmail on that file. \[rmail-add-label] Add label to message. It will be displayed in the mode line. \[rmail-kill-label] Kill label. Remove a label from current message. \[rmail-next-labeled-message] Move to Next message with specified label (label defaults to last one specified). Standard labels: filed, unseen, answered, forwarded, deleted. Any other label is present only if you add it with \[rmail-add-label]. \[rmail-previous-labeled-message] Move to Previous message with specified label \[rmail-summary] Show headers buffer, with a one line summary of each message. \[rmail-summary-by-labels] Summarize only messages with particular label(s). \[rmail-summary-by-recipients] Summarize only messages with particular recipient(s). \[rmail-summary-by-regexp] Summarize only messages with particular regexp(s). \[rmail-summary-by-topic] Summarize only messages with subject line regexp(s). \[rmail-toggle-header] Toggle display of complete header. (defalias 'rmail-mode #[nil " !" [rmail-mode-2 rmail-set-message-counters rmail-show-message rmail-total-messages] 2 (#$ . 12035) nil]) (defalias 'rmail-mode-2 #[nil " !" [kill-all-local-variables rmail-mode-1 rmail-variables run-hooks rmail-mode-hook] 2]) (defalias 'rmail-mode-1 #[nil "! !AB\f!!" [rmail-mode major-mode "RMAIL" mode-name t buffer-read-only nil buffer-auto-save-file-name boundp mode-line-modified "--- " default-value mode-line-format use-local-map rmail-mode-map set-syntax-table text-mode-syntax-table text-mode-abbrev-table local-abbrev-table] 3]) (defalias 'rmail-variables #[nil "!!!!!!!!!!\f!!!\"!!! !s!!!\" PC!͉$" [make-local-variable revert-buffer-function rmail-revert font-lock-defaults (rmail-font-lock-keywords t) rmail-last-label rmail-last-regexp rmail-deleted-vector rmail-summary-buffer rmail-summary-vector rmail-current-message rmail-total-messages require-final-newline nil rmail-overlay-list version-control never kill-buffer-hook add-hook rmail-mode-kill-summary file-precious-flag t rmail-message-vector rmail-inbox-list rmail-parse-file-inboxes buffer-file-name expand-file-name rmail-file-name buffer-file-truename abbreviate-file-name file-truename rmail-primary-inbox-list getenv "MAIL" rmail-spool-directory user-login-name rmail-keywords] 5]) (defalias 'rmail-revert #[(arg noconfirm) " \f\" db )" [nil revert-buffer-function revert-buffer arg noconfirm rmail-convert-file rmail-mode] 3]) (defalias 'rmail-parse-file-inboxes #[nil "~b!.#`}b#.``}eb *" [1 looking-at "BABYL OPTIONS:" search-forward "\n" nil move "\nMail:" t mail-parse-comma-list] 4]) #@30 Expunge and save RMAIL file. (defalias 'rmail-expunge-and-save #[nil " 7  ( Ȏ\n!\f!,4\nq\f!* )" [rmail-expunge save-buffer rmail-summary-exists rmail-total-messages total rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer set-buffer-modified-p nil rmail-maybe-display-summary] 2 (#$ . 16984) nil]) #@20 Quit out of RMAIL. (defalias 'rmail-quit #[nil "  ! !p\f!\f!)" [rmail-expunge-and-save rmail-summary-buffer replace-buffer-in-windows bury-buffer obuf] 2 (#$ . 17380) nil]) #@51 Bury current Rmail buffer and its summary buffer. (defalias 'rmail-bury #[nil "p  ! !\" !)p!!!)" [buffer-to-bury rmail-summary-exists nil window get-buffer-window rmail-summary-buffer set-window-buffer other-buffer bury-buffer switch-to-buffer] 4 (#$ . 17574) nil]) #@124 Create a duplicated copy of the current message. The duplicate copy goes into the Rmail file just after the original copy. (defalias 'rmail-duplicate-message #[nil "~ ! !{ !b\fc !!+" [nil rmail-current-message rmail-msgbeg rmail-msgend string number buffer-read-only rmail-forget-messages rmail-show-message message "Message duplicated"] 5 (#$ . 17875) nil]) #@29 Run Rmail on file FILENAME. (defalias 'rmail-input #[(filename) " !" [rmail filename] 2 (#$ . 18260) "FRun rmail on RMAIL file: "]) (defalias 'rmail-find-all-files #[(start) " !6 \f$ʼn/@A!\"+\f \"A !C" [file-accessible-directory-p start directory-files t rmail-secondary-file-regexp nil file ret files rmail-find-all-files sort string< string-match file-name-nondirectory] 5]) (defalias 'rmail-list-to-menu #[(menu-name l action &optional full-name) " !!\"\n)" [make-sparse-keymap menu-name menu mapcar #[(item) "\n:$\n@\nA\f  \n@Q\n@$\n@>\n\f 7 \nQ8\n \"DF !! B#)" [nil command item rmail-list-to-menu action full-name "/" name lambda (interactive) expand-file-name rmail-secondary-file-directory define-key menu vector intern] 8] reverse l] 4]) (put (quote rmail-disable-menu) (quote menu-enable) (quote (quote nil))) (defalias 'rmail-construct-io-menu #[nil " !\"\f\n#B#\f\n#B#-\f#\f#)" [rmail-find-all-files rmail-secondary-file-directory files define-key rmail-mode-map [menu-bar classify input-menu] "Input Rmail File" rmail-list-to-menu rmail-input [menu-bar classify output-menu] "Output Rmail File" rmail-output-to-rmail-file [menu-bar classify input-menu] ("Input Rmail File" . rmail-disable-menu) [menu-bar classify output-menu] ("Output Rmail File" . rmail-disable-menu)] 9]) #@684 Move any new mail from this RMAIL file's inbox files. The inbox files can be specified with the file's Mail: option. The variable `rmail-primary-inbox-list' specifies the inboxes for your primary RMAIL file if it has no Mail: option. By default, this is your /usr/spool/mail/$USER. You can also 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 causes us to read a file name and use that file as the inbox. This function runs `rmail-get-new-mail-hook' before saving the updated file. It returns t if it got any new messages. (defalias 'rmail-get-new-mail #[(&optional file-name) "p! ! ~\f=ǎ` $   \f dbx`d|``}QC\"X\"\feb  ) !~#`d}eTb ! )\fݏ\fA\f* Ub!Ƃ !\" %(!\"! ,(q\"! * ) U# !!=5\"." [verify-visited-file-modtime find-file buffer-file-name rmail-maybe-set-message-counters buffer-undo-list t nil ((rmail-show-message)) 0 make-backup-files buffer-modified-p buffer-read-only delete-files new-messages opoint " \n" file-name rmail-insert-inbox-text rmail-inbox-list rmail-convert-to-babyl-format zerop success search-backward "\n" rmail-count-new-messages run-hooks rmail-get-new-mail-hook save-buffer (byte-code "" [nil (byte-code " @!" [delete-file delete-files] 2) ((file-error (byte-code "`` @#" [write-region delete-files] 4)))] 3) ((file-error)) message "(No new mail has arrived)" rmail-summary-exists rmail-total-messages total rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer rmail-update-summary rmail-maybe-display-summary "%d new message%s read" 1 "" "s" rmail-show-message rmail-first-unseen-message process-status "display-time" run display-time-filter display-time-process] 7 (#$ . 19678) (list (if current-prefix-arg (read-file-name "Get new mail from file: ")))]) (defalias 'rmail-insert-inbox-text #[(files renamep) "W@!!!P  !P! !\": !\nX !P!!\" !X \" c!\f!{\f!8U{\f\" ! !8U \" \f! !\n ޏ!⎊!!!!')\"! \f&!!!qed$dbx`d|eb!eە|!ed{P!!+\f!J4db\f!A@4dbhUE4!Ec\f B)!A -" [nil popmail movemail delete-files tofile file files file-truename expand-file-name substitute-in-file-name "+" rmail-spool-directory file-name-nondirectory string-match "^po:" t renamep ".newmail-" file-name-directory buffer-file-name file-directory-p user-login-name message "Getting mail from post office ..." file-exists-p 7 file-attributes 0 "Getting mail from %s..." (copy-file file tofile nil) ((error (rename-file file tofile t))) (byte-code "`` #" [write-region file] 4) ((file-error)) errors ((byte-code "!" [errors kill-buffer] 2)) generate-new-buffer " *rmail loss*" buffer-disable-undo call-process rmail-movemail-program "movemail" exec-directory buffer-modified-p subst-char-in-region 10 32 " " looking-at "movemail: " beep sit-for 3 size insert-file-contents zerop ""] 8]) (defalias 'rmail-convert-to-babyl-format #[nil "ebm!0#&e`| e`| !W#A T`w`)|`d} !)!`#!) `S}eb#!*`d}T !`c #`S)u#``{!*)@!6\\dX6\\bwm(! #(!#(!)(!)6\\b@!#+'#Zb]dbT `}eb#z!k*c`d} l! ! )," [0 nil #[nil "!! P#yLJdb" [message "Invalid Babyl format in inbox!" sit-for 1 re-search-forward mmdf-delim1 "\\|^From" nil t 0] 4] invalid-input-resync case-fold-search start count looking-at "BABYL OPTIONS:" search-forward "\n" t "\f" " \n" mmdf-delim1 replace-match "\f\n0, unseen,,\n*** EOOH ***\n" re-search-forward mmdf-delim2 "" "\n^_" "^From " rmail-nuke-pinhead-header "\n\n" header-end -1 "\ncontent-length: " eol beg string-to-int size natnump "\n" "From " message "Ignoring invalid Content-Length field" sit-for 1 "^[]?\\(" rmail-unix-mail-delimiter "\\|" "^BABYL OPTIONS:\\|" "\f\n[01],\\)" 31 delete-char error "Cannot convert to babyl format"] 9]) (defalias 'rmail-nuke-pinhead-header #[nil "`` }b#b#.`b)P#x LтlӔӕUYԂjՔՕUiՔՕ{jQ\ftтuQ\"." [nil (search-forward "\n\n") ((error (byte-code "dbc" ["\n\n"] 1))) has-date has-from end start t case-fold-search search-forward "\nFrom:" "\nDate:" re-search-forward "^" rmail-unix-mail-delimiter replace-match "Mail-from: \\&" "" "Date: \\3, \\5 \\4 \\9 \\6 " 7 "\\7" 10 "EST" "\n" "From: \\1\n"] 6]) (defalias 'rmail-reformat-message #[(beg end) "bygU! Z !cy !3y')!A`y`|`#`){ձ` Z})ebi su *" [beg 1 48 error "Bad format in RMAIL file." nil buffer-size end delta buffer-read-only delete-char 49 t case-fold-search looking-at "Summary-line:\\|Mail-From:" "\\*\\*\\* EOOH \\*\\*\\*\n" search-forward "\n\n" move str "*** EOOH ***\n" rmail-message-filter rmail-displayed-headers rmail-ignored-headers rmail-clear-headers] 6]) #@365 Delete all header fields that Rmail should not show. If the optional argument IGNORED-HEADERS is non-nil, delete all header fields whose names match that regexp. Otherwise, if `rmail-displayed-headers' is non-nil, delete all header fields *except* those whose names match that regexp. Otherwise, delete all header fields whose names match `rmail-ignored-headers'. (defalias 'rmail-clear-headers #[(&optional ignored-headers) "#~\fP Pe`}‰eb!m?-`S)K\f#)Cb`|*eb) W\ne`} eb #)}y`!`S|_*" [search-forward "\n\n" nil t rmail-displayed-headers ignored-headers lim buffer-read-only re-search-forward "\n[^ ]" rmail-ignored-headers case-fold-search 0] 4 (#$ . 25119)]) #@79 Show original message header if pruned header currently shown, or vice versa. (defalias 'rmail-toggle-header #[nil " \n!d}ebygU]!cy\n!0y$)cu!y`#N`|)eb!`d}bed\") " [rmail-maybe-set-message-counters rmail-msgbeg rmail-current-message nil buffer-read-only 1 49 delete-char 48 t case-fold-search looking-at "Summary-Line:\\|Mail-From:" "*** EOOH ***\n" -1 search-forward "\n*** EOOH ***\n" temp "\n\n" rmail-reformat-message rmail-highlight-headers] 4 (#$ . 25860) nil]) (defalias 'rmail-display-labels #[nil " Ǝ~!by!l``} eb#A!)m)c))db#l`eTVZe\\`{d`ZVl `\\dS{Q* \" ۉO ەOQm \" ۉO ەOQ $ +" ["" point-min-marker point-max-marker end beg blurb ((byte-code " }‰ ‰" [beg end nil] 3)) rmail-msgbeg rmail-current-message 1 looking-at "[01]," nil buffer-read-only search-forward "," t "[ ,]" " " search-backward ",," move 2 ";" 3 string-match " +," 0 ", +" format " %d/%d%s" rmail-total-messages mode-line-process] 5]) (defalias 'rmail-set-attribute #[(attr state &optional msgnum) " VhɎ~!\\bQ`#????=YL`ȕS|Yyuϱ)՘g\"*+" [point-max-marker point-min-marker nil buffer-read-only omin omax msgnum rmail-current-message 0 ((byte-code " }‰ ‰ \fU ‡" [omin omax nil msgnum rmail-current-message rmail-display-labels] 3)) rmail-msgbeg 3 search-backward ", " attr "," t curstate state 2 " " "deleted" rmail-set-message-deleted-p] 5]) (defalias 'rmail-message-labels-p #[(msg labels) "~ !bu\f`#*" [rmail-msgbeg msg 3 re-search-backward labels nil t] 4]) (defalias 'rmail-msgend #[(n) " \nTH!" [marker-position rmail-message-vector n] 3]) (defalias 'rmail-msgbeg #[(n) " \nH!" [marker-position rmail-message-vector n] 3]) #@343 Call FUNCTION with point at start of internal data of current message. Assumes that bounds were previously narrowed to display the message in Rmail. The bounds are widened enough to move point where desired, then narrowed again afterward. FUNCTION may not change the visible text of the message, but it may change the invisible header text. (defalias 'rmail-widen-to-current-msgbeg #[(function) "deZ !d}eb\f +" [obeg ((byte-code "dZd}" [obeg] 2)) rmail-msgbeg rmail-current-message function] 2 (#$ . 27734)]) (defalias 'rmail-forget-messages #[nil "\n!&\nG\fW% \fHlj\fT+)" [((byte-code "" [nil rmail-message-vector rmail-deleted-vector] 1)) vectorp rmail-message-vector 0 i v n nil] 4]) (defalias 'rmail-maybe-set-message-counters #[nil " \n ? " [rmail-deleted-vector rmail-message-vector rmail-current-message rmail-total-messages rmail-set-message-counters] 1]) (defalias 'rmail-count-new-messages #[(&optional nomsg) "!db!u Ce!T \\\fA\"\f@I P \"\"ebY \"," [nil case-fold-search 0 total-messages messages-head deleted-head nomsg message "Counting new messages..." search-backward "\n" 1 point-marker rmail-set-message-counters-counter rmail-total-messages rmail-current-message vconcat rmail-message-vector rmail-deleted-vector rmail-summary-vector make-vector "Counting new messages...done (%d)"] 6]) (defalias 'rmail-set-message-counters #[nil " ~`!db#`dU,u C` ^!   Z]^ B\"P\"!." [rmail-forget-messages point-save 0 total-messages nil messages-after-point case-fold-search messages-head deleted-head message "Counting messages..." search-backward "\n" t 1 point-marker rmail-set-message-counters-counter rmail-total-messages rmail-current-message apply vector point-min-marker rmail-message-vector "D" rmail-deleted-vector make-vector rmail-summary-vector "Counting messages...done"] 4]) (defalias 'rmail-set-message-counters-counter #[(&optional stop) "\n#?u B`y#\"ɂ# B )\fT\fͦU\f\"" [search-backward "\n\f\n" stop t 1 point-marker messages-head ", deleted," 2 68 32 deleted-head total-messages 20 0 message "Counting messages...%d"] 4]) #@51 Show current message starting from the beginning. (defalias 'rmail-beginning-of-message #[nil " !" [rmail-show-message rmail-current-message] 2 (#$ . 30014) nil]) #@148 Show message number N (prefix argument), counting from start of file. If summary buffer is currently displayed, update current message there also. (defalias 'rmail-show-message #[(&optional n no-summary) " ~ UedS}ebÉ%MX7M VI  M!! bygUt \"\" #` }eb !!   #&! Չ#,&q Չ#* * !+" [rmail-maybe-set-message-counters rmail-total-messages 0 nil mode-line-process blurb n rmail-current-message 1 "No previous message" "No following message" rmail-msgbeg rmail-msgend end beg 48 rmail-reformat-message rmail-set-attribute "unseen" search-forward "\n*** EOOH ***\n" t rmail-display-labels rmail-highlight-headers transient-mark-mode mark-active run-hooks deactivate-mark-hook rmail-show-message-hook rmail-summary-exists no-summary curr-msg total rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer rmail-summary-goto-msg rmail-maybe-display-summary message] 5 (#$ . 30186) "p"]) (defalias 'rmail-highlight-headers #[nil "!\n#e`}lj(!'ʂ(\f eb\n#w`y!Guhٝ_uS  @ A #`#`\"#\fB\f*5." [fboundp internal-find-face rmail-highlighted-headers search-forward "\n\n" nil move t rmail-highlight-face face-differs-from-default-p bold highlight rmail-overlay-list overlays face inhibit-read-only case-fold-search re-search-forward " " overlay beg 1 looking-at "[ ]" -1 (32 9) overlay-put move-overlay make-overlay] 4]) #@123 Show following message whether deleted or not. With prefix arg N, moves forward N messages, or backward if N is negative. (defalias 'rmail-next-message #[(n) " \n \\!" [rmail-maybe-set-message-counters rmail-show-message rmail-current-message n] 3 (#$ . 31820) "p"]) #@122 Show previous message whether deleted or not. With prefix arg N, moves backward N messages, or forward if N is negative. (defalias 'rmail-previous-message #[(n) " [!" [rmail-next-message n] 2 (#$ . 32098) "p"]) #@183 Show following non-deleted message. With prefix arg N, moves forward N non-deleted messages, or backward if N is negative. Returns t if a new message is being shown, nil otherwise. (defalias 'rmail-next-undeleted-message #[(n) " \fV&\nW&\nT\n!\n\fS\fWD\nVD\nS\n!&\n\fT' UR !ʂg\fW\\!\fVf!*" [rmail-maybe-set-message-counters rmail-current-message current lastwin n 0 rmail-total-messages rmail-message-deleted-p 1 rmail-show-message t message "No previous nondeleted message" "No following nondeleted message" nil] 3 (#$ . 32318) "p"]) #@128 Show previous non-deleted message. With prefix argument N, moves backward N non-deleted messages, or forward if N is negative. (defalias 'rmail-previous-undeleted-message #[(n) " [!" [rmail-next-undeleted-message n] 2 (#$ . 32921) "p"]) #@29 Show first message in file. (defalias 'rmail-first-message #[nil " !" [rmail-maybe-set-message-counters rmail-show-message 1] 2 (#$ . 33166) nil]) #@28 Show last message in file. (defalias 'rmail-last-message #[nil " \n!" [rmail-maybe-set-message-counters rmail-show-message rmail-total-messages] 2 (#$ . 33324) nil]) (defalias 'rmail-what-message #[nil "` ¥\f ZV. !Y! #  \f Z¥\\ \f!Y;\f< ," [1 rmail-total-messages 2 mid high low where rmail-msgbeg] 5]) (defalias 'rmail-message-recipients-p #[(msg recipients &optional primary-only) " !b!`!`}!\"?!*\"? ??!>\")" [rmail-msgbeg msg search-forward "\n*** EOOH ***\n" "\n\n" string-match recipients mail-fetch-field "To" "" "From" primary-only "Cc"] 4]) #@75 Return t, if for message number MSG, regexp REGEXP matches in the header. (defalias 'rmail-message-regexp-p #[(msg regexp) " !bd\"`)\f#)" [rmail-msgbeg msg search-forward "*** EOOH ***" end re-search-forward regexp t] 4 (#$ . 33958)]) (byte-code "! B‡" [boundp rmail-search-last-regexp nil current-load-list] 2) #@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-search #[(regexp &optional n) "Wł# ed`W\n \f ю~U?\fd  V S !b !# A  W T !b !# i\f\\4." [n 1 message "%sRmail search for %s..." 0 "Reverse " "" regexp rmail-maybe-set-message-counters nil rmail-current-message msg reversep win opoint omax omin ((byte-code "/  !b !#` ! %˂& #bA b} \"‡" [win reversep rmail-msgend msg re-search-backward regexp rmail-msgbeg t rmail-show-message message "%sRmail search for %s...done" "Reverse " "" opoint omin omax ding "Search failed: %s"] 4)) rmail-msgbeg re-search-forward rmail-msgend t rmail-total-messages -1] 7 (#$ . 34299) (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)]) #@221 Show message containing previous match for REGEXP. Prefix argument gives repeat count; negative argument means search forward (through later messages). Interactively, empty argument means use same regexp used last time. (defalias 'rmail-search-backwards #[(regexp &optional n) " \n[\"" [rmail-search regexp n 1] 3 (#$ . 35556) (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-first-unseen-message #[nil " ~ #\f X#\f\"\f\fT\n) *" [rmail-maybe-set-message-counters 1 nil found current rmail-total-messages rmail-message-labels-p ", ?\\(unseen\\),"] 3]) #@142 Go to the next mail message having the same subject header. With prefix argument N, do this N times. If N is negative, go backwards instead. (defalias 'rmail-next-same-subject #[(n) "!\n!QV \n  \n\"&\nȕO~U > WB V Z W^ V l To S  !b!`!`b#*H  ) ST,*  ! ނ\"-" [mail-fetch-field "Subject" subject "^Subject: *\\(Re: *\\)?" regexp-quote "\n" search-regexp n 0 forward rmail-current-message i nil found string-match "Re:[ ]*" rmail-total-messages 1 done rmail-msgbeg search-forward "\n*** EOOH ***\n" end beg "\n\n" re-search-forward t rmail-show-message error "No %s message with same subject" "following" "previous"] 5 (#$ . 36411) "p"]) #@145 Go to the previous mail message having the same subject header. With prefix argument N, do this N times. If N is negative, go forwards instead. (defalias 'rmail-previous-same-subject #[(n) " [!" [rmail-next-same-subject n] 2 (#$ . 37198) "p"]) (defalias 'rmail-message-deleted-p #[(n) " HU" [rmail-deleted-vector n 68] 2]) (defalias 'rmail-set-message-deleted-p #[(n state) " \n\n I" [rmail-deleted-vector n state 68 32] 3]) #@37 Delete this message and stay on it. (defalias 'rmail-delete-message #[nil "\"" [rmail-set-attribute "deleted" t] 3 (#$ . 37642) nil]) #@57 Back up to deleted message, select it, and undelete it. (defalias 'rmail-undelete-previous-message #[nil "V ! S U!!A U+ !\" ? q !) )" [rmail-current-message msg 0 rmail-message-deleted-p error "No previous deleted message" rmail-show-message rmail-set-attribute "deleted" nil rmail-summary-exists rmail-summary-buffer rmail-summary-mark-undeleted rmail-maybe-display-summary] 4 (#$ . 37786) nil]) #@258 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. Returns t if a new message is displayed after the delete, or nil otherwise. (defalias 'rmail-delete-forward #[(&optional backward) "\"  ? - \nˎ !\f!,; q\f!* )I҂J! )" [rmail-set-attribute "deleted" t rmail-current-message del-msg rmail-summary-exists rmail-total-messages total rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer rmail-summary-mark-deleted rmail-maybe-display-summary rmail-next-undeleted-message backward -1 1] 3 (#$ . 38232) "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-delete-backward #[nil "!" [rmail-delete-forward t] 2 (#$ . 38976) nil]) (defalias 'rmail-msg-number-after-expunge #[(deletedvec oldnum) "?\n HU?,ÉW* HU#\fT T\f*" [oldnum deletedvec 68 0 newnum i] 3]) #@50 Actually erase all deleted messages in the file. (defalias 'rmail-only-expunge #[nil "!\n=\f dZ eZ V- !-ʂ0`eZ\f HBю~eb p    !!@q!#=%\"%)!A!)X!HUH!TH!|HĉV S THBUSHBTU\"HB \" T\"!É." [message "Expunging deleted messages..." buffer-undo-list t nil rmail-maybe-set-message-counters buffer-size omax omin rmail-current-message 0 rmail-message-deleted-p opoint rmail-message-vector messages-head messages-tail win ((byte-code "!\n \fZ Z}U!\nu" [message "Expunging deleted messages...done" win buffer-size omin omax rmail-show-message rmail-current-message 0 1 opoint] 3)) 1 rmail-total-messages rmail-deleted-vector rmail-summary-vector summary deleted messages buffer-read-only rmailbuf new-summary new-message-number total number counter buffer-list bufs boundp rmail-send-actions-rmail-buffer rmail-msg-number-after-expunge rmail-send-actions-rmail-msg-number 68 marker-position 20 "Expunging deleted messages...%d" apply vector make-string 32 vconcat] 11 (#$ . 39363) nil]) #@60 Erase deleted messages from Rmail file and summary buffer. (defalias 'rmail-expunge #[nil " 2\n $ ǎ !  ,/ q  * )" [rmail-only-expunge rmail-summary-exists rmail-total-messages total rmail-summary-displayed selected-window window ((select-window window)) pop-to-buffer rmail-summary-buffer rmail-update-summary rmail-maybe-display-summary] 2 (#$ . 40614) nil]) (defalias 'rmail-start-mail #[(&rest args) " \f\" \"\f\"" [window-system rmail-mail-new-frame apply mail-other-frame args modify-frame-parameters selected-frame ((dedicated . t)) mail-other-window] 4]) #@123 Send mail in another window. While composing the message, use \[mail-yank-original] to yank the original message into it. (defalias 'rmail-mail #[nil "p&" [rmail-start-mail nil] 7 (#$ . 41231) nil]) #@64 Continue composing outgoing message previously being composed. (defalias 'rmail-continue #[nil "!" [rmail-start-mail t] 2 (#$ . 41444) 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-reply #[(just-sender) " p \n ~ !bygU>y` !#`}I`!y`}\"! \fa#a \nl|\fw\"|# \f\"!\f\"!\f\"ゴ#\f\"!*;')\"ՕOP\n!  #? \f Q!!/?/)pCC&!!\n2 3.\n" [nil rmail-current-message rmail-buffer msgnum resent-reply-to message-id to date subject cc reply-to from rmail-msgbeg 1 48 2 search-forward "\n\n" rmail-msgend move "\n*** EOOH ***\n" 0 mail-fetch-field "resent-reply-to" t "from" "reply-to" just-sender "resent-cc" "cc" "resent-subject" "subject" "resent-date" "date" "resent-to" "" "to" "resent-message-id" "message-id" rmail-reply-prefix string-match rmail-reply-regexp rmail-start-mail mail-strip-quoted-names rmail-make-in-reply-to-field rmail-dont-reply-to ", " cc-list (lambda nil (let ((msgnum rmail-send-actions-rmail-msg-number)) (save-excursion (set-buffer rmail-send-actions-rmail-buffer) (if msgnum (rmail-set-attribute "answered" t msgnum))))) make-local-variable rmail-send-actions-rmail-buffer rmail-send-actions-rmail-msg-number] 11 (#$ . 41595) "P"]) (defalias 'rmail-make-in-reply-to-field #[(from date message-id) "\n  \ns!!@ D\"/ʉO1! \"; q Rq!G$!!nQp))۰\"ް\"*ߔߕ ! W!H>!T!! W SH> S ! OR R+ #)" [from message-id mail-use-rfc822 require rfc822 rfc822-addresses tem string-match regexp-quote "@[^@]*\\'" 0 " (" ")" copy-sequence set-text-properties nil prin1-to-string field date "'s message of " "[^][--()<>@,;:\\\" ]+" foo "[^][--()<>@,;:\\\"]+" bar "\\`[ ]*\\(" "\\)\\(<" "@" ">\\)?[ ]*\\'" "\\`[ ]*<" ">[ ]*(\\(" "\\))[ ]*\\'" 1 end start (9 32) (9 32) "message from " " on " t rmail-make-in-reply-to-field] 9]) #@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-forward #[(resend) "!p !!#!P$)!,RC!CԂD։։CC&!!eb!Q!yc!c )+" [resend call-interactively rmail-resend rmail-current-message "[" mail-fetch-field "From" ">From" from mail-strip-quoted-names ": " "" "Subject" "]" subject msgnum forward-buffer rmail-mail-new-frame one-window-p t mail rmail-start-mail nil #[nil "\nq  #*" [rmail-send-actions-rmail-msg-number msgnum rmail-send-actions-rmail-buffer rmail-set-attribute "forwarded" t] 4] make-local-variable rmail-send-actions-rmail-buffer rmail-send-actions-rmail-msg-number search-forward-regexp "^" regexp-quote mail-header-separator "$" 1 "------- Start of forwarded message -------\n" insert-buffer-substring "------- End of forwarded message -------\n" push-mark] 9 (#$ . 43785) "P"]) #@493 Resend current message to ADDRESSES. ADDRESSES should be a single address, a string consisting of several addresses separated by commas, or a list of addresses. Optional FROM is the address to resend the message from, and defaults to the username of the person redistributing the message. Optional COMMENT is a string that will be inserted as a comment in the resent message. Optional ALIAS-FILE is alternate aliases file to be used by sendmail, typically for purposes of moderating a list. (defalias 'rmail-resend #[(address &optional from comment mail-alias-file) "!!  !p \n \f͎\fq !eb##X`y!OyC`|)2eb ڱ ڱ`w ڱ!;!!#ڱ! ( *+,(!/! 2!b`,Wv`,X *!+`\"*6!6GU`86clc`8b`8Wcy*:; +>#," [require sendmail mailalias from user-login-name generate-new-buffer " sendmail temp" "" nil mailbuf case-fold-search mail-header-separator tembuf ((kill-buffer tembuf)) insert-buffer-substring re-search-forward "^$" move re-search-backward "^Sender:" t beg 1 looking-at "[ ]" "Resent-From: " "\n" "Resent-Date: " mail-rfc822-date before mail-self-blind "Resent-Bcc: " "Resent-To: " address mapconcat identity ",\n " featurep mailabbrev point-marker mail-abbrevs syntax-table old-syntax-table local-abbrev-table end vectorp file-exists-p mail-personal-alias-file build-mail-abbrevs set-syntax-table mail-abbrev-syntax-table expand-abbrev expand-mail-aliases sequencep comment 0 after "Resent-Comment: " mail-aliases send-mail-function rmail-set-attribute "resent" rmail-current-message] 5 (#$ . 44803) "sResend to: "]) #@74 A regexp that matches the separator before the text of a failed message. (defvar mail-unsent-separator (concat "^ *---+ +Unsent message follows +---+ *$\\|" "^ *---+ +Returned message +---+ *$\\|" "^Start of returned message$\\|" "^ *---+ +Original message +---+ *$\\|" "^ *--+ +begin message +--+ *$\\|" "^ *---+ +Original message follows +---+ *$\\|" "^|? *---+ +Message text follows: +---+ *|?$") (#$ . 46500)) #@430 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. The variable `mail-unsent-separator' should match the string that delimits the returned original message. The variable `rmail-retry-ignored-headers' is a regular expression specifying headers which should not be copied into the new message. (defalias 'rmail-retry-failure #[nil "!‰  #^y``{ !p !#@!`db !`)#Z!)#k!w!wip!q!db#`d|ed[#eb#*d\"w!!wy`d}p`d#!**‰$%‰&N  \f#eb*!!eb!ye`}!/6 / ֱ6 ֱ)3c DE\"q ." [require mail-utils nil resending bounce-end bounce-start mail-buffer rmail-beginning-of-message t case-fold-search search-forward "This is a MIME-encapsulated message\n\n--" 0 codestring re-search-forward mail-unsent-separator "\n\n" error "Cannot find end of Mime data in failed message" search-backward "Cannot find end of header in failed message" "Cannot parse this as a failure message" "\n" looking-at " *Received:" column " " old-buffer get-buffer-create " rmail retry temp" insert-buffer re-search-backward "^End of returned message$" indent-rigidly old-end "^--" mail-setup-hook mail-signature rmail-start-mail erase-buffer insert-buffer-substring rmail-clear-headers rmail-retry-ignored-headers "^sender:\\|^from\\|^return-path" -1 mail-fetch-field "resent-to" mail-self-blind "Resent-Bcc: " user-login-name "BCC: " mail-header-separator mail-position-on-field "Resent-To" "To"] 7 (#$ . 46921) nil]) #@139 Non-nil iff in an RMAIL buffer and an associated summary buffer exists. In fact, the non-nil value returned is the summary buffer itself. (defalias 'rmail-summary-exists #[nil " ! " [rmail-summary-buffer buffer-name] 2 (#$ . 48648)]) #@70 t iff in RMAIL buffer and an associated summary buffer is displayed. (defalias 'rmail-summary-displayed #[nil "!" [rmail-summary-buffer get-buffer-window] 2 (#$ . 48897)]) #@115 *Non-nil means Rmail should show the summary when it changes. This has an effect only if a summary buffer exists. (defvar rmail-redisplay-summary nil (#$ . -49083)) #@64 *Non-nil means specify the height for an Rmail summary window. (defvar rmail-summary-window-size nil (#$ . -49254)) (defalias 'rmail-maybe-display-summary #[nil " \f5\f!55\f\"1\f\"!\n\n!\n!)5\f!\fe\f!ee\f!e\n\n!!=?eЎ\n! Z!)*" [selected-window nil window selected rmail-summary-buffer buffer-name rmail-redisplay-summary get-buffer-window 0 window-frame frame make-frame-visible raise-frame display-buffer rmail-summary-window-size frame-root-window ((select-window selected)) select-window enlarge-window window-height] 4]) #@160 Set the inbox list of the current RMAIL file to FILE-NAME. This may be a list of file names separated by commas. If FILE-NAME is empty, remove any inbox list. (autoload (quote set-rmail-inbox-list) "rmailmsc" '(#$ . 49842) t) #@116 Add LABEL to labels associated with current RMAIL message. Completion is performed over known labels when reading. (autoload (quote rmail-add-label) "rmailkwd" '(#$ . 50075) t) #@121 Remove LABEL from labels associated with current RMAIL message. Completion is performed over known labels when reading. (autoload (quote rmail-kill-label) "rmailkwd" '(#$ . 50259) t) #@126 Show next message with LABEL. Defaults to last label used. With prefix argument N moves forward N messages with this label. (autoload (quote rmail-next-labeled-message) "rmailkwd" '(#$ . 50449) t) #@131 Show previous message with LABEL. Defaults to last label used. With prefix argument N moves backward N messages with this label. (autoload (quote rmail-previous-labeled-message) "rmailkwd" '(#$ . 50654) t) #@57 PROMPT and read with completion an Rmail message label. (autoload (quote rmail-read-label) "rmailkwd" '(#$ . 50867) t) #@42 Edit the contents of the current message (autoload (quote rmail-edit-current-message) "rmailedit" '(#$ . 50992) t) #@113 Sort messages of current Rmail file by date. If prefix argument REVERSE is non-nil, sort them in reverse order. (autoload (quote rmail-sort-by-date) "rmailsort" '(#$ . 51114) t) #@116 Sort messages of current Rmail file by subject. If prefix argument REVERSE is non-nil, sort them in reverse order. (autoload (quote rmail-sort-by-subject) "rmailsort" '(#$ . 51299) t) #@115 Sort messages of current Rmail file by author. If prefix argument REVERSE is non-nil, sort them in reverse order. (autoload (quote rmail-sort-by-author) "rmailsort" '(#$ . 51490) t) #@118 Sort messages of current Rmail file by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order. (autoload (quote rmail-sort-by-recipient) "rmailsort" '(#$ . 51679) t) #@128 Sort messages of current Rmail file by other correspondent. If prefix argument REVERSE is non-nil, sort them in reverse order. (autoload (quote rmail-sort-by-correspondent) "rmailsort" '(#$ . 51874) t) #@124 Sort messages of current Rmail file by number of lines. If prefix argument REVERSE is non-nil, sort them in reverse order. (autoload (quote rmail-sort-by-lines) "rmailsort" '(#$ . 52083) t) #@161 Sort messages of current Rmail file by labels. If prefix argument REVERSE is non-nil, sort them in reverse order. KEYWORDS is a comma-separated list of labels. (autoload (quote rmail-sort-by-keywords) "rmailsort" '(#$ . 52280) t) #@58 Display a summary of all messages, one line per message. (autoload (quote rmail-summary) "rmailsum" '(#$ . 52516) t) #@138 Display a summary of all messages with one or more LABELS. LABELS should be a string containing the desired labels, separated by commas. (autoload (quote rmail-summary-by-labels) "rmailsum" '(#$ . 52640) t) #@260 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. (autoload (quote rmail-summary-by-recipients) "rmailsum" '(#$ . 52854) t) #@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. (autoload (quote rmail-summary-by-regexp) "rmailsum" '(#$ . 53194) t) #@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. (autoload (quote rmail-summary-by-topic) "rmailsum" '(#$ . 53521) t) #@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. (autoload (quote rmail-output-to-rmail-file) "rmailout" '(#$ . 53834) t) #@56 Append this message to Unix mail file named FILE-NAME. (autoload (quote rmail-output) "rmailout" '(#$ . 54121) t) #@127 Break up a digest message into its constituent messages. Leaves original message, deleted, before the undigestified messages. (autoload (quote undigestify-rmail-message) "undigest" '(#$ . 54242) t) (provide (quote rmail))