mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(sendmail-send-it): Add `From:' header.

Browse source 
(mail-from-style): New variable.
This commit is contained in:
Karl Heuer 1994-11-30 22:03:35 +00:00
parent 2d325322c1
commit ea9ceb343e
1 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/mail/sendmail.el
View file

@ -28,6 +28,17 @@
;;; Code:
;;;###autoload
(defvar mail-from-style 'angles "\
*Specifies how \"From:\" fields look.
If `nil', they contain just the return address like:
king@grassland.com
If `parens', they look like:
king@grassland.com (Elvis Parsley)
If `angles', they look like:
Elvis Parsley <king@grassland.com>")
;;;###autoload
(defvar mail-self-blind nil "\
Non-nil means insert BCC to self in messages to be sent.
@ -488,6 +499,18 @@ the user from the mailer."
(goto-char (point-min))
(if (re-search-forward "^Subject:[ \t]*\n" delimline t)
(replace-match ""))
;; Put the "From:" field in unless for some odd reason
;; they put one in themselves.
(goto-char (point-min))
(if (not (re-search-forward "^From:" delimline t))
(let* ((login (user-login-name))
(fullname (user-full-name)))
(cond ((eq mail-from-style 'angles)
(insert "From: " fullname " <" login ">\n"))
((eq mail-from-style 'parens)
(insert "From: " login " (" fullname ")\n"))
((null mail-from-style)
(insert "From: " login "\n")))))
;; Insert an extra newline if we need it to work around
;; Sun's bug that swallows newlines.
(goto-char (1+ delimline))