diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 63b0b646c19..cde6c9e894c 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -491,10 +491,6 @@ the user from the mailer." | |||
| 491 | ;;; (progn | 491 | ;;; (progn |
| 492 | ;;; (forward-line 1) | 492 | ;;; (forward-line 1) |
| 493 | ;;; (insert "Sender: " (user-login-name) "\n"))) | 493 | ;;; (insert "Sender: " (user-login-name) "\n"))) |
| 494 | ;; "S:" is an abbreviation for "Subject:". | ||
| 495 | (goto-char (point-min)) | ||
| 496 | (if (re-search-forward "^S:" delimline t) | ||
| 497 | (replace-match "Subject:")) | ||
| 498 | ;; Don't send out a blank subject line | 494 | ;; Don't send out a blank subject line |
| 499 | (goto-char (point-min)) | 495 | (goto-char (point-min)) |
| 500 | (if (re-search-forward "^Subject:[ \t]*\n" delimline t) | 496 | (if (re-search-forward "^Subject:[ \t]*\n" delimline t) |