From: Sascha Wilde <wilde@sha-bang.de>
Cc: emacs-devel@gnu.org
Subject: Re: Patch: Show signature state in encrypted messages using pgg
Date: Fri, 10 Nov 2006 23:31:43 +0100 [thread overview]
Message-ID: <m2mz6zlyr4.fsf@kenny.sha-bang.de> (raw)
In-Reply-To: <m2r6wblytd.fsf@kenny.sha-bang.de> (Sascha Wilde's message of "Fri\, 10 Nov 2006 23\:30\:22 +0100")
[-- Attachment #1: Type: text/plain, Size: 304 bytes --]
Sascha Wilde <wilde@sha-bang.de> wrote:
> The attached patch extends the message a bit, so that it shows the
> signature verification result in addition. With it a encrypted but
> unsigned mail shows:
> [[[PGP Encrypted Part:OK, Signer: From unknown user]]
Oops, forgot the actual patch, here it is:
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 1731 bytes --]
diff -r 69703d5e058e -r 9970d5c0861b lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog Wed Nov 08 10:14:19 2006 +0100
+++ b/lisp/gnus/ChangeLog Fri Nov 10 23:14:13 2006 +0100
@@ -1,3 +1,8 @@ 2006-11-03 Juanma Barranquero <lekktu@
+2006-11-10 Sascha Wilde <wilde@sha-bang.de>
+
+ * mml2015.el (mml2015-pgg-decrypt, mml2015-pgg-clear-decrypt):
+ Show info on signature for decrypted parts.
+
2006-11-03 Juanma Barranquero <lekktu@gmail.com>
* gnus-diary.el (gnus-diary-delay-format-function):
diff -r 69703d5e058e -r 9970d5c0861b lisp/gnus/mml2015.el
--- a/lisp/gnus/mml2015.el Wed Nov 08 10:14:19 2006 +0100
+++ b/lisp/gnus/mml2015.el Fri Nov 10 23:14:13 2006 +0100
@@ -682,8 +682,10 @@
(replace-match "\n" t t))
(setq handles (mm-dissect-buffer t))
(mm-destroy-parts handle)
- (mm-set-handle-multipart-parameter
- mm-security-handle 'gnus-info "OK")
+ (let ((sig (with-current-buffer pgg-errors-buffer
+ (mml2015-gpg-extract-signature-details))))
+ (mm-set-handle-multipart-parameter
+ mm-security-handle 'gnus-info (concat "OK, Signer: " sig)))
(mm-set-handle-multipart-parameter
mm-security-handle 'gnus-details
(concat decrypt-status
@@ -713,8 +715,10 @@
(goto-char (point-min))
(while (search-forward "\r\n" nil t)
(replace-match "\n" t t))
- (mm-set-handle-multipart-parameter
- mm-security-handle 'gnus-info "OK"))
+ (let ((sig (with-current-buffer pgg-errors-buffer
+ (mml2015-gpg-extract-signature-details))))
+ (mm-set-handle-multipart-parameter
+ mm-security-handle 'gnus-info (concat "OK, Signer: " sig))))
(mm-set-handle-multipart-parameter
mm-security-handle 'gnus-info "Failed"))))
[-- Attachment #3: Type: text/plain, Size: 68 bytes --]
--
Sascha Wilde
"Gimme about 10 seconds to think for a minute..."
[-- Attachment #4: Type: text/plain, Size: 142 bytes --]
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
next prev parent reply other threads:[~2006-11-10 22:31 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-11-10 22:30 Sascha Wilde
2006-11-10 22:31 ` Sascha Wilde [this message]
2006-11-11 2:19 ` Daiki Ueno
2006-11-11 21:48 ` Sascha Wilde
2006-11-12 0:28 ` Daiki Ueno
2006-11-12 11:05 ` Sascha Wilde
2006-11-12 11:09 ` David Kastrup
2006-11-12 11:47 ` Sascha Wilde
2006-11-12 12:31 ` Daiki Ueno
2006-11-12 14:22 ` Sascha Wilde
2006-11-12 14:42 ` Daiki Ueno
2006-11-12 15:01 ` Sascha Wilde
2006-11-12 13:26 ` Reiner Steib
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2mz6zlyr4.fsf@kenny.sha-bang.de \
--to=wilde@sha-bang.de \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).