Function: gnus-mime-security-verify-or-decrypt

gnus-mime-security-verify-or-decrypt is a byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-mime-security-verify-or-decrypt HANDLE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-mime-security-verify-or-decrypt (handle)
  (mm-remove-parts (cdr handle))
  (let ((region (mm-handle-multipart-ctl-parameter handle 'gnus-region))
	point (inhibit-read-only t))
    (if region
	(goto-char (car region)))
    (setq point (point))
    (with-current-buffer (mm-handle-multipart-original-buffer handle)
      (let* ((mm-verify-option 'known)
	     (mm-decrypt-option 'known)
	     (nparts (mm-possibly-verify-or-decrypt (cdr handle) handle)))
	(unless (eq nparts (cdr handle))
	  (mm-destroy-parts (cdr handle))
	  (setcdr handle nparts))))
    (gnus-mime-display-security handle)
    (when region
      (delete-region (point) (cdr region))
      (set-marker (car region) nil)
      (set-marker (cdr region) nil))
    (goto-char point)))