Function: mml-smime-epg-encrypt

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

Signature

(mml-smime-epg-encrypt CONT)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml-smime.el.gz
(defun mml-smime-epg-encrypt (cont)
  (let* ((cipher (mml-secure-epg-encrypt 'CMS cont)))
    (delete-region (point-min) (point-max))
    (goto-char (point-min))
    (insert "\
Content-Type: application/pkcs7-mime;
 smime-type=enveloped-data;
 name=smime.p7m
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename=smime.p7m

")
    (insert (base64-encode-string cipher))
    (goto-char (point-max))))