[
Date Prev][
Date Next][
Thread Prev][
Thread Next][
Date Index][
Thread Index]
Re: 23.0.60; EasyPG and OpenPGP smartcard: process epg not running
From:
Luca Capello
Subject:
Re: 23.0.60; EasyPG and OpenPGP smartcard: process epg not running
Date:
2008年3月07日 11:07:27 +0100
User-agent:
Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux)
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 2008年3月07日 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)
=====