Function: mml-smime-openssl-sign

mml-smime-openssl-sign is a byte-compiled function defined in mml-smime.el.gz.

Signature

(mml-smime-openssl-sign CONT)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml-smime.el.gz
(defun mml-smime-openssl-sign (_cont)
  (when (null smime-keys)
    (customize-variable 'smime-keys)
    (error "No S/MIME keys configured, use customize to add your key"))
  (smime-sign-buffer (cdar smime-keys))
  (goto-char (point-min))
  (while (search-forward "\r\n" nil t)
    (replace-match "\n" t t))
  (goto-char (point-max)))