[gnus git] branch master updated: m0-13-104-g6b0be16 =1= mml-sec.el (mml-secure-bcc-is-safe): Keep old Emacsen compatibility

       via  6b0be16a2af53bfcee8f601f139a59dfd0fe0b98 (commit)
      from  829fe7e073a13eaf991e04e90b1e731b1ccce0c2 (commit)


- Log -----------------------------------------------------------------
commit 6b0be16a2af53bfcee8f601f139a59dfd0fe0b98
Author: Katsumi Yamaoka <[email protected]>
Date:   Mon Dec 28 05:37:11 2015 +0000

    mml-sec.el (mml-secure-bcc-is-safe): Keep old Emacsen compatibility
    
    * mml-sec.el (mml-secure-bcc-is-safe):
    Don't use split-string with 4th arg for old Emacsen compatibility.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3826577..dcbb755 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-12-28  Katsumi Yamaoka  <[email protected]>
+
+	* mml-sec.el (mml-secure-bcc-is-safe):
+	Don't use split-string with 4th arg for old Emacsen compatibility.
+
 2015-12-27  Jens Lechtenboerger  <[email protected]>
 
 	* gnus-util.el (gnus-subsetp): New function.
diff --git a/lisp/mml-sec.el b/lisp/mml-sec.el
index 4f57cb7..fd01098 100644
--- a/lisp/mml-sec.el
+++ b/lisp/mml-sec.el
@@ -311,9 +311,8 @@ either an error is raised or not."
   (when (mml-secure-is-encrypted-p)
     (let ((bcc (mail-strip-quoted-names (message-fetch-field "bcc"))))
       (when bcc
-	;; Split recipients at "," boundary, omit empty strings (t),
-	;; and strip whitespace.
-	(let ((bcc-list (split-string bcc "," t "\\s-+")))
+	(let ((bcc-list (mapcar #'cadr
+				(mail-extract-address-components bcc t))))
 	  (unless (gnus-subsetp bcc-list mml-secure-safe-bcc-list)
 	    (unless (yes-or-no-p "Message for encryption contains Bcc header.\
   This may give away all Bcc'ed identities to all recipients.\

-----------------------------------------------------------------------
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/mml-sec.el |    5 ++---
 2 files changed, 7 insertions(+), 3 deletions(-)

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