summaryrefslogtreecommitdiff
path: root/lisp/gnus/mm-decode.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-09-26 19:51:23 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-09-26 19:51:23 +0200
commitc4e0ccd151a29f87bd674a5987f731a0da491692 (patch)
treef4d193b5d9d964268a9290eb6c950575ef767ba8 /lisp/gnus/mm-decode.el
parent9d002e5049e3c28450d80bc0c98b820e4abfcfb7 (diff)
downloademacs-c4e0ccd151a29f87bd674a5987f731a0da491692.tar.gz
mm-possibly-verify-or-decrypt should only issue errors when decrypting
* lisp/gnus/mm-decode.el (mm-possibly-verify-or-decrypt): Only do the warning about failed decryption when we're handing encrypted parts, not when doing verification.
Diffstat (limited to 'lisp/gnus/mm-decode.el')
-rw-r--r--lisp/gnus/mm-decode.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 42bf5f8081c..d9c14120c2f 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1745,6 +1745,7 @@ If RECURSIVE, search recursively."
(let ((info (get-text-property 0 'gnus-info (car mm-security-handle))))
(if (or (not info)
(equal info "")
+ (equal subtype "encrypted")
(member "OK" (split-string info "\n")))
parts
;; We had an error during decryption. Report what it is.