Mercurial > emacs
changeset 10097:429eda63a32c
(sendmail-send-it): Add `From:' header.
(mail-from-style): New variable.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 30 Nov 1994 22:03:35 +0000 |
| parents | f404f4123318 |
| children | 62d0ba6a531b |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 23 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Wed Nov 30 21:48:37 1994 +0000 +++ b/lisp/mail/sendmail.el Wed Nov 30 22:03:35 1994 +0000 @@ -29,6 +29,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. This is done when the message is initialized, @@ -488,6 +499,18 @@ (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))