[Emacs-diffs] master 825fd4d: Fix regression in mm-possibly-verify-or-decrypt by previous patch

[Lars Ingebrigtsen]

branch: master
commit 825fd4d34165e5edc718a9df93838a410d25ea81
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/gnus/mm-decode.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index b6e2a68..f386f62 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")))))))