Re: 23.0.60; EasyPG and OpenPGP smartcard: process epg not running

[Daiki Ueno <ueno@unixuser.org>]

>>>>> In <87hcfi4zkw.fsf@gismo.pca.it> 
>>>>>	Luca Capello <luca@pca.it> wrote:
> BTW, AFAIK there's no mailing list for EasyPG, thus I reported the bug
> here.  In case I'm wrong, could you point me to the correct direction?

There is a bug tracker: http://sourceforge.jp/projects/epg/tracker/
But I think here is also the right place.

> > This looks like that GnuPG got some data (not a passphrase) as the
> > passphrase, before prompting you.  Can you work around this by:
> >
> > (setq epg-gpg-minimum-version "100")

> This solves the situation for `epa-sign-region'.

Then, it seems a GnuPG issue.  I'll look into the detail.

> However, there was another problem, which I erroneously thought it was
> due to the same error (my fault).  If I try to sign mail on Gnus with
> EasyPG, I got another error.  It seems the problem is in the function
> `mml2015-epg-passphrase-callback` (lisp/gnus/mml2015.el:1004).

I've just applied the following fix to the Gnus CVS.  It will appear
after the next CVS synch.

Index: mml2015.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mml2015.el,v
retrieving revision 7.52
retrieving revision 7.53
diff -c -r7.52 -r7.53
*** mml2015.el	2 Mar 2008 17:43:01 -0000	7.52
--- mml2015.el	10 Mar 2008 08:59:56 -0000	7.53
***************
*** 999,1005 ****
  (defun mml2015-epg-passphrase-callback (context key-id ignore)
    (if (eq key-id 'SYM)
        (epg-passphrase-callback-function context key-id nil)
!     (let* (entry
  	   (passphrase
  	    (password-read
  	     (if (eq key-id 'PIN)
--- 999,1009 ----
  (defun mml2015-epg-passphrase-callback (context key-id ignore)
    (if (eq key-id 'SYM)
        (epg-passphrase-callback-function context key-id nil)
!     (let* ((password-cache-key-id
! 	    (if (eq key-id 'PIN)
! 		"PIN"
! 	       key-id))
! 	   entry
  	   (passphrase
  	    (password-read
  	     (if (eq key-id 'PIN)
***************
*** 1007,1020 ****
  	       (if (setq entry (assoc key-id epg-user-id-alist))
  		   (format "Passphrase for %s %s: " key-id (cdr entry))
  		 (format "Passphrase for %s: " key-id)))
! 	     (if (eq key-id 'PIN)
! 		 "PIN"
! 	       key-id))))
        (when passphrase
  	(let ((password-cache-expiry mml2015-passphrase-cache-expiry))
! 	  (password-cache-add key-id passphrase))
  	(setq mml2015-epg-secret-key-id-list
! 	      (cons key-id mml2015-epg-secret-key-id-list))
  	(copy-sequence passphrase)))))
  
  (defun mml2015-epg-find-usable-key (keys usage)
--- 1011,1022 ----
  	       (if (setq entry (assoc key-id epg-user-id-alist))
  		   (format "Passphrase for %s %s: " key-id (cdr entry))
  		 (format "Passphrase for %s: " key-id)))
! 	     password-cache-key-id)))
        (when passphrase
  	(let ((password-cache-expiry mml2015-passphrase-cache-expiry))
! 	  (password-cache-add password-cache-key-id passphrase))
  	(setq mml2015-epg-secret-key-id-list
! 	      (cons password-cache-key-id mml2015-epg-secret-key-id-list))
  	(copy-sequence passphrase)))))
  
  (defun mml2015-epg-find-usable-key (keys usage)

Regards,
-- 
Daiki Ueno