* mml2015.el (mml2015-pgg-decrypt): Set gnus details even when

decrypt failed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe44ba6..0417f88 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-10  Simon Josefsson  <jas@extundo.com>
+
+       * mml2015.el (mml2015-pgg-decrypt): Set gnus details even when
+       decrypt failed.
+
 2002-10-10  Ted Zlatanov <tzz@lifelogs.com>
         * spam.el: compilation fixes, spam-check-bbdb function is nil if no
         BBDB installed

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 885feb9..8e7402e 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -663,7 +663,10 @@ by you.")
                    (pgg-decrypt-region (point-min) (point-max))
                  (setq decrypt-status 
                        (with-current-buffer mml2015-result-buffer
-                         (buffer-string))))
+                         (buffer-string)))
+                 (mm-set-handle-multipart-parameter
+                  mm-security-handle 'gnus-details
+                  decrypt-status))
              (error
               (mm-set-handle-multipart-parameter
                mm-security-handle 'gnus-details (mml2015-format-error err))