diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2018-04-17 06:22:17 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2018-04-17 06:22:17 +0000 |
| commit | 003071346cdc914f28a8e8b3a8bf0c8f5f3b52dc (patch) | |
| tree | 1ac333b5487154d1d71b44cd0c1885f6e701b50c /lisp/mail | |
| parent | b0d261e29e5c1ffb9bc76e3519dd7525ab1edac4 (diff) | |
| download | emacs-003071346cdc914f28a8e8b3a8bf0c8f5f3b52dc.tar.gz | |
* lisp/mail/sendmail.el (mail-sendmail-undelimit-header): Work for
the case where the mail header separator has already been deleted.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index ab6ac4b1885..f1c6d395997 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -785,7 +785,9 @@ Concretely: replace the first blank line in the header with the separator." "Remove header separator to put the message in correct form for sendmail. Leave point at the start of the delimiter line." (goto-char (point-min)) - (when (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) + (when (re-search-forward + (concat "^" (regexp-quote mail-header-separator) "\n") + nil t) (replace-match "\n")) (rfc822-goto-eoh)) |