Suggested mml2015 feature

["Bjørn Mork" <bmork@dod.no>]

[-- Attachment #1: Type: text/plain, Size: 369 bytes --]

I really like the automatic signature verification, but would like to
see who supposedly signed a part without having to push a button and
see all the gory output from gpg. E.g. by extracting the "from" part
and using this as the button text instead of "OK". 

Note that I am completely lisp illiterate and that this is incomplete,
but just to illustrate what I mean:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: mml2015.diff --]
[-- Type: text/x-patch, Size: 1342 bytes --]

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")))
 

[-- Attachment #3: Type: text/plain, Size: 9 bytes --]




Bjørn