Function: mml2015-epg-verify

mml2015-epg-verify is a byte-compiled function defined in mml2015.el.gz.

Signature

(mml2015-epg-verify HANDLE CTL)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml2015.el.gz
(defun mml2015-epg-verify (handle ctl)
  (catch 'error
    (let (context part signature) ;; plain signature-file
      (when (or (null (setq part (mm-find-raw-part-by-type
				  ctl (or (mm-handle-multipart-ctl-parameter
					   ctl 'protocol)
					  "application/pgp-signature")
				  t)))
		(null (setq signature (mm-find-part-by-type
				       (cdr handle) "application/pgp-signature"
				       nil t))))
	(mm-sec-error 'gnus-info "Corrupted")
	(throw 'error handle))
      (setq part (string-replace "\n" "\r\n" part)
	    signature (mm-get-part signature)
	    context (epg-make-context))
      (condition-case error
	  ;; (setq plain
	  (epg-verify-string context signature part) ;;)
	(error
	 (mm-sec-error 'gnus-info "Failed")
	 (mm-sec-status 'gnus-details (if (eq (car error) 'quit)
                                          "Quit."
                                        (mml2015-format-error error)))
	 (throw 'error handle)))
      (mm-sec-status 'gnus-info
       (mml2015-epg-verify-result-to-string
	(epg-context-result-for context 'verify)))
      handle)))