[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f602e17: lisp/gnus/mml-sec.el (mml-secure-bcc-is-sa
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master f602e17: lisp/gnus/mml-sec.el (mml-secure-bcc-is-safe): Keep old Emacsen compatibility |
Date: |
Mon, 28 Dec 2015 05:34:21 +0000 |
branch: master
commit f602e172b6dad99e9bcc5d2cdfc7f548aeb3b2eb
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
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.
---
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 4f57cb7..fd01098 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.\
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f602e17: lisp/gnus/mml-sec.el (mml-secure-bcc-is-safe): Keep old Emacsen compatibility,
Katsumi Yamaoka <=