Function: mml1991-epg-encrypt

mml1991-epg-encrypt is a byte-compiled function defined in mml1991.el.gz.

Signature

(mml1991-epg-encrypt CONT &optional SIGN)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml1991.el.gz
(defun mml1991-epg-encrypt (cont &optional sign)
  (goto-char (point-min))
  (when (re-search-forward "^$" nil t)
    (let ((cte (save-restriction
		 (narrow-to-region (point-min) (point))
		 (mail-fetch-field "content-transfer-encoding"))))
      ;; Strip MIME headers since it will be ASCII armored.
      (forward-line 1)
      (delete-region (point-min) (point))
      (when cte
	(mm-decode-content-transfer-encoding (intern (downcase cte))))))
  (let ((cipher (mml-secure-epg-encrypt 'OpenPGP cont sign)))
    (delete-region (point-min) (point-max))
    (insert "\n" cipher))
  t)