From 6b0be16a2af53bfcee8f601f139a59dfd0fe0b98 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 28 Dec 2015 05:37:11 +0000 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/mml-sec.el | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 382657782..dcbb75572 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-12-28 Katsumi Yamaoka + + * 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 * gnus-util.el (gnus-subsetp): New function. diff --git a/lisp/mml-sec.el b/lisp/mml-sec.el index 4f57cb76c..fd01098fd 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.\ -- 2.11.4.GIT