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)
  (smime-sign-buffer
   ;; List with key and certificate as its car, and a list of additional
   ;; certificates to include in its cadr for smime-sign-region
   (list
    (cdr (assq 'keyfile cont))
    (mapcar #'cdr (cl-remove-if-not (apply-partially #'equal 'chainfile)
                                    cont
                                    :key #'car-safe))))
  (goto-char (point-min))
  (while (search-forward "\r\n" nil t)
    (replace-match "\n" t t))
  (goto-char (point-max)))