(provide (quote sendmail)) (defvar mail-aliases t "\ Alias of mail address aliases, or t meaning should be initialized from .mailrc.") (defvar mail-default-reply-to nil "\ *Address to insert as default Reply-to field of outgoing messages.") (defvar mail-abbrevs-loaded nil) (defvar mail-mode-map nil) (autoload (quote build-mail-aliases) "mailalias" "\ Read mail aliases from ~/.mailrc and set mail-aliases." nil) (autoload (quote expand-mail-aliases) "mailalias" "\ Expand all mail aliases in suitable header fields found between BEG and END. Suitable header fields are To, CC and BCC." nil) (defun mail-setup (to subject in-reply-to cc replybuffer) (byte-code "Á=… ‰ˆÏÐ!… Ñ ˆ‰ˆebˆÒcˆŠ ƒ2 Ó Ô\"ˆÕÖed\")‚4 × ˆ…M `ÕÓØÔ#ˆÙd\"*ˆ …Y ÓÚ Ô#ˆÓÛ †b ÜÔ#ˆ…p ÓÝÔ#ˆ…| ÓÞß Ô#ˆ …ˆ Óà Ô#ˆÓÔ\")ˆ …– dbˆ †¨ †¨ †¨ áÂ!ˆâã!‡" [mail-aliases t nil mail-reply-buffer replybuffer to fill-prefix cc opos in-reply-to subject mail-default-reply-to mail-self-blind mail-archive-file-name mail-header-separator file-exists-p "~/.mailrc" build-mail-aliases "To: " insert " " " " fill-region newline "CC: " fill-region-as-paragraph "In-reply-to: " "Subject: " "" "Reply-to: " "BCC: " user-login-name "FCC: " set-buffer-modified-p run-hooks mail-setup-hook] 17)) (defun mail-mode nil "\ Major mode for editing mail to be sent. Separate names of recipients (in To: and Cc: fields) with commas. Like Text Mode but with these additional commands: C-c C-s mail-send (send the message) C-c C-c mail-send-and-exit C-c C-f move to a header field (and create it if there isn't): C-c C-f C-t move to To: C-c C-f C-s move to Subj: C-c C-f C-b move to BCC: C-c C-f C-c move to CC: C-c C-w mail-signature (insert ~/.signature at end). C-c C-y mail-yank-original (insert current message, in Rmail). C-c C-q mail-fill-yanked-message (fill what was yanked)." (interactive) (byte-code "ÁˆÍ ˆÎÀ!ˆÁ‰ˆÏ !ˆÐ!ˆ ‰ˆÑ‰ˆÒ‰ˆÉ‰ˆÎÌ!ˆÎÊ!ˆÓÔ R‰ ˆÓÔR‰ˆÕÖ×\"‡" [mail-reply-buffer nil text-mode-syntax-table mail-mode-map local-abbrev-table text-mode-abbrev-table major-mode mode-name buffer-offer-save t paragraph-start mail-header-separator paragraph-separate kill-all-local-variables make-local-variable set-syntax-table use-local-map mail-mode "Mail" "^" "$\\|^[ ]*[-_][-_][-_]+$\\|" run-hooks text-mode-hook mail-mode-hook] 10)) (if mail-mode-map nil (setq mail-mode-map (make-sparse-keymap)) (define-key mail-mode-map "?" (quote describe-mode)) (define-key mail-mode-map "" (quote mail-to)) (define-key mail-mode-map "" (quote mail-bcc)) (define-key mail-mode-map "" (quote mail-cc)) (define-key mail-mode-map "" (quote mail-subject)) (define-key mail-mode-map "" (quote mail-signature)) (define-key mail-mode-map "" (quote mail-yank-original)) (define-key mail-mode-map "" (quote mail-fill-yanked-message)) (define-key mail-mode-map "" (quote mail-send-and-exit)) (define-key mail-mode-map "" (quote mail-send))) (defun mail-send-and-exit (arg) "\ Send message like mail-send, then, if no errors, exit from mail buffer. Prefix arg means don't delete this window." (interactive "P") (byte-code "ˆà ˆÄp!ˆ?…\"