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