Mercurial > emacs
changeset 21906:2ee50035ee1b
(rfc822-goto-eoh): Stop at a blank line, too.
(rfc822-goto-eoh): New function.
(sendmail-user-agent-compose): Use rfc822-goto-eoh.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 02 May 1998 06:50:44 +0000 |
| parents | b1e64615e700 |
| children | 4f48e88670ac |
| files | lisp/simple.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat May 02 06:43:03 1998 +0000 +++ b/lisp/simple.el Sat May 02 06:50:44 1998 +0000 @@ -3450,6 +3450,13 @@ 'sendmail-user-agent-compose 'mail-send-and-exit) +(defun rfc822-goto-eoh () + ;; Go to header delimiter line in a mail message, following RFC822 rules + (goto-char (point-min)) + (while (looking-at "^[^: \n]+:\\|^[ \t]") + (forward-line 1)) + (point)) + (defun sendmail-user-agent-compose (&optional to subject other-headers continue switch-function yank-action send-actions) @@ -3465,9 +3472,7 @@ continue (error "Message aborted")) (save-excursion - (goto-char (point-min)) - (search-forward mail-header-separator) - (beginning-of-line) + (rfc822-goto-eoh) (while other-headers (if (not (member (car (car other-headers)) '("in-reply-to" "cc"))) (insert (car (car other-headers)) ": "