Lines Matching +defs:mail +defs:signature +defs:file
1 ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*-
7 ;; Keywords: mail
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
28 ;; This mode provides mail-sending facilities from within Emacs. It is
42 :prefix "mail-"
43 :group 'mail)
45 (defcustom mail-setup-with-from t
53 ((file-exists-p "/usr/sbin/sendmail") "/usr/sbin/sendmail")
54 ((file-exists-p "/usr/lib/sendmail") "/usr/lib/sendmail")
55 ((file-exists-p "/usr/ucblib/sendmail") "/usr/ucblib/sendmail")
56 (t "fakemail")) ;In ../etc, to interface to /bin/mail.
58 :group 'mail
59 :type 'file)
62 (defcustom mail-from-style 'angles
75 Emacs to pass the proper email address from `user-mail-address'
77 controlled by a separate variable, `mail-specify-envelope-from'."
84 (defcustom mail-specify-envelope-from nil
85 "If non-nil, specify the envelope-from address when sending mail.
87 the variable `mail-envelope-from', with `user-mail-address' as fallback.
91 smtpmail -- if you use feedmail to send mail, see instead the
97 (defcustom mail-envelope-from nil
98 "If non-nil, designate the envelope-from address when sending mail.
99 This only has an effect if `mail-specify-envelope-from' is non-nil.
103 `user-mail-address' is used)."
107 (const :tag "Use `user-mail-address'" nil))
111 (defcustom mail-self-blind nil
119 (defcustom mail-interactive nil
121 nil means let mailer mail back a message to report errors."
125 (defcustom mail-yank-ignored-headers
127 (regexp-opt '("via" "mail-from" "origin" "status" "remailed"
129 "in-reply-to" "return-path" "mail-reply-to"
130 "mail-followup-to") "\\(?:")
140 (put 'send-mail-function 'standard-value
147 (defcustom send-mail-function
151 "Function to call to send the current buffer as mail.
154 that matches the variable `mail-header-separator'.
155 This is used by the default mail-sending commands. See also
156 `message-send-mail-function' for use with the Message package."
165 (defcustom mail-header-separator "--text follows this line--"
170 ;; Set up mail-header-separator for use as a category text property.
171 (put 'mail-header-separator 'rear-nonsticky '(category))
177 ;;(put 'mail-header-separator 'read-only t)
180 (defcustom mail-archive-file-name nil
181 "Name of file to write all outgoing messages in, or nil for none.
182 This can be an inbox file or an Rmail file."
183 :type '(choice file (const nil))
187 (defcustom mail-default-reply-to nil
190 when you first send mail."
195 (defcustom mail-alias-file nil
196 "If non-nil, the name of a file to use instead of `/usr/lib/aliases'.
197 This file defines aliases to be expanded by the mailer; this is a different
200 :type '(choice (const nil) file)
204 (defcustom mail-personal-alias-file "~/.mailrc"
205 "If non-nil, the name of the user's personal mail alias file.
206 This file typically should be in same format as the `.mailrc' file used by
208 This file need not actually exist."
209 :type '(choice (const nil) file)
213 (defcustom mail-setup-hook nil
214 "Normal hook, run each time a new outgoing mail message is initialized.
215 The function `mail-setup' runs this hook."
217 :options '(fortune-to-signature spook mail-abbrevs-setup)
221 (defvar mail-aliases t
222 "Alist of mail address aliases,
223 or t meaning should be initialized from your mail aliases file.
224 \(The file's name is normally `~/.mailrc', but `mail-personal-alias-file'
225 can specify a different file name.)
226 The alias definitions in the file have this form:
229 (defvar mail-alias-modtime nil
230 "The modification time of your mail alias file when it was last examined.")
233 (defcustom mail-yank-prefix nil
240 (defcustom mail-indentation-spaces 3
242 Used by `mail-yank-original' via `mail-indent-citation'."
246 (defvar mail-yank-hooks nil
247 "Obsolete hook for modifying a citation just inserted in the mail buffer.
253 It is semi-obsolete and mail agents should no longer use it.")
256 (defcustom mail-citation-hook nil
257 "Hook for modifying a citation just inserted in the mail buffer.
261 in the variable `mail-citation-header', whether or not this is included
269 (defvar mail-citation-header nil
270 "While running `mail-citation-hook', this variable holds the message header.
275 (defcustom mail-citation-prefix-regexp "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|[ \t]*"
284 (defvar mail-abbrevs-loaded nil)
285 (defvar mail-mode-map
287 (define-key map "\M-\t" 'mail-complete)
289 (define-key map "\C-c\C-f\C-t" 'mail-to)
290 (define-key map "\C-c\C-f\C-b" 'mail-bcc)
291 (define-key map "\C-c\C-f\C-f" 'mail-fcc)
292 (define-key map "\C-c\C-f\C-c" 'mail-cc)
293 (define-key map "\C-c\C-f\C-s" 'mail-subject)
294 (define-key map "\C-c\C-f\C-r" 'mail-reply-to)
295 (define-key map "\C-c\C-f\C-a" 'mail-mail-reply-to) ; author
296 (define-key map "\C-c\C-f\C-l" 'mail-mail-followup-to) ; list
297 (define-key map "\C-c\C-t" 'mail-text)
298 (define-key map "\C-c\C-y" 'mail-yank-original)
299 (define-key map "\C-c\C-r" 'mail-yank-region)
300 (define-key map [remap split-line] 'mail-split-line)
301 (define-key map "\C-c\C-q" 'mail-fill-yanked-message)
302 (define-key map "\C-c\C-w" 'mail-signature)
303 (define-key map "\C-c\C-v" 'mail-sent-via)
304 (define-key map "\C-c\C-c" 'mail-send-and-exit)
305 (define-key map "\C-c\C-s" 'mail-send)
306 (define-key map "\C-c\C-i" 'mail-attach-file)
308 (define-key map [menu-bar mail]
311 (define-key map [menu-bar mail fill]
312 '("Fill Citation" . mail-fill-yanked-message))
314 (define-key map [menu-bar mail yank]
315 '("Cite Original" . mail-yank-original))
317 (define-key map [menu-bar mail signature]
318 '("Insert Signature" . mail-signature))
320 (define-key map [menu-bar mail mail-sep]
323 (define-key map [menu-bar mail cancel]
324 '("Cancel" . mail-dont-send))
326 (define-key map [menu-bar mail send-stay]
327 '("Send, Keep Editing" . mail-send))
329 (define-key map [menu-bar mail send]
330 '("Send Message" . mail-send-and-exit))
336 '("Text" . mail-text))
339 '("Expand Aliases" . expand-mail-aliases))
342 '("Sent Via" . mail-sent-via))
344 (define-key map [menu-bar headers mail-reply-to]
345 '("Mail Reply To" . mail-mail-reply-to))
347 (define-key map [menu-bar headers mail-followup-to]
348 '("Mail Followup To" . mail-mail-followup-to))
351 '("Reply-To" . mail-reply-to))
354 '("Bcc" . mail-bcc))
357 '("Fcc" . mail-fcc))
360 '("Cc" . mail-cc))
363 '("Subject" . mail-subject))
366 '("To" . mail-to))
370 (autoload 'build-mail-aliases "mailalias"
371 "Read mail aliases from user's personal aliases file and set `mail-aliases'."
374 (autoload 'expand-mail-aliases "mailalias"
375 "Expand all mail aliases in suitable header fields found between BEG and END.
382 (defcustom mail-signature nil
383 "Text inserted at end of mail buffer when a message is initialized.
384 If t, it means to insert the contents of the file `mail-signature-file'.
386 (To make a proper signature, the string should begin with \\n\\n-- \\n,
387 which is the standard way to delimit a signature in a message.)
391 (const :tag "Use `.signature' file" t)
395 (put 'mail-signature 'risky-local-variable t)
398 (defcustom mail-signature-file "~/.signature"
399 "File containing the text inserted at end of mail buffer."
400 :type 'file
404 (defcustom mail-default-directory "~/"
405 "Directory for mail buffers.
406 Value of `default-directory' for mail buffers.
407 This directory is used for auto-save files of mail buffers."
412 (defvar mail-reply-action nil)
413 (defvar mail-send-actions nil
415 (put 'mail-reply-action 'permanent-local t)
416 (put 'mail-send-actions 'permanent-local t)
419 (defcustom mail-default-headers nil
427 (defcustom mail-bury-selects-summary t
428 "If non-nil, try to show RMAIL summary buffer after returning from mail.
429 The functions \\[mail-send-on-exit] or \\[mail-dont-send] select
436 (defcustom mail-send-nonascii 'mime
437 "Specify whether to allow sending non-ASCII characters in mail.
442 Including non-ASCII characters in a mail message can be problematical
447 (defcustom mail-use-dsn nil
457 ;; Note: could use /usr/ucb/mail instead of sendmail;
459 (defvar mail-mailer-swallows-blank-line
461 (file-readable-p "/etc/sendmail.cf")
463 (insert-file-contents "/etc/sendmail.cf")
477 (defvar mail-mode-syntax-table
482 "Syntax table used while in `mail-mode'.")
484 (defvar mail-font-lock-keywords
495 ;; Use EVAL to delay in case `mail-header-separator' gets changed.
497 (let ((separator (if (zerop (length mail-header-separator))
499 (regexp-quote mail-header-separator))))
517 (when mail-personal-alias-file
518 (let ((modtime (nth 5 (file-attributes mail-personal-alias-file))))
519 (or (equal mail-alias-modtime modtime)
520 (setq mail-alias-modtime modtime
521 mail-aliases t)))))
523 (defun mail-setup (to subject in-reply-to cc replybuffer actions)
524 (or mail-default-reply-to
525 (setq mail-default-reply-to (getenv "REPLYTO")))
527 (if (eq mail-aliases t)
529 (setq mail-aliases nil)
530 (when mail-personal-alias-file
531 (if (file-exists-p mail-personal-alias-file)
532 (build-mail-aliases)))))
534 (kill-local-variable 'buffer-file-coding-system)
540 (setq mail-send-actions actions)
541 (setq mail-reply-action replybuffer)
543 (if mail-setup-with-from
544 (mail-insert-from-field))
549 ;; on the assumption that mail-strip-quoted-names
577 (if mail-default-headers
578 (insert mail-default-headers))
579 (if mail-default-reply-to
580 (insert "Reply-to: " mail-default-reply-to "\n"))
581 (if mail-self-blind
582 (insert "BCC: " user-mail-address "\n"))
583 (if mail-archive-file-name
584 (insert "FCC: " mail-archive-file-name "\n"))
587 (insert mail-header-separator "\n")
589 'category 'mail-header-separator)
590 ;; Insert the signature. But remember the beginning of the message.
592 (cond ((eq mail-signature t)
593 (if (file-exists-p mail-signature-file)
596 (insert-file-contents mail-signature-file))))
597 ((stringp mail-signature)
598 (insert mail-signature))
600 (eval mail-signature)))
606 (run-hooks 'mail-setup-hook))
609 (defcustom mail-mode-hook nil
615 (defvar mail-mode-abbrev-table text-mode-abbrev-table)
617 (define-derived-mode mail-mode text-mode "Mail"
618 "Major mode for editing mail to be sent.
621 \\[mail-send] mail-send (send the message)
622 \\[mail-send-and-exit] mail-send-and-exit (send the message and exit)
625 \\[mail-to] move to To: \\[mail-subject] move to Subj:
626 \\[mail-bcc] move to BCC: \\[mail-cc] move to CC:
627 \\[mail-fcc] move to FCC: \\[mail-reply-to] move to Reply-To:
628 \\[mail-mail-reply-to] move to Mail-Reply-To:
629 \\[mail-mail-followup-to] move to Mail-Followup-To:
630 \\[mail-text] move to message text.
631 \\[mail-signature] mail-signature (insert `mail-signature-file' file).
632 \\[mail-yank-original] mail-yank-original (insert current message, in Rmail).
633 \\[mail-fill-yanked-message] mail-fill-yanked-message (fill what was yanked).
634 \\[mail-sent-via] mail-sent-via (add a sent-via field for each To or CC).
636 `mail-mode-hook' (in that order)."
637 (make-local-variable 'mail-reply-action)
638 (make-local-variable 'mail-send-actions)
641 (setq font-lock-defaults '(mail-font-lock-keywords t t))
644 (setq normal-auto-fill-function 'mail-mode-auto-fill)
646 (setq fill-paragraph-function 'mail-mode-fill-paragraph)
648 ;; anything if mail-yank-prefix is set to a non-nil value).
649 (set (make-local-variable 'comment-start) mail-yank-prefix)
650 (if mail-yank-prefix
652 (concat "^" (regexp-quote mail-yank-prefix) "[ \t]*")))
661 ;; `-- ' precedes the signature. `-----' appears at the start of the
665 (setq paragraph-separate (concat (regexp-quote mail-header-separator)
672 (defun mail-header-end ()
680 (defun mail-text-start ()
689 (defun mail-sendmail-delimit-header ()
693 (insert mail-header-separator)
696 (defun mail-sendmail-undelimit-header ()
702 (defun mail-mode-auto-fill ()
705 (if (< (point) (mail-header-end))
718 (defun mail-mode-fill-paragraph (arg)
720 (if (< (point) (mail-header-end))
737 "mail-reply-to" "mail-followup-to"
756 (defun mail-send-and-exit (&optional arg)
757 "Send message like `mail-send', then, if no errors, exit from mail buffer.
760 (mail-send)
761 (mail-bury arg))
763 (defun mail-dont-send (&optional arg)
767 (mail-bury arg))
769 (defun mail-bury (&optional arg)
770 "Bury this mail buffer."
774 (cdr (assq 'mail-dedicated-frame (frame-parameters))))
789 (and mail-bury-selects-summary
801 (defcustom mail-send-hook nil
802 "Hook run just before sending mail with `mail-send'."
808 (defcustom mail-mailing-lists nil "\
817 (defun mail-send ()
819 If `mail-interactive' is non-nil, wait for success indication
824 (if (if buffer-file-name
825 (y-or-n-p "Send buffer contents as mail message? ")
830 (ml (when mail-mailing-lists
832 ;; `mail-strip-quoted-names' on addresses before matching
836 (regexp-opt mail-mailing-lists t)
841 (let* ((to (mail-fetch-field "to" nil t))
842 (cc (mail-fetch-field "cc" nil t))
844 (mail-strip-quoted-names
849 (unless (mail-fetch-field "mail-followup-to")
850 (goto-char (mail-header-end))
863 (unless (mail-fetch-field "mail-reply-to")
864 (goto-char (mail-header-end))
866 (or (mail-fetch-field "reply-to")
867 user-mail-address)
869 (unless (memq mail-send-nonascii '(t mime))
873 (if (eq mail-send-nonascii 'query)
879 (re-search-forward (regexp-quote mail-header-separator) (point-max) t)
888 (run-hooks 'mail-send-hook)
890 (funcall send-mail-function)
892 (while mail-send-actions
894 (apply (car (car mail-send-actions))
895 (cdr (car mail-send-actions)))
897 (setq mail-send-actions (cdr mail-send-actions)))
899 ;; If buffer has no file, mark it as unmodified and delete auto-save.
900 (if (not buffer-file-name)
903 (delete-auto-save-file-if-necessary t))))))
905 (defun mail-envelope-from ()
906 "Return the envelope mail address to use when sending mail.
907 This function uses `mail-envelope-from'."
908 (if (eq mail-envelope-from 'header)
909 (nth 1 (mail-extract-address-components
910 (mail-fetch-field "From")))
911 mail-envelope-from))
915 ;; It is called via the variable send-mail-function.
919 "*Coding system for encoding the outgoing mail.
920 This has higher priority than `default-buffer-file-coding-system'
922 but lower priority than the local value of `buffer-file-coding-system'.
927 "Default coding system for encoding the outgoing mail.
936 (defun mail-insert-from-field ()
937 (let* ((login user-mail-address)
943 (cond ((eq mail-from-style 'angles)
962 ((eq mail-from-style 'parens)
986 ((null mail-from-style)
988 ((eq mail-from-style 'system-default)
990 (t (error "Invalid value for `mail-from-style'")))))
993 "Send the current mail buffer using the Sendmail package.
994 This is a suitable value for `send-mail-function'. It sends using the
996 (require 'mail-utils)
997 (let ((errbuf (if mail-interactive
1012 ;; local binding in the mail buffer will take effect.
1014 (and mail-specify-envelope-from
1015 (or (mail-envelope-from) user-mail-address))))
1027 (goto-char (mail-header-end))
1031 (if mail-aliases
1032 (expand-mail-aliases (point-min) delimline))
1053 (append (mail-parse-comma-list)
1065 ;;; (require 'mail-utils)
1067 ;;; (mail-strip-quoted-names
1070 ;;; (mail-fetch-field "From")))
1087 (mail-insert-from-field))
1091 (and (eq mail-send-nonascii 'mime)
1106 (if (eval mail-mailer-swallows-blank-line)
1113 (mail-do-fcc delimline)))
1114 (if mail-interactive
1133 (and mail-alias-file
1134 (list (concat "-oA" mail-alias-file)))
1135 (if mail-interactive
1139 ;; These mean "report errors by mail"
1150 (if mail-use-dsn
1152 mail-use-dsn ",")))
1160 (if mail-interactive
1172 (defun mail-do-fcc (header-end)
1193 ;; This initial newline is written out if the fcc file already exists.
1199 (require 'mail-utils)
1200 (insert (mail-rfc822-time-zone time) " ")
1217 dont-write-the-file
1218 buffer-matches-file
1225 (setq buffer-matches-file
1227 (verify-visited-file-modtime buffer)))
1234 ;; function rmail-output-to-rmail-file:
1242 ;; Unix mail message.
1247 "Date: " (mail-rfc822-date) "\n")
1257 ;; Output file not in rmail mode
1262 (or buffer-matches-file
1264 (if (y-or-n-p (format "Save file %s? "
1267 (setq dont-write-the-file t))))
1269 ;; Append to the file directly,
1271 (unless dont-write-the-file
1272 (if (and (file-exists-p fcc)
1273 ;; Check that the file isn't empty. We don't
1275 ;; empty file.
1276 (not (zerop (nth 7 (file-attributes fcc))))
1277 (mail-file-babyl-p fcc))
1278 ;; If the file is a Babyl file,
1281 (or rmail-file-coding-system
1283 (with-current-buffer (get-buffer-create " mail-temp")
1287 (mail-rfc822-date) "\n")
1294 (and buffer (not dont-write-the-file)
1296 (set-visited-file-modtime))))))
1299 (defun mail-sent-via ()
1304 (let ((end (copy-marker (mail-header-end)))
1322 (defun mail-to ()
1326 (mail-position-on-field "To"))
1328 (defun mail-subject ()
1332 (mail-position-on-field "Subject"))
1334 (defun mail-cc ()
1338 (or (mail-position-on-field "cc" t)
1339 (progn (mail-position-on-field "to")
1342 (defun mail-bcc ()
1346 (or (mail-position-on-field "bcc" t)
1347 (progn (mail-position-on-field "to")
1350 (defun mail-fcc (folder)
1351 "Add a new FCC field, with file name completion."
1354 (or (mail-position-on-field "fcc" t) ;Put new field after exiting FCC.
1355 (mail-position-on-field "to"))
1358 (defun mail-reply-to ()
1362 (mail-position-on-field "Reply-To"))
1364 (defun mail-mail-reply-to ()
1369 (or (mail-position-on-field "mail-reply-to" t)
1370 (progn (mail-position-on-field "to")
1373 (defun mail-mail-followup-to ()
1378 (or (mail-position-on-field "mail-followup-to" t)
1379 (progn (mail-position-on-field "to")
1382 (defun mail-position-on-field (field &optional soft)
1385 (setq end (mail-header-end))
1399 (defun mail-text ()
1403 (goto-char (mail-text-start)))
1406 (defun mail-signature (&optional atpoint)
1407 "Sign letter with signature based on `mail-signature-file'.
1417 (if (stringp mail-signature)
1418 (insert mail-signature)
1420 (insert-file-contents (expand-file-name mail-signature-file)))))
1422 (defun mail-fill-yanked-message (&optional justifyp)
1427 (goto-char (mail-text-start))
1431 mail-citation-prefix-regexp)))
1433 (defun mail-indent-citation ()
1438 Normally, indent each nonblank line `mail-indentation-spaces' spaces.
1439 However, if `mail-yank-prefix' is non-nil, insert that prefix on each line."
1440 (mail-yank-clear-headers (region-beginning) (region-end))
1441 (if (null mail-yank-prefix)
1443 mail-indentation-spaces)
1448 (insert mail-yank-prefix)
1451 (defun mail-yank-original (arg)
1455 However, if `mail-yank-prefix' is non-nil, insert that prefix on each line.
1460 (if mail-reply-action
1462 (original mail-reply-action))
1478 (let ((mail-indentation-spaces (if arg (prefix-numeric-value arg)
1479 mail-indentation-spaces))
1483 (cond (mail-citation-hook
1484 ;; Bind mail-citation-header to the inserted
1486 (let ((mail-citation-header
1495 (run-hooks 'mail-citation-hook)))
1496 (mail-yank-hooks
1497 (run-hooks 'mail-yank-hooks))
1499 (mail-indent-citation)))))
1507 (defun mail-yank-clear-headers (start end)
1511 (if mail-yank-ignored-headers
1519 (re-search-forward mail-yank-ignored-headers nil t))
1526 (defun mail-yank-region (arg)
1530 However, if `mail-yank-prefix' is non-nil, insert that prefix on each line.
1535 (and (consp mail-reply-action)
1536 (eq (car mail-reply-action) 'insert-buffer)
1537 (with-current-buffer (nth 1 mail-reply-action)
1540 (let ((buffer (nth 1 mail-reply-action))
1552 (let ((mail-indentation-spaces (if arg (prefix-numeric-value arg)
1553 mail-indentation-spaces)))
1554 (if mail-citation-hook
1555 ;; Bind mail-citation-hook to the original message's header.
1556 (let ((mail-citation-header
1564 (run-hooks 'mail-citation-hook))
1565 (if mail-yank-hooks
1566 (run-hooks 'mail-yank-hooks)
1567 (mail-indent-citation))))))))
1569 (defun mail-split-line ()
1571 If the current line has `mail-yank-prefix', insert it on the new line."
1573 (split-line mail-yank-prefix))
1577 (defun mail-attach-file (&optional file)
1578 "Insert a file at the end of the buffer, with separator lines around it."
1579 (interactive "fAttach file: ")
1586 (insert (format "===File %s===" file))
1593 (insert-file-contents file)
1599 ;; in middle of loading the file.
1601 ;;;###autoload (add-hook 'same-window-buffer-names "*mail*")
1604 (defun mail (&optional noerase to subject in-reply-to cc replybuffer actions)
1606 When this function returns, the buffer `*mail*' is selected.
1609 Optionally, the signature file `mail-signature-file' can be inserted at the
1610 end; see the variable `mail-signature'.
1612 \\<mail-mode-map>
1613 While editing message, type \\[mail-send-and-exit] to send the message and exit.
1617 \\{mail-mode-map}
1619 If `mail-self-blind' is non-nil, a BCC to yourself is inserted
1622 If `mail-default-reply-to' is non-nil, it should be an address (a string);
1625 If `mail-archive-file-name' is non-nil, an FCC field with that file name
1628 The normal hook `mail-setup-hook' is run after the message is
1632 an existing modified `*mail*' buffer. If NOERASE is nil, the
1633 existing mail buffer is used, and the user is prompted whether to
1635 `new', a new mail buffer will be created instead of using the old
1653 ;;; It is easy enough to rename *mail* by hand with rename-buffer
1654 ;;; if you want to have multiple mail buffers.
1658 ;;; ;; If requested, look for a mail buffer that is modified and go to it.
1662 ;;; (get-buffer (if (= 1 index) "*mail*"
1663 ;;; (format "*mail*<%d>" index))))
1668 ;;; ;; This will never re-use an existing unmodified mail buffer
1674 ;;; ;; Look for existing unmodified mail buffer.
1676 ;;; (get-buffer (if (= 1 index) "*mail*"
1677 ;;; (format "*mail*<%d>" index))))
1682 ;;; (setq buffer (generate-new-buffer "*mail*")))
1686 ;;; (setq default-directory (expand-file-name "~/"))
1688 ;;; (mail-mode)
1689 ;;; (mail-setup to subject in-reply-to cc replybuffer actions)
1690 ;;; (if (and buffer-auto-save-file-name
1691 ;;; (file-exists-p buffer-auto-save-file-name))
1692 ;;; (message "Auto save file for draft message exists; consider M-x mail-recover"))
1696 (pop-to-buffer (generate-new-buffer "*mail*"))
1698 (not (get-buffer "*mail*"))
1700 (pop-to-buffer "*mail*"))
1702 ;; Avoid danger that the auto-save file can't be written.
1703 (let ((dir (expand-file-name
1704 (file-name-as-directory mail-default-directory))))
1705 (if (file-exists-p dir)
1707 ;; Only call auto-save-mode if necessary, to avoid changing auto-save file.
1708 (if (or (and auto-save-default (not buffer-auto-save-file-name))
1709 (and (not auto-save-default) buffer-auto-save-file-name))
1711 (mail-mode)
1712 ;; Disconnect the buffer from its visited file
1713 ;; (in case the user has actually visited a file *mail*).
1714 ;;; (set-visited-file-name nil)
1718 (if buffer-file-name
1721 (if (y-or-n-p "Disconnect buffer from visited file? ")
1722 (set-visited-file-name nil))
1724 (when (y-or-n-p "Reinitialize buffer, and disconnect it from the visited file? ")
1725 (set-visited-file-name nil)
1727 ;; A non-file-visiting buffer.
1733 (mail-setup to subject in-reply-to cc replybuffer actions)
1735 (if (and buffer-auto-save-file-name
1736 (file-exists-p buffer-auto-save-file-name))
1737 (message "Auto save file for draft message exists; consider M-x mail-recover"))
1740 (defun mail-recover-1 ()
1743 (let ((file-name (make-auto-save-file-name))
1746 ;; Remove the random part from the auto-save-file-name, and
1748 ;; Note: this knows that make-auto-save-file-name appends
1752 (- (length file-name) (length (make-temp-name "")) 1))
1753 (setq wildcard (concat (substring file-name 0 non-random-len) "*"))
1754 (if (null (file-expand-wildcards wildcard))
1756 ;; Bind dired-trivial-filenames to t because all auto-save file
1759 ;; file instead.
1765 (or (looking-at " Move to the draft file you want to recover,")
1770 Move to the draft file you want to recover, then type C-c C-c
1772 To browse text of a draft, type v on the draft file's line.
1775 type d on a line to mark that file for deletion.
1788 (dired-view-file))))
1796 (switch-to-buffer-other-window "*mail*")
1799 (insert-file-contents fname nil)
1800 ;; insert-file-contents will set buffer-file-coding-system
1804 ;; crashed. We therefore reset buffer-file-coding-system
1808 (setq buffer-file-coding-system
1809 default-buffer-file-coding-system))))))))
1811 (defun mail-recover ()
1812 "Recover interrupted mail composition from auto-save files.
1814 If the mail buffer has a current valid auto-save file,
1815 the command recovers that file. Otherwise, it displays a
1820 (switch-to-buffer "*mail*")
1821 ;; If *mail* didn't exist, set its directory, so that auto-saved
1823 (let ((dir (expand-file-name
1824 (file-name-as-directory mail-default-directory))))
1825 (if (file-exists-p dir)
1827 (or (eq major-mode 'mail-mode)
1828 (mail-mode))
1829 (let ((file-name buffer-auto-save-file-name))
1830 (cond ((and file-name (file-exists-p file-name))
1836 (dired-noselect file-name
1845 (format "Recover mail draft from auto save file %s? "
1846 file-name)))
1847 (error "mail-recover cancelled")
1849 (buffer-coding buffer-file-coding-system)
1854 (insert-file-contents file-name nil)
1855 (setq buffer-file-coding-system buffer-coding)))))
1856 (t (mail-recover-1)))))
1859 (defun mail-other-window (&optional noerase to subject in-reply-to cc replybuffer sendactions)
1860 "Like `mail' command, but display mail buffer in another window."
1867 (pop-to-buffer "*mail*"))
1868 (mail noerase to subject in-reply-to cc replybuffer sendactions))
1871 (defun mail-other-frame (&optional noerase to subject in-reply-to cc replybuffer sendactions)
1872 "Like `mail' command, but display mail buffer in another frame."
1879 (pop-to-buffer "*mail*"))
1880 (mail noerase to subject in-reply-to cc replybuffer sendactions))