Re: pgg doesn't seem to like me

[Simon Josefsson <jas@extundo.com>]

Andreas Fuchs <asf@void.at> writes:

> On 2002-10-06, Simon Josefsson <jas@extundo.com> wrote:
>> Uhm, are there any other outstanding PGG problems?  I may have missed
>> them.  Or PGP/MIME and S/MIME problems in general?
>
> Reading a mail encrypted for another key-id than the default one
> doesn't DTRT: pgg tries to decrypt the mail for the default key-id,
> which fails and then just displays the message to me. 
>
> Is it possible to divine the key-id to which a message was encrypted
> From the mail? I have seen pgg ask me if I want to download public
> keys, could it also ask for the right key-id's password?

I think it does this now.

2002-10-10  Simon Josefsson  <jas@extundo.com>

	* pgg.el (pgg-decrypt-region): Bind pgg-default-user-id to
	key-identifier in packet.  Is this a good idea?

Index: pgg.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/pgg.el,v
retrieving revision 6.4
retrieving revision 6.5
diff -u -p -r6.4 -r6.5
--- pgg.el	2002/10/09 23:45:01	6.4
+++ pgg.el	2002/10/10 01:22:42	6.5
@@ -172,10 +172,20 @@ If optional argument SIGN is non-nil, do
 (defun pgg-decrypt-region (start end)
   "Decrypt the current region between START and END."
   (interactive "r")
-  (let ((status
-	 (pgg-save-coding-system start end
-	   (pgg-invoke "decrypt-region" (or pgg-scheme pgg-default-scheme)
-		       (point-min) (point-max)))))
+  (let* ((buf (current-buffer))
+	 (packet (cdr (assq 1 (with-temp-buffer
+				(insert-buffer buf)
+				(pgg-decode-armor-region
+				 (point-min) (point-max))))))
+	 (key (cdr (assq 'key-identifier packet)))
+	 (pgg-default-user-id 
+	  (if key
+	      (concat "0x" (pgg-truncate-key-identifier key))
+	    pgg-default-user-id))
+	 (status
+	  (pgg-save-coding-system start end
+	    (pgg-invoke "decrypt-region" (or pgg-scheme pgg-default-scheme)
+			(point-min) (point-max)))))
     (when (interactive-p)
       (pgg-display-output-buffer start end status))
     status))