From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 23 Sep 2019 19:55:27 +0000 (+0200)
Subject: Fix regression in mm-possibly-verify-or-decrypt by previous patch
X-Git-Tag: emacs-27.0.90~1460
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=825fd4d34165e5edc718a9df93838a410d25ea81;p=emacs.git

Fix regression in mm-possibly-verify-or-decrypt by previous patch

* lisp/gnus/mm-decode.el (mm-possibly-verify-or-decrypt): Be less
strict about what's considered a success.
---

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index b6e2a68d556..f386f62f7e8 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1741,16 +1741,19 @@ If RECURSIVE, search recursively."
 	     (format "Unknown encrypt protocol (%s)" protocol)))))))
     (let ((info (get-text-property 0 'gnus-info (car mm-security-handle))))
       (if (or (not info)
+	      (equal info "")
 	      (member "OK" (split-string info "\n")))
 	  parts
+	(debug mm-security-handle)
 	;; We had an error during decryption.  Report what it is.
 	(list
 	 (mm-make-handle
 	  (with-current-buffer (generate-new-buffer " *mm*")
 	    (insert "Error!  Result from decryption:\n\n"
 		    info "\n\n"
-		    (get-text-property 0 'gnus-details
-				       (car mm-security-handle)))
+		    (or (get-text-property 0 'gnus-details
+					   (car mm-security-handle))
+			""))
 	    (current-buffer))
 	  '("text/plain")))))))