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

[Daiki Ueno]

>>>>> In <address@hidden> 
>>>>>   Luca Capello <address@hidden> 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