;ELC ;;; compiled by jwz@thalidomide on Fri Feb 18 14:42:26 1994 ;;; from file /th/jwz/emacs19/lisp/rmail/rmail.el ;;; emacs version 19.10 Lucid (beta4). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 "This file was compiled for Emacs 19.")) (byte-code "!!!\"!!\"" [require mail-utils fboundp user-original-login-name user-real-login-name defalias buffer-disable-undo buffer-flush-undo] 3) (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-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 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, is a filter function for new headers in RMAIL. Called with region narrowed to unformatted header.") (defvar rmail-reply-prefix "Re: " "\ String to prepend to Subject line when replying to a message.") (byte-code "!!!!!!!! !\n! ! ! !!!!R)M" [boundp rmail-mode-map nil rmail-inbox-list rmail-keywords rmail-current-message rmail-total-messages rmail-message-vector rmail-deleted-vector rmail-summary-buffer rmail-summary-vector rmail-last-label rmail-last-multi-labels rmail-last-file rmail-last-regexp rmail-last-rmail-file expand-file-name "~/XMAIL" 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]*\\)?" "\n" rmail-select-summary (macro . #[(&rest body) " \"EDE \"EFE" [progn if (rmail-summary-displayed) let ((window (selected-window))) save-excursion unwind-protect append (progn (pop-to-buffer rmail-summary-buffer)) body (select-window window) (set-buffer rmail-summary-buffer) (progn) (rmail-maybe-display-summary)] 10])] 14) (fset 'rmail #[(&optional file-name-arg) "\n\"! ! !\n\n!  !\n!) != \n!)=! V= db  !+" [string-match "Lucid" emacs-version require rmail-lucid rmail-last-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] 4 "\ 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 filename as argument; then performs rmail editing on that file, but does not copy any new mail into the file." (byte-code "É$C" [current-prefix-arg read-file-name "Run rmail on RMAIL file: " nil t] 5)]) (byte-code "MM }  ! # # # # # # # # # # # # # # # # # # # # # # # # # # # # # @A# BC# DE# FG# HI# J# KL# MN# OP# QR# ST# UV# WX# YZ# [\\# ]^# _`# ab# cd#efgh#" [rmail-convert-file #[nil "~eb!!c)ed  db!u!)!eb#`d} !))" [nil convert looking-at "BABYL OPTIONS:" "Version: 5\n" buffer-read-only "BABYL OPTIONS:\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:\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 "" " " "" 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 " " rmail-sort-by-lines put rmail-mode mode-class special] 4) (fset '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 "MMMMM" [rmail-mode-2 #[nil " !" [kill-all-local-variables rmail-mode-1 rmail-variables run-hooks rmail-mode-hook] 2] rmail-mode-1 #[nil "!!AB\n !!" [rmail-mode major-mode "RMAIL" mode-name t buffer-read-only 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! !!!! !!!! PD!ˉ " [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 version-control never file-precious-flag t rmail-message-vector rmail-last-file 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 "~/mbox" getenv "MAIL" rmail-spool-directory user-original-login-name rmail-keywords] 5] rmail-revert #[(arg noconfirm) " \" 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]] 2) (fset 'rmail-expunge-and-save #[nil " " [rmail-expunge save-buffer] 1 "\ Expunge and save RMAIL file." nil]) (fset 'rmail-quit #[nil " !p ! !)" [rmail-expunge-and-save rmail-summary-exists bury-buffer rmail-summary-buffer obuf switch-to-buffer other-buffer] 2 "\ Quit out of RMAIL." nil]) (fset 'rmail-input #[(filename) " !" [rmail filename] 2 "\ Run Rmail on file FILENAME." "FRun rmail on RMAIL file: "]) (fset 'rmail-get-new-mail #[(&optional file-name) "p! !p! ~=Ɏ`   dbx`d|``}C\"\" eb )!~!`d}eTb  ۏ A s*Ub! !$! +$q ) U骁#!,,\",ʉO,ʕOP,!." [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 search-backward "\n" rmail-count-new-messages 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-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." (byte-code "!C" [current-prefix-arg read-file-name "Get new mail from file: "] 2)]) (byte-code "MMMMM" [rmail-insert-inbox-text #[(files renamep) ".@!!P !  !\" !\n !P!!\" ! \" ! ! !8U ! !8U \"  ! !\n ݏߏ ᎊ!  !'\" & ! qed$dbx`d|eb!eڕ|!ed{P!!+ !2db !A@2dbhU2!c B)!A -" [nil popmail movemail delete-files tofile file files 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-original-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 nil))) (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 "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 "ebm4!#e`|j e`|a!# T`w`)|`d}=!)!`#!) `S}eb#!s*`d}T !#`c #`)u#``{!*)Y\\b+ #bdbT `}eb#!s*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 " " " \n" mmdf-delim1 replace-match " \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 read size "^[]?\\(" rmail-unix-mail-delimiter "\\|" "^BABYL OPTIONS:\\|" " \n[01],\\)" 1 31 delete-char error "Cannot convert to babyl format"] 9] rmail-nuke-pinhead-header #[nil "`` }b#b#`b)P# ѪӔӕUԪՔՕUՔՕ{Q ѪQ\"." [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 !yv)!`y`|`#`){ձ` Z})eb  *" [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 "#e`}eb#)y`!u`|b*" [search-forward "\n\n" nil t buffer-read-only case-fold-search re-search-forward rmail-ignored-headers 0 "\n[^ ]" -1] 4]] 2) (fset 'rmail-toggle-header #[nil " \n!d}ebygU!cy\n!yv)cu!y`#`|)eb!`d}ed\")" [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] 4 "\ Show original message header if pruned header currently shown, or vice versa." nil]) (byte-code "MMMMM" [rmail-display-labels #[nil " Ǝ~!by!``} eb#!tmqcl)db#`eTVe\\`{d`ZV `\\dS{Q* \" ۉO ەOQk \" ۉO ەOQk +" ["" 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) " VɎ~!\\bQ`#????=`ȕS|yuϱ)՘\"*+" [point-max-marker point-min-marker nil buffer-read-only omin omax msgnum rmail-current-message 0 ((byte-code " }‰ ‰ U ‡" [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 `#*" [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]] 2) (fset 'rmail-widen-to-current-msgbeg #[(function) "deZ !d}eb +" [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 "MMMMM" [rmail-forget-messages #[nil "\n!\nG W Hlj Tn+)" [((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 \\ A\" @I P \"\"eb \"," [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!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" 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 ) T ͦUN \"F" [search-backward "\n \n" stop t 1 point-marker messages-head ", deleted," 2 68 32 deleted-head total-messages 20 0 message "Counting messages...%d"] 4]] 2) (fset 'rmail-beginning-of-message #[nil " !" [rmail-show-message rmail-current-message] 2 "\ Show current message starting from the beginning." nil]) (fset 'rmail-show-message #[(&optional n) " ~ UedS}ebÉX V  !! bygU \"\" #` }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 run-hooks rmail-show-message-hook rmail-summary-exists curr-msg 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"]) (fset '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"]) (fset '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"]) (fset 'rmail-next-undeleted-message #[(n) "  V\nW\nT\n!m\n Sf W\nV\nS\n!n\n Tg U !ʪ W! V!*" [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"]) (fset '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"]) (fset 'rmail-first-message #[nil " !" [rmail-maybe-set-message-counters rmail-show-message 1] 2 "\ Show first message in file." nil]) (fset '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 "MM" [rmail-what-message #[nil "` ¥ ZV !Y   Z¥\\a !Y ," [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]] 2) (fset 'rmail-message-regexp-p #[(msg regexp) " !bd\"`) #)" [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."]) (byte-code "!‡" [boundp rmail-search-last-regexp nil] 2) (fset '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! Ś \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)]) (fset 'rmail-search #[(regexp &optional n) "WŪ# ed`W\n   ю~U?   V S !b !# `  W T !b !# a \\$." [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 !#` ! ˪ #b 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! Ś \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)]) (fset '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! Ś \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 "MMM" [rmail-first-unseen-message #[nil " ~ W \"  Tk) *" [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êI" [rmail-deleted-vector n state 68 32] 3]] 2) (fset 'rmail-delete-message #[nil "\"" [rmail-set-attribute "deleted" t] 3 "\ Delete this message and stay on it." nil]) (fset 'rmail-undelete-previous-message #[nil "V ! Sq U! 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]) (fset 'rmail-delete-forward #[(&optional backward) "\"  q !) ʪ! )" [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"]) (fset '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]) (fset 'rmail-only-expunge #[nil "!\n= dZ eZ V  HUʪ`eZ HBҎ~eb ĉ   XHUH!TH!|HĉVSTHBUSHBTU\"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-deleted-vector 68 opoint rmail-message-vector messages-head messages-tail win ((byte-code "!\n Z 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-summary-vector summary deleted messages buffer-read-only new-summary new-message-number total number counter marker-position 20 "Expunging deleted messages...%d" apply vector make-string 32 vconcat] 10 "\ Actually erase all deleted messages in the file." nil]) (fset 'rmail-expunge #[nil " Ŏ! +q ) " [rmail-only-expunge rmail-summary-exists 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]) (fset 'rmail-start-mail #[(&rest args) " \" \" \"" [window-system rmail-mail-new-frame apply mail-other-frame args modify-frame-parameters selected-frame ((dedicated . t)) mail-other-window] 4]) (fset '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]) (fset 'rmail-continue #[nil "!" [rmail-start-mail t] 2 "\ Continue composing outgoing message previously being composed." nil]) (fset 'rmail-reply #[(just-sender) "~\n!bygUy`\n!#`}`!y`}\"! # \"# \"! \"! \"# \"!* ;(!P \"( P!  \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"]) (fset 'rmail-make-in-reply-to-field #[(from date message-id) " \n!!@ \"ʉO! \" R!Q))ذ\"۰\"*ܔܕWH>TkWSH>SiOR R+ #)" [from message-id mail-use-rfc822 require rfc822 rfc822-addresses tem string-match regexp-quote "@[^@]*\\'" 0 " (" ")" 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]) (fset 'rmail-forward #[(resend) "!p!!!P)!R !Ҫԉ ԉpEC&eb!P!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 #)" [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"]) (fset 'rmail-resend #[(address &optional from comment mail-alias-file) "!\n !p \n ̎ q!eb#y`y!yv`|)\nױ ױ ױ;#ױ\"!\"GU`#$\"clc`#$b`#Wcyr*& +*#," [require sendmail 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 "^Sender:" t beg 0 1 looking-at "[ ]" "Resent-From: " "\n" "Resent-Date: " mail-rfc822-date mail-self-blind "Resent-Bcc: " "Resent-To: " address mapconcat identity ",\n " sequencep comment after before "Resent-Comment: " mail-aliases sendmail-send-it rmail-set-attribute "resent" rmail-current-message] 5 "\ Resend current message to ADDRESSES. ADDRESSES should be a single address, a 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: "]) (byte-code "!ǰ" [boundp mail-unsent-separator "^ *---+ +Unsent message follows +---+ *$\\|" "^ *---+ +Returned message +---+ *$\\|" "^ *---+ +Original message +---+ *$\\|" "^ *--+ +begin message +--+ *$\\|" "^ *---+ +Original message follows +---+ *$\\|" "^|? *---+ +Message text follows: +---+ *|?$"] 6) (fset 'rmail-retry-failure #[nil "!‰ \n #!)`d}!!!!!`d{* p&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" mail-fetch-field "To" "Subject" "In-reply-to" "Cc" search-forward "\n\n" 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; otherwise copy the current message." nil]) (fset 'rmail-bury #[nil "p  ! !\"p !)p!!!)" [rmail-buffer 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]) (fset 'rmail-summary-exists #[nil "!" [rmail-summary-buffer buffer-name] 2 "\ Non-nil iff in an RMAIL buffer and an associated summary buffer exists. Non-nil value returned is the summary buffer."]) (fset 'rmail-summary-displayed #[nil " \n!" [rmail-summary-exists get-buffer-window rmail-summary-buffer] 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.") (fset 'rmail-maybe-display-summary #[nil " !" [rmail-summary-exists rmail-redisplay-summary display-buffer rmail-summary-buffer] 2]) (autoload '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 'rmail-add-label "rmailkwd" "\ Add LABEL to labels associated with current RMAIL message. Completion is performed over known labels when reading." t) (autoload 'rmail-kill-label "rmailkwd" "\ Remove LABEL from labels associated with current RMAIL message. Completion is performed over known labels when reading." t) (autoload '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 '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 'rmail-read-label "rmailkwd" "\ PROMPT and read with completion an Rmail message label." t) (autoload 'rmail-edit-current-message "rmailedit" "\ Edit the contents of the current message" t) (autoload '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 '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 '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 '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 '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 '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 'rmail-summary "rmailsum" "\ Display a summary of all messages, one line per message." t) (autoload '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 '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 '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 '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 '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 'rmail-output "rmailout" "\ Append this message to Unix mail file named FILE-NAME." t) (autoload 'undigestify-rmail-message "undigest" "\ Break up a digest message into its constituent messages. Leaves original message, deleted, before the undigestified messages." t) (provide 'rmail)