Commit 55c3534b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(sendmail-send-it): Report invalid values of mail-from-style.

parent 631ba13e
......@@ -852,7 +852,10 @@ the user from the mailer."
(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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment