Function: mml-secure-bcc-is-safe

mml-secure-bcc-is-safe is a byte-compiled function defined in mml-sec.el.gz.

Signature

(mml-secure-bcc-is-safe)

Documentation

Check whether usage of Bcc is safe (or absent).

Bcc usage is safe in two cases: first, if the current message does not contain an MML secure encrypt tag; second, if the Bcc addresses are a subset of mml-secure-safe-bcc-list. In all other cases, ask the user whether Bcc usage is safe. Raise error if user answers no. Note that this function does not produce a meaningful return value: either an error is raised or not.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml-sec.el.gz
(defun mml-secure-bcc-is-safe ()
  "Check whether usage of Bcc is safe (or absent).
Bcc usage is safe in two cases: first, if the current message does
not contain an MML secure encrypt tag;
second, if the Bcc addresses are a subset of `mml-secure-safe-bcc-list'.
In all other cases, ask the user whether Bcc usage is safe.
Raise error if user answers no.
Note that this function does not produce a meaningful return value:
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
	(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.\
  Are you sure that this is safe?\
  (Customize `mml-secure-safe-bcc-list' to avoid this warning.)")
	      (error "Aborted"))))))))