diff options
| -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." | |||
| 311 | (when (mml-secure-is-encrypted-p) | 311 | (when (mml-secure-is-encrypted-p) |
| 312 | (let ((bcc (mail-strip-quoted-names (message-fetch-field "bcc")))) | 312 | (let ((bcc (mail-strip-quoted-names (message-fetch-field "bcc")))) |
| 313 | (when bcc | 313 | (when bcc |
| 314 | ;; Split recipients at "," boundary, omit empty strings (t), | 314 | (let ((bcc-list (mapcar #'cadr |
| 315 | ;; and strip whitespace. | 315 | (mail-extract-address-components bcc t)))) |
| 316 | (let ((bcc-list (split-string bcc "," t "\\s-+"))) | ||
| 317 | (unless (gnus-subsetp bcc-list mml-secure-safe-bcc-list) | 316 | (unless (gnus-subsetp bcc-list mml-secure-safe-bcc-list) |
| 318 | (unless (yes-or-no-p "Message for encryption contains Bcc header.\ | 317 | (unless (yes-or-no-p "Message for encryption contains Bcc header.\ |
| 319 | This may give away all Bcc'ed identities to all recipients.\ | 318 | This may give away all Bcc'ed identities to all recipients.\ |