diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-26 16:24:29 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-26 16:24:29 +0200 |
commit | 84ef1ea8b524f8998fc8674b99cf8069e38dce4f (patch) | |
tree | bab670711c6482b4b3771b6e092daa809eb97e90 /lisp/gnus/mm-decode.el | |
parent | 8e46cf4ba8c1992f52059cf530f5919f9fc33305 (diff) | |
download | emacs-84ef1ea8b524f8998fc8674b99cf8069e38dce4f.tar.gz |
Make it possible to view S/MIME verified emails
* lisp/gnus/mm-decode.el (mm-possibly-verify-or-decrypt): When
dissecting the result, we need a header (bug#18393).
* lisp/gnus/mm-view.el (mm-view-pkcs7-verify): Insert the verified
string.
* lisp/gnus/smime.el (smime-verify-region): Return the verified
string.
Diffstat (limited to 'lisp/gnus/mm-decode.el')
-rw-r--r-- | lisp/gnus/mm-decode.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 673098bcb68..42bf5f8081c 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1672,6 +1672,8 @@ If RECURSIVE, search recursively." (t (y-or-n-p (format "Decrypt (S/MIME) part? ")))) (mm-view-pkcs7 parts from)) + (goto-char (point-min)) + (insert "Content-type: text/plain\n\n") (setq parts (mm-dissect-buffer t))))) ((equal subtype "signed") (unless (and (setq protocol @@ -1739,6 +1741,7 @@ If RECURSIVE, search recursively." (mm-set-handle-multipart-parameter mm-security-handle 'gnus-details (format "Unknown encrypt protocol (%s)" protocol))))))) + ;; Check the results (which are now in `parts'). (let ((info (get-text-property 0 'gnus-info (car mm-security-handle)))) (if (or (not info) (equal info "") |