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

[Luca Capello]

Hi Daiki!

Still please Cc: me, I'm not subscribed to the list ;-)

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?

On Fri, 07 Mar 2008 04:03:25 +0100, Daiki Ueno wrote:
> 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'.

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).

Thx, bye,
Gismo / Luca

=====
Debugger entered--Lisp error: (wrong-type-argument stringp PIN)
  signal(wrong-type-argument (stringp PIN))
  (condition-case error (setq signature (epg-sign-string context ... t) 
mml2015-epg-secret-key-id-list nil)
   (error (while mml2015-epg-secret-key-id-list ... ...) (signal ... ...)))
  (let* ((inhibit-redisplay t) (context ...) (boundary ...) signer-key (signers 
...) signature micalg)
   (epg-context-set-armor context t) (epg-context-set-textmode context t) 
(epg-context-set-signers context signers)
   (if mml2015-cache-passphrase (epg-context-set-passphrase-callback context 
...)) (condition-case error
   (setq signature ... mml2015-epg-secret-key-id-list nil) (error ... ...)) (if 
(epg-context-result-for context ...)
   (setq micalg ...)) (goto-char (point-min)) (insert (format "Content-Type: 
multipart/signed; boundary=\"%s\";\n" boundary))
   (if micalg (insert ...)) (insert "protocol=\"application/pgp-signature\"\n") 
(insert (format "\n--%s\n" boundary))
   (goto-char (point-max)) (insert (format "\n--%s\n" boundary)) (insert 
"Content-Type: application/pgp-signature\n\n")
   (insert signature) (goto-char (point-max)) (insert (format "--%s--\n" 
boundary)) (goto-char (point-max)))
  mml2015-epg-sign((part (sign . "pgpmime") (tag-location . 269) (contents . 
"test\n")))
  funcall(mml2015-epg-sign (part (sign . "pgpmime") (tag-location . 269) 
(contents . "test\n")))
  (if func (funcall func cont) (error "Cannot find sign function"))
  (let ((func ...)) (if func (funcall func cont) (error "Cannot find sign 
function")))
  mml2015-sign((part (sign . "pgpmime") (tag-location . 269) (contents . 
"test\n")))
  mml-pgpmime-sign-buffer((part (sign . "pgpmime") (tag-location . 269) 
(contents . "test\n")))
  mml-generate-mime-1((part (sign . "pgpmime") (tag-location . 269) (contents . 
"test\n")))
  mml-generate-mime()
  message-encode-message-body()
  message-send-mail(nil)
  message-send-via-mail(nil)
  message-send(nil)
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit nil nil)
=====