* Suggested mml2015 feature
@ 2001-03-15 11:00 Bjørn Mork
2001-03-19 4:10 ` ShengHuo ZHU
0 siblings, 1 reply; 2+ messages in thread
From: Bjørn Mork @ 2001-03-15 11:00 UTC (permalink / raw)
[-- 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
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Suggested mml2015 feature
2001-03-15 11:00 Suggested mml2015 feature Bjørn Mork
@ 2001-03-19 4:10 ` ShengHuo ZHU
0 siblings, 0 replies; 2+ messages in thread
From: ShengHuo ZHU @ 2001-03-19 4:10 UTC (permalink / raw)
"Bjørn Mork" <bmork@dod.no> writes:
> 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:
Thanks for you patch. I've installed it.
ShengHuo
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2001-03-19 4:10 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-03-15 11:00 Suggested mml2015 feature Bjørn Mork
2001-03-19 4:10 ` ShengHuo ZHU
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).