Function: mml-secure-is-encrypted-p

mml-secure-is-encrypted-p is a byte-compiled function defined in mml-sec.el.gz.

Signature

(mml-secure-is-encrypted-p &optional TAG-PRESENT)

Documentation

Whether the current buffer contains a mail message that should be encrypted.

If TAG-PRESENT, say whether the <#secure tag is present anywhere in the buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml-sec.el.gz
(defun mml-secure-is-encrypted-p (&optional tag-present)
  "Whether the current buffer contains a mail message that should be encrypted.
If TAG-PRESENT, say whether the <#secure tag is present anywhere
in the buffer."
  (save-excursion
    (goto-char (point-min))
    (message-goto-body)
    (if tag-present
	(re-search-forward "<#secure[^>]+encrypt" nil t)
      (skip-chars-forward "[ \t\n")
      (looking-at "<#secure[^>]+encrypt"))))