diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-12-28 05:34:12 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-12-28 05:34:12 +0000 |
| commit | f602e172b6dad99e9bcc5d2cdfc7f548aeb3b2eb (patch) | |
| tree | 44093aa97218d1728fdd10f25f9b7ba490af967d /lisp/gnus | |
| parent | b9097188f7a6dbfd408a1fe8c6df80526d3bd944 (diff) | |
| download | emacs-f602e172b6dad99e9bcc5d2cdfc7f548aeb3b2eb.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/mml-sec.el | 5 |
1 files changed, 2 insertions, 3 deletions
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.\ |