fpb@SUNPITT.EAST.SUN.COM (Frank P. Bresz) (11/18/89)
Hi,
In GNU Emacs 18.52.3 of Tue Apr 11 1989 on omaha1 (berkeley-unix)
I hope I am posting this to the correct list. I just implemented a
new feature of sendmail. Often times I quickly want to fire off a message
to someone and forget to include a subject. It comes back to haunt me
later when using rmail-summary. So I threw in some code that doesn't let
me do this anymore. It is under variable control and default is same as
old behavior.
Frank P. Bresz }*{
wpmstr!fbresz@sunpitt.east.sun.com
(412)733-6749
diff -c2 sendmail.el.orig sendmail.el
*** sendmail.el.orig Thu Jun 2 06:37:46 1988
--- sendmail.el Fri Nov 17 17:06:59 1989
***************
*** 54,57 ****
--- 54,60 ----
(defvar mail-abbrevs-loaded nil)
(defvar mail-mode-map nil)
+ (defvar sendmail-abort-no-subject nil
+ "*Decides whether or not to abort on no subject.
+ t says abort, nil says just delete subject line")
(autoload 'build-mail-aliases "mailalias"
***************
*** 219,226 ****
(forward-line 1)
(insert "Sender: " (user-login-name) "\n")))
! ;; don't send out a blank subject line
(goto-char (point-min))
(if (re-search-forward "^Subject:[ \t]*\n" delimline t)
! (replace-match ""))
(if mail-interactive
(save-excursion
--- 222,231 ----
(forward-line 1)
(insert "Sender: " (user-login-name) "\n")))
! ;; don't send out a blank subject line if the user doesn't like to.
(goto-char (point-min))
(if (re-search-forward "^Subject:[ \t]*\n" delimline t)
! (if sendmail-abort-no-subject
! (error "Blank Subject, Send Aborted")
! (replace-match "")))
(if mail-interactive
(save-excursion