2000-11-13 Simon Josefsson <sj@extundo.com>

       * mm-uu.el (mm-uu-pgp-signed-extract): Explain why clear
       verification doesn't work.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 549ca5a..758acc4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-13  Simon Josefsson  <sj@extundo.com>
+
+       * mm-uu.el (mm-uu-pgp-signed-extract): Explain why clear
+       verification doesn't work.
+
 2000-11-12 23:36:45  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-msg.el (gnus-inews-mark-gcc-as-read): New variable.

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index f72eebc..b5b6b60 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -262,11 +262,16 @@ To disable dissecting shar codes, for instance, add
     (mm-set-handle-multipart-parameter 
      mm-security-handle 'protocol "application/pgp-signature")
     (with-current-buffer buf
-      (when (mm-uu-pgp-signed-test)
-       (mml2015-clean-buffer)
-       (let ((coding-system-for-write (or gnus-newsgroup-charset
-                                          'iso-8859-1)))
-         (funcall (mml2015-clear-verify-function))))
+      (if (mm-uu-pgp-signed-test)
+         (progn
+           (mml2015-clean-buffer)
+           (let ((coding-system-for-write (or gnus-newsgroup-charset
+                                              'iso-8859-1)))
+             (funcall (mml2015-clear-verify-function))))
+       (when (and mml2015-use (null (mml2015-clear-verify-function)))
+         (mm-set-handle-multipart-parameter
+          mm-security-handle 'gnus-details 
+          (format "Clear verification not supported by `%s'.\n" mml2015-use))))
       (goto-char (point-min))
       (if (search-forward "\n\n" nil t)
          (delete-region (point-min) (point)))