[gnus git] branch master updated: m0-11-130-g0bbcee7 =1= Make non-standard mail header separators work with smtpmail

       via  0bbcee7a4167d9e2bedea87e5816f212a8195a04 (commit)
      from  6bf0b14d55ac93a35e2444c09cc2d6c060d1fb54 (commit)


- Log -----------------------------------------------------------------
commit 0bbcee7a4167d9e2bedea87e5816f212a8195a04
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Thu Jan 29 12:46:25 2015 +1100

    Make non-standard mail header separators work with smtpmail
    
    * lisp/message.el (message-smtpmail-send-it): Remove the mail header
    separator before sending.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2291cb9..17f703d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-29  Lars Ingebrigtsen  <[email protected]>
+
+	* message.el (message-smtpmail-send-it): Remove the mail header
+	separator before sending.
+
 2015-01-28  Elias Oltmanns  <[email protected]>
 
 	* nnimap.el (nnimap-find-expired-articles): Fix handling of
diff --git a/lisp/message.el b/lisp/message.el
index b359eb7..6bafc47 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4950,6 +4950,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 ()

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    5 +++++
 lisp/message.el |    5 +++++
 2 files changed, 10 insertions(+)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project