* mml-sec.el (mml-secure-bcc-is-safe):
Don't use split-string with 4th arg for old Emacsen compatibility.
+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.
2015-12-27 Jens Lechtenboerger <jens.lechtenboerger@fsfe.org>
* gnus-util.el (gnus-subsetp): New function.
(when (mml-secure-is-encrypted-p)
(let ((bcc (mail-strip-quoted-names (message-fetch-field "bcc"))))
(when bcc
(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.\
(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.\