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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-12-28  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <jens.lechtenboerger@fsfe.org>
 
        * gnus-util.el (gnus-subsetp): New function.

diff --git a/lisp/mml-sec.el b/lisp/mml-sec.el
index 4f57cb7..fd01098 100644 (file)
--- 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.\