Function: mm-uu-pgp-signed-extract-1

mm-uu-pgp-signed-extract-1 is a byte-compiled function defined in mm-uu.el.gz.

Signature

(mm-uu-pgp-signed-extract-1 HANDLES CTL)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mm-uu.el.gz
(defun mm-uu-pgp-signed-extract-1 (_handles _ctl)
  (let ((buf (mm-uu-copy-to-buffer (point-min) (point-max))))
    (with-current-buffer buf
      (if (mm-uu-pgp-signed-test)
	  (progn
	    (mml2015-clean-buffer)
	    (let ((coding-system-for-write (or buffer-file-coding-system
					       gnus-newsgroup-charset
					       'iso-8859-1))
		  (coding-system-for-read (or buffer-file-coding-system
					      gnus-newsgroup-charset
					      'iso-8859-1)))
	      (funcall (mml2015-clear-verify-function))))
	(when (and mml2015-use (null (mml2015-clear-verify-function)))
	  (mm-sec-status
	   'gnus-details
	   (format-message
	    "Clear verification not supported by `%s'.\n" mml2015-use)))
	(mml2015-extract-cleartext-signature))
      (list (mm-make-handle buf mm-uu-text-plain-type)))))