Lines Matching +defs:mail +defs:signature +defs:file
1 ;;; message.el --- composing mail and news messages
7 ;; Keywords: mail, news
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
43 ;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better
46 (require 'mail-abbrevs)
48 (require 'mail-parse)
56 (defgroup message '((user-mail-address custom-variable)
60 :group 'mail
63 (put 'user-mail-address 'custom-type 'string)
105 (defgroup message-mail nil
115 "*Directory from which all other mail file variables are derived."
131 This function will be called with the name of the file to store the
155 "*Regexp that matches headers to be removed in resent bounced mail."
189 `(signature . disabled)' to this list.
198 `shorten-followup-to', `signature', `size', `subject', `subject-cmsg'
207 `message-required-mail-headers'."
236 (defcustom message-required-mail-headers
242 :group 'message-mail
266 (defcustom message-ignored-mail-headers
269 :group 'message-mail
392 "Note to insert before signature to notify of cross-post and follow-up."
398 "Note to insert before signature to notify of follow-up only."
415 (defcustom message-signature-separator "^-- *$"
416 "Regexp matching the signature separator."
429 nil means let mailer mail back a message to report errors."
431 :group 'message-mail
440 Generate the buffer name in the Message way (e.g., *mail*, *news*,
441 *mail to whom*, *news on group*, etc.) and continue editing in the
452 Similar to nil but the buffer name is simpler like *mail message*.
482 If t, use `message-user-organization-file'."
485 (const :tag "consult file" t)))
488 (defcustom message-user-organization-file "/usr/lib/news/organization"
489 "*Local news organization file."
490 :type 'file
530 digital signature."
537 (defcustom message-forward-before-signature t
538 "*Non-nil means put forwarded message before signature, else after."
609 (defcustom message-send-mail-function 'message-send-mail-with-sendmail
610 "Function to call to send the current buffer as mail.
612 variable `mail-header-separator'.
614 Valid values include `message-send-mail-with-sendmail' (the default),
615 `message-send-mail-with-mh', `message-send-mail-with-qmail',
618 See also `send-mail-function'."
619 :type '(radio (function-item message-send-mail-with-sendmail)
620 (function-item message-send-mail-with-mh)
621 (function-item message-send-mail-with-qmail)
628 :group 'message-mail)
633 variable `mail-header-separator'."
676 (defcustom message-use-mail-followup-to 'use
700 (defcustom message-subscribed-address-file nil
701 "*A file containing addresses the user is subscribed to.
703 non-nil, each line of this file should be a mailing list address."
707 :type '(radio file (const nil)))
749 "*Envelope-from when sending mail with sendmail.
750 If this is nil, use `user-mail-address'. If it is the symbol
755 (const :tag "Use `user-mail-address'" nil))
764 :type 'file)
805 ;; proper solution. If a crash happens while replying, the auto-save file
812 `message-required-mail-headers' specify which headers to generate.
837 (defcustom message-signature-setup-hook nil
840 the signature is inserted."
910 `message-cite-original-without-signature'.
911 Note that `message-cite-original' uses `mail-citation-hook' if that is non-nil."
913 (function-item message-cite-original-without-signature)
921 "*Function for modifying a citation just inserted in the mail buffer.
930 (defcustom message-signature t
932 If t, the `message-signature-file' file will be inserted instead.
940 (defcustom message-signature-file "~/.signature"
941 "*Name of file containing the text inserted at end of message buffer.
942 Ignored if the named file doesn't exist.
943 If nil, don't insert a signature."
944 :type '(choice file (const :tags "None" nil))
949 (defcustom message-signature-insert-empty-line t
950 "*If non-nil, insert an empty line before the signature separator."
1012 (defcustom message-default-mail-headers ""
1015 :group 'message-mail
1026 ;; Note: could use /usr/ucb/mail instead of sendmail;
1031 (file-readable-p "/etc/sendmail.cf")
1036 (insert-file-contents "/etc/sendmail.cf")
1055 (define-mail-user-agent 'message-user-agent
1056 'message-mail 'message-send-and-exit
1064 (mail message-mail-p message-send-via-mail))
1076 (defcustom message-mail-alias-type 'abbrev
1079 mail aliases off."
1086 (file-name-as-directory (nnheader-concat message-directory "drafts"))
1296 (concat "^" (regexp-quote mail-header-separator) "$")
1332 ,@(if (and mail-header-separator
1333 (not (equal mail-header-separator "")))
1334 `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")
1358 "Alist of mail and news faces for facemenu.
1369 (defcustom message-send-mail-hook nil
1370 "Hook run before sending mail messages.
1372 mail."
1391 "Coding system to encode outgoing mail.")
1395 "*Coding system to compose mail.
1400 (defcustom message-send-mail-partially-limit 1000000
1424 "A list of hierarchical mail address definitions.
1428 mail sent to the first address will automatically be delivered to the
1431 the mail is sent. All addresses in this structure should be
1437 (defcustom message-mail-user-agent nil
1438 "Like `mail-user-agent'.
1440 `mail-user-agent'."
1445 (const :tag "`mail-user-agent'"
1448 (function-item :tag "Default Emacs mail"
1479 (file-error))
1501 (defvar message-this-is-mail nil)
1510 (defvar gnus-read-active-file))
1512 ;;; Regexp matching the delimiter of messages in UNIX mail format
1514 ;;; of rmail.el's rmail-unix-mail-delimiter.
1515 (defvar message-unix-mail-delimiter
1565 "Regexp matching the delimiter of messages in UNIX mail format.")
1599 (defvar message-send-mail-real-function nil
1600 "Internal send mail function.")
1632 (autoload 'gnus-output-to-mail "gnus-util")
1712 (defun message-mail-file-mbox-p (file)
1713 "Say whether FILE looks like a Unix mbox file."
1714 (when (and (file-exists-p file)
1715 (file-readable-p file)
1716 (file-regular-p file))
1718 (nnheader-insert-file-contents file)
1720 (looking-at message-unix-mail-delimiter))))
1723 "The same as `mail-fetch-field', only remove all newlines.
1728 (value (mail-fetch-field header nil (not not-all))))
1787 (mail-narrow-to-head)
1979 (defun message-mark-insert-file (file)
1987 (insert-file-contents file)
2002 (if (message-goto-signature)
2003 (re-search-backward message-signature-separator))
2062 (message-goto-signature)
2064 (concat "^" mail-header-separator)
2066 (message-goto-signature)
2071 (message-goto-signature)
2077 (if (message-goto-signature)
2078 (re-search-backward message-signature-separator))
2204 (concat "^" (regexp-quote mail-header-separator) "\n") nil t)
2230 (regexp-quote mail-header-separator)
2239 (and (not message-this-is-mail)
2247 (defun message-mail-p ()
2248 "Say whether the current buffer contains a mail message."
2250 (or message-this-is-mail
2262 message-subscribed-address-file
2344 (define-key message-mode-map "\C-c\C-f\C-m" 'message-goto-mail-followup-to)
2350 'message-generate-unsubscribed-mail-followup-to)
2361 (define-key message-mode-map "\C-c\M-f" 'message-mark-insert-file)
2364 (define-key message-mode-map "\C-c\C-i" 'message-goto-signature)
2378 (define-key message-mode-map "\C-c\C-w" 'message-insert-signature)
2392 (define-key message-mode-map "\C-c\C-z" 'message-kill-to-signature)
2397 (define-key message-mode-map "\C-c\C-a" 'mml-attach-file)
2408 ["Insert Signature" message-insert-signature t]
2419 ["Kill To Signature" message-kill-to-signature t]
2430 ["Insert File Marked..." message-mark-insert-file
2432 '(:help "Insert file at point marked with enclosing tags"))]
2494 ["Mail-Followup-To" message-goto-mail-followup-to t]
2495 ["Unsubscribed list post" message-generate-unsubscribed-mail-followup-to
2503 ["Goto Signature" message-goto-signature t]))
2576 "Major mode for editing mail and news to be sent.
2598 C-c C-i `message-goto-signature' (move to the beginning of the signature).
2599 C-c C-w `message-insert-signature' (insert `message-signature-file' file).
2604 C-c C-z `message-kill-to-signature' (kill the text up to the signature).
2606 C-c C-a `mml-attach-file' (attach a file as MIME).
2610 C-c M-f `message-mark-insert-file' (insert file marked with enclosing tags).
2655 ;; Allow mail alias things.
2656 (when (eq message-mail-alias-type 'abbrev)
2657 (if (fboundp 'mail-abbrevs-setup)
2658 (mail-abbrevs-setup)
2659 (if (fboundp 'mail-aliases-setup) ; warning avoidance
2660 (mail-aliases-setup))))
2661 (unless buffer-file-name
2662 (message-set-auto-save-file-name))
2686 (regexp-quote mail-header-separator) "$\\|"
2688 "-- $\\|" ; signature delimiter
2773 (defun message-goto-mail-followup-to ()
2795 (or (search-forward (concat "\n" mail-header-separator "\n") nil t)
2809 (defun message-goto-signature ()
2810 "Move point to the beginning of the message signature.
2811 If there is no signature in the article, go to the end and
2815 (if (re-search-forward message-signature-separator nil t)
2820 (defun message-generate-unsubscribed-mail-followup-to (&optional include-cc)
2826 in the current mail buffer, and appends the current `user-mail-address'.
2840 (message-goto-mail-followup-to)
2841 (insert (concat tos ", " user-mail-address))))
2848 If the original author requested not to be sent mail, don't insert unless the
2851 (let* ((mct (message-fetch-reply-field "mail-copies-to"))
2854 (to (or (message-fetch-reply-field "mail-reply-to")
2860 "Ignoring the user request not to have copies sent via mail"
2861 "Complying with the user request not to have copies sent via mail")))
2863 (error "No mail address in the article"))
2893 ;; (mail-strip-quoted-names "Foo Bar <foo@bar>, bla@fasel (Bla Fasel)")
2901 for old-header = (mail-fetch-field (symbol-name synonym))
2907 (setq old-header (mail-fetch-field header-name))
2934 (mail-fetch-field "newsgroups")
2935 (not (string-match "\\` *\\'" (mail-fetch-field "newsgroups"))))
2955 (delete-region (point) (if (not (message-goto-signature))
2966 (when (message-goto-signature)
2969 (defun message-kill-to-signature ()
2970 "Deletes all text up to the signature."
2973 (message-goto-signature)
3076 ;; Is it better to use `mail-header-end'?
3083 (concat "^" (regexp-quote mail-header-separator) "\n")
3091 (defun message-insert-signature (&optional force)
3092 "Insert a signature. See documentation for variable `message-signature'."
3094 (let* ((signature
3096 ((and (null message-signature)
3100 (not (re-search-backward message-signature-separator nil t))))
3101 ((and (null message-signature)
3104 ((functionp message-signature)
3105 (funcall message-signature))
3106 ((listp message-signature)
3107 (eval message-signature))
3108 (t message-signature)))
3109 (signature
3110 (cond ((stringp signature)
3111 signature)
3112 ((and (eq t signature)
3113 message-signature-file
3114 (file-exists-p message-signature-file))
3115 signature))))
3116 (when signature
3118 ;; Insert the signature.
3121 (when message-signature-insert-empty-line
3124 (if (eq signature t)
3125 (insert-file-contents message-signature-file)
3126 (insert signature))
3262 (search-forward mail-header-separator nil 'end))
3263 (let* ((mail-to (or
3267 (mail-trimmed-to
3268 (if (string-match "," mail-to)
3269 (concat (substring mail-to 0 (match-beginning 0)) ", ...")
3270 mail-to))
3271 (name-default (concat "*message* " mail-trimmed-to))
3283 (search-forward (concat "\n" mail-header-separator "\n") nil t)
3383 (defun message-cite-original-without-signature ()
3410 (when (re-search-backward message-signature-separator start t)
3411 ;; Also peel off any blank lines before the signature.
3428 (eval-when-compile (defvar mail-citation-hook)) ;Compiler directive
3431 (if (and (boundp 'mail-citation-hook)
3432 mail-citation-hook)
3433 (run-hooks 'mail-citation-hook)
3467 (insert (mail-header-from message-reply-headers) " writes:")
3478 (concat "^" (regexp-quote mail-header-separator) "$"))
3499 (defun message-remove-signature ()
3500 "Remove the signature from the text between point and mark.
3505 (if (not (re-search-forward message-signature-separator (mark t) t))
3506 ;; No signature here, so we just indent the cited text.
3529 "Send message like `message-send', then, if no errors, exit from mail buffer."
3560 (auto-save-file-name buffer-auto-save-file-name)
3561 (file-name buffer-file-name)
3563 (setq buffer-file-name nil)
3565 (when (and (or (and auto-save-file-name
3566 (file-exists-p auto-save-file-name))
3567 (and file-name
3568 (file-exists-p file-name)))
3576 (yes-or-no-p (format "Remove the backup file%s? "
3579 (delete-file auto-save-file-name))
3585 "Bury this mail BUFFER."
3651 (delete-auto-save-file-if-necessary t)
3653 ;; Delete other mail buffers and stuff.
3659 (defun message-send-via-mail (arg)
3660 "Send the current message via mail."
3661 (message-send-mail arg))
3793 (defun message-send-mail-partially ()
3794 "Send mail as message/partial."
3798 (concat "^" (regexp-quote mail-header-separator) "\n"))
3800 (run-hooks 'message-send-mail-hook)
3805 plist total header required-mail-headers)
3807 (if (< (point-max) (+ p message-send-mail-partially-limit))
3809 (goto-char (+ p message-send-mail-partially-limit))
3847 (let ((mail-header-separator ""))
3848 (when (memq 'Message-ID message-required-mail-headers)
3850 (when (memq 'Lines message-required-mail-headers)
3857 (funcall (or message-send-mail-real-function
3858 message-send-mail-function))))
3864 (defun message-send-mail (&optional arg)
3865 (require 'mail-utils)
3870 (message-this-is-mail t)
3875 (headers message-required-mail-headers))
3880 (not (mail-fetch-field "mail-followup-to")))
3883 (cons "Mail-Followup-To" (message-make-mail-followup-to))
3884 message-required-mail-headers))
3886 (when (equal "" (mail-fetch-field "mail-followup-to"))
3917 (when (memq 'Lines message-required-mail-headers)
3920 (message-remove-header message-ignored-mail-headers t)
3921 (let ((mail-parse-charset message-default-charset))
3922 (mail-encode-encoded-word-buffer)))
3945 (mail-header-parse-content-type
3952 (if (or (not message-send-mail-partially-limit)
3953 (< (buffer-size) message-send-mail-partially-limit)
3961 Some mail gateways (MTA's) bounce large messages. To avoid the
3964 (/ message-send-mail-partially-limit 1000)
3968 However, some mail readers (MUA's) can't read split messages, i.e.,
3972 The size limit is controlled by `message-send-mail-partially-limit'.
3974 `message-send-mail-partially-limit' to nil.
3977 (message "Sending via mail...")
3978 (funcall (or message-send-mail-real-function
3979 message-send-mail-function)))
3980 (message-send-mail-partially)))
3983 (push 'mail message-sent-message-via)))
3985 (defun message-send-mail-with-sendmail ()
4001 (concat "^" (regexp-quote mail-header-separator) "\n"))
4005 (run-hooks 'message-send-mail-hook)
4023 ((file-exists-p "/usr/sbin/sendmail")
4025 ((file-exists-p "/usr/lib/sendmail")
4027 ((file-exists-p "/usr/ucblib/sendmail")
4037 ;; These mean "report errors by mail"
4062 (defun message-send-mail-with-qmail ()
4064 Refer to the documentation for the variable `message-send-mail-function'
4069 (concat "^" (regexp-quote mail-header-separator) "\n"))
4071 (run-hooks 'message-send-mail-hook)
4088 ;; compare this with message-send-mail-with-sendmail and weep
4106 (defun message-send-mail-with-mh ()
4110 (setq buffer-file-name name)
4120 (run-hooks 'message-send-mail-hook)
4127 `message-send-mail-hook' just before sending a message. It is useful
4130 (run-hooks 'message-send-mail-hook)
4229 (when (memq 'Lines message-required-mail-headers)
4233 (let ((mail-parse-charset message-default-charset))
4234 (mail-encode-encoded-word-buffer)))
4243 (concat "^" (regexp-quote mail-header-separator) "\n"))
4249 (setq result (let ((mail-header-separator ""))
4376 "Message-ID.*.i-did-not-set--mail-host-address--so-tickle-me" nil t)
4438 (not (boundp 'gnus-read-active-file)))
4441 ((and (or (not gnus-read-active-file)
4442 (eq gnus-read-active-file 'some))
4479 (when (setq header (mail-fetch-field (car headers)))
4504 (when (setq header (mail-fetch-field (pop headers)))
4525 (setq ad (nth 1 (mail-extract-address-components
4558 (setq ad (nth 1 (mail-extract-address-components
4577 (concat "^" (regexp-quote mail-header-separator) "$"))
4594 (concat "^" (regexp-quote mail-header-separator) "$"))
4598 (re-search-backward message-signature-separator nil t)
4630 ;; Check the length of the signature.
4631 (message-check 'signature
4652 (concat "^" (regexp-quote mail-header-separator) "$"))
4664 (concat "^" (regexp-quote mail-header-separator) "$"))
4676 list file
4681 (setq file (message-fetch-field "fcc" t)))
4682 (when file
4689 (while (setq file (message-fetch-field "fcc" t))
4690 (push file list)
4692 (let ((mail-parse-charset message-default-charset)
4696 (mail-encode-encoded-word-buffer)))
4699 (concat "^" (regexp-quote mail-header-separator) "$")
4704 (setq file (pop list))
4705 (if (string-match "^[ \t]*|[ \t]*\\(.*\\)[ \t]*$" file)
4707 (call-process-region (point-min) (point-max) shell-file-name
4709 (match-string 1 file))
4711 (setq file (expand-file-name file))
4712 (unless (file-exists-p (file-name-directory file))
4713 (make-directory (file-name-directory file) t))
4716 (funcall message-fcc-handler-function file)
4717 (if (and (file-readable-p file) (mail-file-babyl-p file))
4718 (rmail-output file 1 nil t)
4719 (let ((mail-use-rfc822 t))
4720 (rmail-output file 1 t t))))))
4724 "Append this article to Unix/babyl mail file FILENAME."
4725 (if (and (file-readable-p filename)
4726 (mail-file-babyl-p filename))
4728 (gnus-output-to-mail filename t)))
4794 (mail-header-references message-reply-headers)
4795 (mail-header-subject message-reply-headers)
4799 (mail-header-subject message-reply-headers))
4860 message-user-organization-file
4861 (file-exists-p message-user-organization-file))
4862 (insert-file-contents message-user-organization-file)))
4880 (let ((message-id (mail-header-message-id message-reply-headers))
4881 (references (mail-header-references message-reply-headers))
4891 (let ((from (mail-header-from message-reply-headers))
4892 (date (mail-header-date message-reply-headers))
4893 (msg-id (mail-header-message-id message-reply-headers)))
4895 (let ((name (mail-extract-address-components from)))
5016 (or (message-user-mail-address)
5019 (defun message-user-mail-address ()
5020 "Return the pertinent part of `user-mail-address'."
5021 (when (and user-mail-address
5022 (string-match "@.*\\." user-mail-address))
5023 (if (string-match " " user-mail-address)
5024 (nth 1 (mail-extract-address-components user-mail-address))
5025 user-mail-address)))
5030 (nth 1 (mail-extract-address-components
5040 (user-mail (message-user-mail-address))
5042 (if (and user-mail
5043 (string-match "@\\(.*\\)\\'" user-mail))
5044 (match-string 1 user-mail)))
5057 ;; Try `mail-host-address'.
5058 ((and (boundp 'mail-host-address)
5059 (stringp mail-host-address)
5060 (string-match message-valid-fqdn-regexp mail-host-address)
5061 (not (string-match message-bogus-system-names mail-host-address)))
5062 mail-host-address)
5063 ;; We try `user-mail-address' as a backup.
5072 ".i-did-not-set--mail-host-address--so-tickle-me")))))
5082 (or mail-host-address
5089 (let ((listaddr (message-make-mail-followup-to t)))
5097 (defun message-make-mail-followup-to (&optional only-show-subscribed)
5106 (mapcar 'mail-strip-quoted-names
5108 (file-regexps
5109 (if message-subscribed-address-file
5113 (insert-file-contents message-subscribed-address-file)
5126 file-regexps
5151 'car (mail-header-parse-addresses field))))))
5315 (cadr (mail-extract-address-components from)))
5321 (cadr (mail-extract-address-components sender)))
5336 "Insert a courtesy message in mail copies of combined messages."
5538 (or (car (mail-extract-address-components to))
5552 (or (car (mail-extract-address-components to))
5625 ;; Note: mail-abbrevs of XEmacs renames buffer name behind Gnus.
5627 "\\`\\*\\(sent \\|unsent \\)?\\(.+\\)\\*[^\\*]*\\|\\`mail to "
5632 (string-equal name "mail")
5641 (to (concat "*sent mail to "
5642 (or (car (mail-extract-address-components to))
5646 (t "*sent mail*"))))
5654 (defun message-mail-user-agent ()
5656 ((not message-mail-user-agent) nil)
5657 ((eq message-mail-user-agent t) mail-user-agent)
5658 (t message-mail-user-agent))))
5665 (let ((mua (message-mail-user-agent))
5667 (if (not (and message-this-is-mail mua))
5680 (let ((mail-user-agent mua))
5681 (compose-mail to subject
5722 (mail-header-format
5738 (insert mail-header-separator "\n")
5753 (when (message-mail-p)
5754 (when message-default-mail-headers
5755 (insert message-default-mail-headers)
5760 (append message-required-mail-headers
5764 (run-hooks 'message-signature-setup-hook)
5765 (message-insert-signature)
5773 (when (message-mail-p)
5781 (defun message-set-auto-save-file-name ()
5782 "Associate the message buffer with a file in the drafts directory."
5784 (unless (file-directory-p
5785 (directory-file-name message-auto-save-directory))
5790 (setq buffer-file-name (expand-file-name
5798 (setq buffer-auto-save-file-name (make-auto-save-file-name)))
5799 (clear-visited-file-modtime)
5800 (setq buffer-file-coding-system message-draft-coding-system)))
5819 (when (message-mail-p)
5823 (copy-sequence message-required-mail-headers))))))))
5833 (defun message-mail (&optional to subject
5836 "Start editing a mail message to be sent.
5839 is a function used to switch to and display the mail buffer."
5841 (let ((message-this-is-mail t) replybuffer)
5842 (unless (message-mail-user-agent)
5850 (message-buffer-name "mail" to))
5852 ;; FIXME: message-mail should do something if YANK-ACTION is not
5886 mct (message-fetch-field "mail-copies-to")
5887 author (or (message-fetch-field "mail-reply-to")
5891 mft (and message-use-mail-followup-to
5892 (message-fetch-field "mail-followup-to"))))
5916 (or (not (eq message-use-mail-followup-to 'ask))
5939 You may customize the variable `message-use-mail-followup-to', if you
5967 (cons (downcase (mail-strip-quoted-names addr)) addr))
6046 (message-this-is-mail t)
6077 (unless (message-mail-user-agent)
6127 mrt (message-fetch-field "mail-reply-to")
6129 mct (message-fetch-field "mail-copies-to"))
6161 `Followup-To: poster' sends your response via e-mail instead of news.
6243 (downcase (cadr (mail-extract-address-components from)))
6244 (downcase (cadr (mail-extract-address-components
6252 (cadr (mail-extract-address-components from))))))))))
6286 mail-header-separator "\n"
6320 (insert mail-header-separator)
6326 "Reread contents of current buffer from its last auto-save file."
6328 (let ((file-name (make-auto-save-file-name)))
6337 "ls" nil standard-output nil "-l" file-name))))
6338 (yes-or-no-p (format "Recover auto save file %s? " file-name)))
6341 (insert-file-contents file-name nil)))
6384 The form is: [Source] Subject, where if the original message was mail,
6397 (mail-decode-encoded-word-string prefix))
6402 The form is: [Source] Subject, where if the original message was mail,
6414 (mail-decode-encoded-word-string prefix))
6436 (mail-decode-encoded-word-string subject))
6458 "Forward the current message via mail.
6459 Optional NEWS will use news to forward instead of mail.
6470 (message-mail nil subject))
6578 (if message-forward-before-signature
6626 ;; We first set up a normal mail buffer.
6627 (unless (message-mail-user-agent)
6630 (let ((message-this-is-mail t)
6637 (message-remove-header message-ignored-mail-headers t)
6656 (insert mail-header-separator)
6667 message-required-mail-headers
6669 (message-send-mail))
6675 "Re-mail the current message.
6677 contains some mail you have written which has been bounced back to
6693 ;; We remove everything before the bounced mail.
6712 (insert mail-header-separator))
6720 (defun message-mail-other-window (&optional to subject)
6721 "Like `message-mail' command, but display mail buffer in another window."
6723 (unless (message-mail-user-agent)
6729 (message-pop-to-buffer (message-buffer-name "mail" to))))
6730 (let ((message-this-is-mail t))
6735 (defun message-mail-other-frame (&optional to subject)
6736 "Like `message-mail' command, but display mail buffer in another frame."
6738 (unless (message-mail-user-agent)
6744 (message-pop-to-buffer (message-buffer-name "mail" to))))
6745 (let ((message-this-is-mail t))
6871 (message-send-and-exit "mail/send")
6872 (message-dont-send "mail/save-draft")
6874 (mml-attach-file "attach" mml-mode-map)
6875 (mml-preview "mail/preview" mml-mode-map)
6896 (mml-attach-file "attach" mml-mode-map)
6912 '(new-file open-file dired kill-buffer write-file
6936 "mail/save-draft.xpm"
6982 (let ((mail-abbrev-mode-regexp (caar alist)))
6983 (not (mail-abbrev-in-expansion-header-p))))
7094 (regexp "^gnus\\|^nn\\|^message\\|^sendmail\\|^smtp\\|^user-mail-address"))
7115 (let ((mail-parse-charset (or mail-parse-charset
7150 ;; instance, Solaris' /usr/bin/mail.
7160 (if (fboundp 'mail-abbrevs-setup)
7161 (let ((mail-abbrev-mode-regexp "")
7162 (minibuffer-setup-hook 'mail-abbrevs-setup)
7165 (let ((minibuffer-setup-hook 'mail-abbrev-minibuffer-setup-hook)
7173 (require 'mail-utils)
7177 (mail-strip-quoted-names
7186 (unless (or (not email) (equal email user-mail-address))
7208 (mail-strip-quoted-names
7211 (mail-strip-quoted-names