mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-08 16:01:07 -07:00
Code Issues Projects Releases Wiki Activity

lisp/gnus/mml-sec.el (mml-secure-bcc-is-safe): Keep old Emacsen compatibility

Browse source 
* lisp/gnus/mml-sec.el (mml-secure-bcc-is-safe):
Don't use split-string with 4th arg for old Emacsen compatibility.
This commit is contained in:
Katsumi Yamaoka 2015-12-28 05:34:12 +00:00
parent b9097188f7
commit f602e172b6
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/mml-sec.el
View file

@ -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.\