(require (quote mail-utils)) (provide (quote rmail)) (defvar mmdf-delim1 "^ " "Regexp marking the start of an mmdf message") (defvar mmdf-delim2 "^ " "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-mode-map nil) (defvar rmail-current-message nil) (defvar rmail-total-messages nil) (defvar rmail-message-vector nil) (defvar rmail-deleted-vector nil) (defvar rmail-summary-buffer nil) (defvar rmail-summary-vector nil) (defvar rmail-last-label nil) (defvar rmail-last-multi-labels nil) (defvar rmail-last-file nil) (defvar rmail-last-rmail-file nil) (defun rmail (&optional file-name-arg) "\ 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." (interactive (byte-code " $C" [current-prefix-arg nil t read-file-name "Run rmail on RMAIL file: "] 5)) (byte-code " ! ! ! ! 2 !?O !!D =L R ! =] !g =n ? ? ! ! PD db? +" [current-prefix-arg nil t rmail-last-file rmail-last-rmail-file file-name file-name-arg rmail-file-name existed inhibit-local-variables major-mode rmail-inbox-list rmail-primary-inbox-list rmail-spool-directory expand-file-name "~/xmail" "~/XMAIL" get-file-buffer verify-visited-file-modtime find-file rmail-mode rmail-forget-messages rmail-set-message-counters rmail-edit-mode error "exit rmail-edit-mode before getting new mail" "~/mbox" getenv "LOGNAME" "USER" user-login-name rmail-convert-file rmail-show-message rmail-get-new-mail] 20)) (defun rmail-convert-file nil (byte-code " eb!\"