Index: mml2015.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mml2015.el,v
retrieving revision 6.29
diff -u -r6.29 mml2015.el
--- mml2015.el	2001/01/21 06:00:25	6.29
+++ mml2015.el	2001/03/15 10:58:12
@@ -334,6 +334,11 @@
       (mm-set-handle-multipart-parameter
        mm-security-handle 'gnus-info "Failed"))))
 
+(defun mml2015-gpg-extract-from ()
+  (goto-char (point-min))
+  (re-search-forward "^gpg: Good signature from \"\\(.*\\)\"$")
+  (match-string 1))
+
 (defun mml2015-gpg-verify (handle ctl)
   (catch 'error
     (let (part message signature)
@@ -375,7 +380,9 @@
 	     mm-security-handle 'gnus-info "Failed")
 	    (throw 'error handle)))
 	(mm-set-handle-multipart-parameter
-	 mm-security-handle 'gnus-info "OK"))
+	 mm-security-handle 'gnus-info 
+	 (with-current-buffer mml2015-result-buffer 
+	   (mml2015-gpg-extract-from))))
       handle)))
 
 (defun mml2015-gpg-clear-verify ()
@@ -395,7 +402,9 @@
 	  mm-security-handle 'gnus-details "Quit.")
 	 nil))
       (mm-set-handle-multipart-parameter
-       mm-security-handle 'gnus-info "OK")
+       mm-security-handle 'gnus-info 
+       (with-current-buffer mml2015-result-buffer 
+	 (mml2015-gpg-extract-from)))
     (mm-set-handle-multipart-parameter
      mm-security-handle 'gnus-info "Failed")))