;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Sep 11 21:09:26 1994 ;;; from file /home/fsf/rms/e19/lisp/rmail.el ;;; emacs version 19.26.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/home/fsf/rms/e19/lisp/rmail.el' was compiled for Emacs 19")) (byte-code "!!!\"" [require mail-utils fboundp buffer-disable-undo buffer-flush-undo defalias] 3) (defvar rmail-movemail-program nil "\ If non-nil, name of program for fetching new mail.") (defvar rmail-dont-reply-to-names nil "\ *A regexp specifying names to prune of reply to messages. A value of nil means exclude your own name only.") (defvar rmail-default-dont-reply-to-names "info-" "\ 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-ignored-headers "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:\\|^message-id:\\|^summary-line:" "\ *Regexp to match Header fields that Rmail should normally hide.") (defvar rmail-highlighted-headers "^From:\\|^Subject:" "\ *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-highlight-face nil "\ *Face used by Rmail for highlighting headers.") (defvar rmail-delete-after-output nil "\ *Non-nil means automatically delete a message that is copied to a file.") (defvar rmail-primary-inbox-list nil "\ *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-mail-new-frame nil "\ *Non-nil means Rmail makes a new frame for composing outgoing mail.") (defvar rmail-retry-setup-hook nil "\ Hook that `rmail-retry-failure' uses in place of `mail-setup-hook'.") (defvar rmail-secondary-file-directory "~/" "\ *Directory for additional secondary Rmail files.") (defvar rmail-secondary-file-regexp "\\.xmail$" "\ *Regexp for which files are secondary Rmail files.") (defvar mmdf-delim1 "^\n" "\ Regexp marking the start of an mmdf message") (defvar mmdf-delim2 "^\n" "\ Regexp marking the end of an mmdf message") (defvar rmail-message-filter nil "\ If non nil, a filter function for new messages in RMAIL. Called with region narrowed to the message, including headers.") (defvar rmail-reply-prefix "Re: " "\ String to prepend to Subject line when replying to a message.") (defvar rmail-display-summary nil "\ If non nil, the summary buffer is always displayed.") (byte-code "!!!! !)!2!;!D !M\n!V !_\f!h !q‡" [boundp rmail-mode-map nil rmail-inbox-list rmail-keywords rmail-current-message rmail-total-messages rmail-message-vector rmail-deleted-vector rmail-overlay-list rmail-summary-buffer rmail-summary-vector rmail-last-label rmail-last-multi-labels rmail-last-regexp] 2) (defvar rmail-default-file nil "\ *Default file name for \\[rmail-output].") (defvar rmail-default-rmail-file (expand-file-name "~/XMAIL") "\ *Default file name for \\[rmail-output-to-rmail-file].") (byte-code "!!RҰ)\"" [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]*\\) *" "\\([^ ]*\\) *" "\\([0-9]*\\) *" "\\([0-9:]*\\) *" " [0-9][0-9]\\([0-9]*\\) *" "\\(remote from .*\\)?" "\n" 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])] 14) (defalias 'rmail #[(&optional file-name-arg) "! \f! !?!?\n !)!G\f=G G\n !)\f=R!k Vk\f=  db  !) *" [rmail-default-file expand-file-name "~/xmail" 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-first-unseen-message existing-unseen rmail-get-new-mail rmail-display-summary rmail-summary] 3 "\ 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." (byte-code " É$C" [current-prefix-arg read-file-name "Run rmail on RMAIL file: " nil t] 5)]) (byte-code "\"\"   ! # # # # # # # # # # # # # # # # # # # # # # # # # # # # @# AB# CD# EF# GH# IJ# K# LM# NO# PQ# RS# TU# VW# XY# Z[# \\]# ^_# `a# bc# de# fg# hi # jkik!B# lm# no# pq# rs# tu# vw# xyiy!B# z{# |}# ~# # # i!B# # # # # # # # # i!B# # # # # i!B# # # # # # # # ##" [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] 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] 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 [menu-bar] make-sparse-keymap [menu-bar classify] "Classify" [menu-bar classify input-menu] ("Input Rmail file (menu)..." . rmail-input-menu) [menu-bar classify output-menu] ("Output (Rmail menu)..." . rmail-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-backward) [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 #[nil " !" [rmail-mode-2 rmail-set-message-counters rmail-show-message rmail-total-messages] 2 "\ 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." nil]) (byte-code "\"\"\"\"\"" [defalias rmail-mode-2 #[nil " !" [kill-all-local-variables rmail-mode-1 rmail-variables run-hooks rmail-mode-hook] 2] 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] rmail-variables #[nil "!!!!!!!!!\n!\f! !!! w!d!!wu!t PC!ˉ" [make-local-variable revert-buffer-function rmail-revert 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 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] rmail-revert #[(arg noconfirm) " \f\" db )" [nil revert-buffer-function revert-buffer arg noconfirm rmail-convert-file rmail-set-message-counters rmail-show-message] 3] 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]] 3) (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 "\ Expunge and save RMAIL file." nil]) (defalias 'rmail-quit #[nil "  ! !p\f!\f!)" [rmail-expunge-and-save rmail-summary-buffer replace-buffer-in-windows bury-buffer obuf] 2 "\ Quit out of RMAIL." nil]) (defalias 'rmail-input #[(filename) " !" [rmail filename] 2 "\ Run Rmail on file FILENAME." "FRun rmail on RMAIL file: "]) (defalias (quote rmail-secondary-file-menu) #[(event) " #)ʼn\f\"BD\n\" % \"*0 #)" [directory-files rmail-secondary-file-directory nil rmail-secondary-file-regexp files "Rmail Files" mapcar #[(f) "B" [f] 2] menu x-popup-menu event chosen expand-file-name message "No files matching %s%s found"] 6]) (defalias 'rmail-input-menu #[(event) " ! \n!)" [rmail-secondary-file-menu event file-name rmail-input] 3 "\ Choose a new Rmail file to edit, with a menu. The variables `rmail-secondary-file-directory' and `rmail-secondary-file-regexp' control which files are offered in the menu." "e"]) (defalias 'rmail-get-new-mail #[(&optional file-name) "p! !p! ~=%Ɏ` 1   dbx`d|``}^C\"e\" eb )!~#`d}eTb ! ) ޏ A *Ub3!3 \"# &)!#\" ,)q#\" * )U#!31;31\"31ʉO1ʕOP13!." [verify-visited-file-modtime find-file buffer-file-name t buffer-read-only rmail-forget-messages rmail-maybe-set-message-counters buffer-undo-list nil ((rmail-show-message)) 0 make-backup-files buffer-modified-p 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" boundp display-time-string string-match " Mail" force-mode-line-update all] 7 "\ 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." (list (if current-prefix-arg (read-file-name "Get new mail from file: ")))]) (byte-code "\"\"\"\"\"" [defalias rmail-insert-inbox-text #[(files renamep) "M@!!!P !\f! !\"8 !\nV !P!!\" !V \" a!\f!q\f!8U ! !8U \" \f! !\n ޏ!⎊!!!!')\"! \f&!!!qed$dbx`d|eb!eە|!ed{P!!+\f!@4db\f!A@4dbhU;4!;c\f B)!A -" [nil popmail movemail delete-files tofile file files file-truename expand-file-name substitute-in-file-name "+" file-name-directory rmail-spool-directory string-match "^po:" file-name-nondirectory t renamep ".newmail-" 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] 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] 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] rmail-reformat-message #[(beg end) "bygU! Z !cy !3y')!A`y`|`#`){ձ` Z})ebh p *" [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-ignored-headers rmail-clear-headers rmail-message-filter] 6] rmail-clear-headers #[nil "#0e`}eb#)/y`!u`|*" [search-forward "\n\n" nil t buffer-read-only case-fold-search re-search-forward rmail-ignored-headers 0 "\n[^ ]" -1] 4]] 3) (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 "\ Show original message header if pruned header currently shown, or vice versa." nil]) (byte-code "\"\"\"\"\"" [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 ", +" "/" rmail-total-messages mode-line-process] 5] 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] rmail-message-labels-p #[(msg labels) "~ !bu\f`#*" [rmail-msgbeg msg 3 re-search-backward labels nil t] 4] rmail-msgend #[(n) " \nTH!" [marker-position rmail-message-vector n] 3] rmail-msgbeg #[(n) " \nH!" [marker-position rmail-message-vector n] 3]] 3) (defalias 'rmail-widen-to-current-msgbeg #[(function) "deZ !d}eb\f +" [obeg ((byte-code "dZd}" [obeg] 2)) rmail-msgbeg rmail-current-message function] 2 "\ 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."]) (byte-code "\"\"\"\"\"" [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] rmail-maybe-set-message-counters #[nil " \n ? " [rmail-deleted-vector rmail-message-vector rmail-current-message rmail-total-messages rmail-set-message-counters] 1] 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] 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] 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]] 3) (defalias 'rmail-beginning-of-message #[nil " !" [rmail-show-message rmail-current-message] 2 "\ Show current message starting from the beginning." nil]) (defalias 'rmail-show-message #[(&optional n) " ~ 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 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 "\ Show message number N (prefix argument), counting from start of file. If summary buffer is currently displayed, update current message there also." "p"]) (defalias (quote 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]) (defalias 'rmail-next-message #[(n) " \n \\!" [rmail-maybe-set-message-counters rmail-show-message rmail-current-message n] 3 "\ Show following message whether deleted or not. With prefix arg N, moves forward N messages, or backward if N is negative." "p"]) (defalias 'rmail-previous-message #[(n) " [!" [rmail-next-message n] 2 "\ Show previous message whether deleted or not. With prefix arg N, moves backward N messages, or forward if N is negative." "p"]) (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 "\ 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." "p"]) (defalias 'rmail-previous-undeleted-message #[(n) " [!" [rmail-next-undeleted-message n] 2 "\ Show previous non-deleted message. With prefix argument N, moves backward N non-deleted messages, or forward if N is negative." "p"]) (defalias 'rmail-first-message #[nil " !" [rmail-maybe-set-message-counters rmail-show-message 1] 2 "\ Show first message in file." nil]) (defalias 'rmail-last-message #[nil " \n!" [rmail-maybe-set-message-counters rmail-show-message rmail-total-messages] 2 "\ Show last message in file." nil]) (byte-code "\"\"" [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] 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]] 3) (defalias 'rmail-message-regexp-p #[(msg regexp) " !bd\"`)\f#)" [rmail-msgbeg msg search-forward "*** EOOH ***" end re-search-forward regexp t] 4 "\ Return t, if for message number MSG, regexp REGEXP matches in the header."]) (defalias 'rmail-search-backward #[(regexp &optional n) " \n[\"" [rmail-search regexp n] 3 "\ Show message containing next match for REGEXP. Prefix argument gives repeat count; negative argument means search backwards (through earlier messages). Interactively, empty argument means use same regexp used last time." (byte-code " !YĂP \n$\nR! Ś7 \n@\n@!\n !+D" [prefix-numeric-value current-prefix-arg 0 reversep "Reverse " "" "Rmail search (regexp): " prompt nil regexp rmail-search-last-regexp "(default " ") " read-string error "No previous Rmail search string"] 5)]) (byte-code "!‡" [boundp rmail-search-last-regexp nil] 2) (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 "\ Show message containing next match for REGEXP. Prefix argument gives repeat count; negative argument means search backwards (through earlier messages). Interactively, empty argument means use same regexp used last time." (byte-code " !WĂP \n$\nR! Ś7 \n@\n@!\n !+D" [prefix-numeric-value current-prefix-arg 0 reversep "Reverse " "" "Rmail search (regexp): " prompt nil regexp rmail-search-last-regexp "(default " ") " read-string error "No previous Rmail search string"] 5)]) (defalias 'rmail-search-backwards #[(regexp &optional n) " \n[\"" [rmail-search regexp n -1] 3 "\ 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." (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)]) (byte-code "\"\"\"" [defalias rmail-first-unseen-message #[nil " ~ #\f W#\f\"\f\fT\n) *" [rmail-maybe-set-message-counters 1 nil found current rmail-total-messages rmail-message-labels-p ", ?\\(unseen\\),"] 3] rmail-message-deleted-p #[(n) " HU" [rmail-deleted-vector n 68] 2] rmail-set-message-deleted-p #[(n state) " \n\n I" [rmail-deleted-vector n state 68 32] 3]] 3) (defalias 'rmail-delete-message #[nil "\"" [rmail-set-attribute "deleted" t] 3 "\ Delete this message and stay on it." nil]) (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 "\ Back up to deleted message, select it, and undelete it." nil]) (defalias 'rmail-delete-forward #[(&optional backward) "\"  q\f!) ʂ!! )" [rmail-set-attribute "deleted" t rmail-current-message del-msg rmail-summary-exists rmail-summary-buffer rmail-summary-mark-deleted rmail-next-undeleted-message backward -1 1 rmail-maybe-display-summary] 3 "\ 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." "P"]) (defalias 'rmail-delete-backward #[nil "!" [rmail-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]) (defalias 'rmail-only-expunge #[nil "!\n=\f dZ eZ V- !-ʂ0`eZ\f HBю~eb ĉ   XHUH!TH!|HĉVSTHBUSHBTUy\"yHB \" 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 new-summary new-message-number total number counter 68 marker-position 20 "Expunging deleted messages...%d" apply vector make-string 32 vconcat] 10 "\ Actually erase all deleted messages in the file." nil]) (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 "\ Erase deleted messages from Rmail file and summary buffer." nil]) (defalias (quote 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]) (defalias 'rmail-mail #[nil "p&" [rmail-start-mail nil] 7 "\ Send mail in another window. While composing the message, use \\[mail-yank-original] to yank the original message into it." nil]) (defalias 'rmail-continue #[nil "!" [rmail-start-mail t] 2 "\ Continue composing outgoing message previously being composed." nil]) (defalias 'rmail-reply #[(just-sender) "~\n!bygU9y`\n!#`}D`!y`}\"! \\#\\gw r\"w# \"! \"! \"Ⴍ# \"!* ;(!P \"( P! \f\n#? Q!!.?.)pp\nEC&." [nil resent-reply-to message-id to date subject cc reply-to from rmail-msgbeg rmail-current-message 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" string-match "\\`" regexp-quote rmail-reply-prefix rmail-start-mail mail-strip-quoted-names rmail-make-in-reply-to-field rmail-dont-reply-to ", " cc-list (lambda (buf msgnum) (save-excursion (set-buffer buf) (rmail-set-attribute "answered" t msgnum)))] 11 "\ 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 (quote 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]) (defalias 'rmail-forward #[(resend) "!p!!\"!P#)!+R @!@҂Aԉ ԉpEC&ieb!Q!y!)*" [resend call-interactively rmail-resend "[" mail-fetch-field "From" ">From" from mail-strip-quoted-names ": " "" "Subject" "]" subject forward-buffer rmail-mail-new-frame one-window-p t mail rmail-start-mail nil #[(buf msgnum) "q\f#)" [buf rmail-set-attribute "forwarded" t msgnum] 4] rmail-current-message search-forward-regexp "^" regexp-quote mail-header-separator "$" 1 insert-buffer] 11 "\ Forward the current message to another user. With prefix argument, \"resend\" the message instead of forwarding it; see the documentation of `rmail-resend'." "P"]) (defalias 'rmail-resend #[(address &optional from comment mail-alias-file) "!!  !p \n \f͎\fq !eb##X`y!OyC`|)2eb ڱ ڱ`w ڱ!;!!#ڱ`\"*'!'GU`)'clc`)b`)Wcy*+, +/#," [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 " expand-mail-aliases sequencep comment 0 after "Resent-Comment: " mail-aliases send-mail-function rmail-set-attribute "resent" rmail-current-message] 5 "\ 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." "sResend to: "]) (defvar mail-unsent-separator (concat "^ *---+ +Unsent message follows +---+ *$\\|" "^ *---+ +Returned message +---+ *$\\|" "^ *---+ +Original message +---+ *$\\|" "^ *--+ +begin message +--+ *$\\|" "^ *---+ +Original message follows +---+ *$\\|" "^|? *---+ +Message text follows: +---+ *|?$") "\ A regexp that matches the separator before the text of a failed message.") (defalias 'rmail-retry-failure #[nil "!‰ \n\f#$!)dw!;!w`d}eb!e`}!!!!db~`{+ \fp&db ceb." [require mail-utils nil orig-message cc irp2 subj to rmail-beginning-of-message t case-fold-search re-search-forward mail-unsent-separator error "Cannot parse this as a failure message" old-end "\n" looking-at "^--" search-forward "\n\n" mail-fetch-field "To" "Subject" "In-reply-to" "Cc" rmail-retry-setup-hook mail-setup-hook mail-signature rmail-start-mail] 7 "\ 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." nil]) (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 "\ Bury current Rmail buffer and its summary buffer." nil]) (defalias 'rmail-summary-exists #[nil " ! " [rmail-summary-buffer buffer-name] 2 "\ 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-displayed #[nil "!" [rmail-summary-buffer get-buffer-window] 2 "\ t iff in RMAIL buffer and an associated summary buffer is displayed."]) (defvar rmail-redisplay-summary nil "\ *Non-nil means Rmail should show the summary when it changes. This has an effect only if a summary buffer exists.") (defvar rmail-summary-window-size nil "\ *Non-nil means specify the height for an Rmail summary window.") (defalias (quote 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]) (autoload (quote set-rmail-inbox-list) "rmailmsc" "\ 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." t) (autoload (quote rmail-add-label) "rmailkwd" "\ Add LABEL to labels associated with current RMAIL message. Completion is performed over known labels when reading." t) (autoload (quote rmail-kill-label) "rmailkwd" "\ Remove LABEL from labels associated with current RMAIL message. Completion is performed over known labels when reading." t) (autoload (quote rmail-next-labeled-message) "rmailkwd" "\ Show next message with LABEL. Defaults to last label used. With prefix argument N moves forward N messages with this label." t) (autoload (quote rmail-previous-labeled-message) "rmailkwd" "\ Show previous message with LABEL. Defaults to last label used. With prefix argument N moves backward N messages with this label." t) (autoload (quote rmail-read-label) "rmailkwd" "\ PROMPT and read with completion an Rmail message label." t) (autoload (quote rmail-edit-current-message) "rmailedit" "\ Edit the contents of the current message" t) (autoload (quote rmail-sort-by-date) "rmailsort" "\ Sort messages of current Rmail file by date. If prefix argument REVERSE is non-nil, sort them in reverse order." t) (autoload (quote rmail-sort-by-subject) "rmailsort" "\ Sort messages of current Rmail file by subject. If prefix argument REVERSE is non-nil, sort them in reverse order." t) (autoload (quote rmail-sort-by-author) "rmailsort" "\ Sort messages of current Rmail file by author. If prefix argument REVERSE is non-nil, sort them in reverse order." t) (autoload (quote rmail-sort-by-recipient) "rmailsort" "\ Sort messages of current Rmail file by recipient. If prefix argument REVERSE is non-nil, sort them in reverse order." t) (autoload (quote rmail-sort-by-correspondent) "rmailsort" "\ Sort messages of current Rmail file by other correspondent. If prefix argument REVERSE is non-nil, sort them in reverse order." t) (autoload (quote rmail-sort-by-lines) "rmailsort" "\ Sort messages of current Rmail file by number of lines. If prefix argument REVERSE is non-nil, sort them in reverse order." t) (autoload (quote rmail-sort-by-keywords) "rmailsort" "\ 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." t) (autoload (quote rmail-summary) "rmailsum" "\ Display a summary of all messages, one line per message." t) (autoload (quote rmail-summary-by-labels) "rmailsum" "\ Display a summary of all messages with one or more LABELS. LABELS should be a string containing the desired labels, separated by commas." t) (autoload (quote rmail-summary-by-recipients) "rmailsum" "\ 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." t) (autoload (quote rmail-summary-by-regexp) "rmailsum" "\ 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." t) (autoload (quote rmail-summary-by-topic) "rmailsum" "\ 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." t) (autoload (quote rmail-output-to-rmail-file) "rmailout" "\ 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." t) (autoload (quote rmail-output) "rmailout" "\ Append this message to Unix mail file named FILE-NAME." t) (autoload (quote rmail-output-menu) "rmailout" "\ Output current message to another Rmail file, chosen with a menu." t) (autoload (quote undigestify-rmail-message) "undigest" "\ Break up a digest message into its constituent messages. Leaves original message, deleted, before the undigestified messages." t) (provide (quote rmail))