martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Backport] lisp/gnus/message.el (message-smtpmail-send-it): Make non-standard mail header separators work with smtpmail

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen
2015-01-29 02:22:34 +00:00
committed by Katsumi Yamaoka
parent 7779da6fc1
commit 972282f3bd
2 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@@ -1,3 +1,8 @@
2015-01-29 Lars Ingebrigtsen <larsi@gnus.org>
* message.el (message-smtpmail-send-it): Remove the mail header
separator before sending.
2015-01-28 Elias Oltmanns <eo@nebensachen.de>
* nnimap.el (nnimap-find-expired-articles): Fix handling of

5
lisp/gnus/message.el
View File

@@ -4828,6 +4828,11 @@ evaluates `message-send-mail-hook' just before sending a message.
It is useful if your ISP requires the POP-before-SMTP
authentication. See the Gnus manual for details."
(run-hooks 'message-send-mail-hook)
;; Change header-delimiter to be what smtpmail expects.
(goto-char (point-min))
(when (re-search-forward
(concat "^" (regexp-quote mail-header-separator) "\n"))
(replace-match "\n"))
(smtpmail-send-it))
(defun message-send-mail-with-mailclient ()