diff options
| author | Lars Ingebrigtsen | 2019-09-26 19:51:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-09-26 19:51:23 +0200 |
| commit | c4e0ccd151a29f87bd674a5987f731a0da491692 (patch) | |
| tree | f4d193b5d9d964268a9290eb6c950575ef767ba8 | |
| parent | 9d002e5049e3c28450d80bc0c98b820e4abfcfb7 (diff) | |
| download | emacs-c4e0ccd151a29f87bd674a5987f731a0da491692.tar.gz emacs-c4e0ccd151a29f87bd674a5987f731a0da491692.zip | |
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.
| -rw-r--r-- | lisp/gnus/mm-decode.el | 1 |
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." | |||
| 1745 | (let ((info (get-text-property 0 'gnus-info (car mm-security-handle)))) | 1745 | (let ((info (get-text-property 0 'gnus-info (car mm-security-handle)))) |
| 1746 | (if (or (not info) | 1746 | (if (or (not info) |
| 1747 | (equal info "") | 1747 | (equal info "") |
| 1748 | (equal subtype "encrypted") | ||
| 1748 | (member "OK" (split-string info "\n"))) | 1749 | (member "OK" (split-string info "\n"))) |
| 1749 | parts | 1750 | parts |
| 1750 | ;; We had an error during decryption. Report what it is. | 1751 | ;; We had an error during decryption. Report what it is. |