From 55c3534be02d9220505683273dba128ff1ec0ce3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 14 Aug 1998 08:58:00 +0000 Subject: [PATCH] (sendmail-send-it): Report invalid values of mail-from-style. --- lisp/mail/sendmail.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 2a196326db0..31b0a06cd3e 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -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)) -- 2.39.5