diff options
| author | Katsumi Yamaoka | 2018-04-17 06:22:17 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2018-04-17 06:22:17 +0000 |
| commit | 003071346cdc914f28a8e8b3a8bf0c8f5f3b52dc (patch) | |
| tree | 1ac333b5487154d1d71b44cd0c1885f6e701b50c | |
| parent | b0d261e29e5c1ffb9bc76e3519dd7525ab1edac4 (diff) | |
| download | emacs-003071346cdc914f28a8e8b3a8bf0c8f5f3b52dc.tar.gz emacs-003071346cdc914f28a8e8b3a8bf0c8f5f3b52dc.zip | |
* lisp/mail/sendmail.el (mail-sendmail-undelimit-header): Work for
the case where the mail header separator has already been deleted.
| -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." | |||
| 785 | "Remove header separator to put the message in correct form for sendmail. | 785 | "Remove header separator to put the message in correct form for sendmail. |
| 786 | Leave point at the start of the delimiter line." | 786 | Leave point at the start of the delimiter line." |
| 787 | (goto-char (point-min)) | 787 | (goto-char (point-min)) |
| 788 | (when (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n")) | 788 | (when (re-search-forward |
| 789 | (concat "^" (regexp-quote mail-header-separator) "\n") | ||
| 790 | nil t) | ||
| 789 | (replace-match "\n")) | 791 | (replace-match "\n")) |
| 790 | (rfc822-goto-eoh)) | 792 | (rfc822-goto-eoh)) |
| 791 | 793 | ||