Mercurial > emacs
comparison lisp/mail/sendmail.el @ 11709:03f977d9a240
(sendmail-send-it): Check continuation lines
when checking for empty subject lines.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 05 May 1995 22:31:11 +0000 |
| parents | 032725b727cd |
| children | d546535268e0 |
comparison
equal
deleted
inserted
replaced
| 11708:0de77f509d07 | 11709:03f977d9a240 |
|---|---|
| 506 ;;; (progn | 506 ;;; (progn |
| 507 ;;; (forward-line 1) | 507 ;;; (forward-line 1) |
| 508 ;;; (insert "Sender: " (user-login-name) "\n"))) | 508 ;;; (insert "Sender: " (user-login-name) "\n"))) |
| 509 ;; Don't send out a blank subject line | 509 ;; Don't send out a blank subject line |
| 510 (goto-char (point-min)) | 510 (goto-char (point-min)) |
| 511 (if (re-search-forward "^Subject:[ \t]*\n" delimline t) | 511 (if (re-search-forward "^Subject:\\([ \t]*\n\\)+\\b" delimline t) |
| 512 (replace-match "")) | 512 (replace-match "")) |
| 513 ;; Put the "From:" field in unless for some odd reason | 513 ;; Put the "From:" field in unless for some odd reason |
| 514 ;; they put one in themselves. | 514 ;; they put one in themselves. |
| 515 (goto-char (point-min)) | 515 (goto-char (point-min)) |
| 516 (if (not (re-search-forward "^From:" delimline t)) | 516 (if (not (re-search-forward "^From:" delimline t)) |