Mercurial > emacs
changeset 23020:d4ab4affb26d
(sendmail-send-it): Report invalid values of mail-from-style.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 14 Aug 1998 08:58:00 +0000 |
| parents | 60f63c8a3837 |
| children | 2a8dbf5b77a8 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Fri Aug 14 08:46:22 1998 +0000 +++ b/lisp/mail/sendmail.el Fri Aug 14 08:58:00 1998 +0000 @@ -852,7 +852,10 @@ (goto-char fullname-start)))) (insert ")\n")) ((null mail-from-style) - (insert "From: " login "\n"))))) + (insert "From: " login "\n")) + ((eq mail-from-style 'system-default) + nil) + (t (error "Invalid value for `system-default'"))))) ;; Insert an extra newline if we need it to work around ;; Sun's bug that swallows newlines. (goto-char (1+ delimline))