From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Mon, 28 Dec 2015 05:34:12 +0000 (+0000)
Subject: lisp/gnus/mml-sec.el (mml-secure-bcc-is-safe): Keep old Emacsen compatibility
X-Git-Tag: emacs-26.0.90~2841
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f602e172b6dad99e9bcc5d2cdfc7f548aeb3b2eb;p=emacs.git

lisp/gnus/mml-sec.el (mml-secure-bcc-is-safe): Keep old Emacsen compatibility

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

diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el
index 4f57cb76ccc..fd01098fdcb 100644
--- a/lisp/gnus/mml-sec.el
+++ b/lisp/gnus/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.\