diff options
| author | Richard M. Stallman | 1994-12-15 15:23:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-15 15:23:49 +0000 |
| commit | 476070a4d5a9fcb273b04de4606fd00a611ecb9f (patch) | |
| tree | 1e2f903be79c8fb5bf375be556d20e0b4af9e945 | |
| parent | 89a255dc29fc9e8d907ba16e91d8453a469f36b8 (diff) | |
| download | emacs-476070a4d5a9fcb273b04de4606fd00a611ecb9f.tar.gz emacs-476070a4d5a9fcb273b04de4606fd00a611ecb9f.zip | |
(sendmail-send-it): Don't convert S: to Subject:.
| -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) |