From: asjo@koldfront.dk (Adam Sjøgren)
Subject: Error when entering private key password
Date: Tue, 05 Apr 2005 21:46:56 +0200 [thread overview]
Message-ID: <87y8bxknv3.fsf@koldfront.dk> (raw)
I just received a GPG-encrypted email. I don't receive many of those,
but I have set up Gnus to handle them, and previously it did.
But after I entered the password for my private key, I got an error:
Wrong type argument: natnump, (16979 30253 194257)
The strack trace (see below) looks like it is something to do with
storing the password, so I tried commenting out this line from my
.gnus:
(setq gpg-passphrase-timeout 36000) ; Ten hours
and that made the problem go away (no error, email decrypted).
I'm using no gnus, updated from cvs a couple of minutes ago, on XEmacs
(XEmacs 21.4 (patch 17) "Jumbo Shrimp" [Lucid] (i386-debian-linux,
Mule) of Tue Feb 8 2005 on penell).
Here is the strack trace:
== =
# bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
signal(wrong-type-argument (natnump (16979 30253 194257)))
# bind (value itimer)
gpg-timer-set-time((nil 0 nil ignore nil nil nil (0 0 0)) (16979 30253 194257))
(if (equal gpg-passphrase-timeout 0) nil (if (null gpg-passphrase-timer) (setq gpg-passphrase-timer ...)) (gpg-timer-set-time gpg-passphrase-timer (timer-relative-time ... gpg-passphrase-timeout)) (gpg-timer-set-function gpg-passphrase-timer (quote gpg-passphrase-forget)) (unless (and ... ...) (gpg-timer-activate gpg-passphrase-timer)) (setq gpg-passphrase passphrase))
(unless (equal gpg-passphrase-timeout 0) (if (null gpg-passphrase-timer) (setq gpg-passphrase-timer ...)) (gpg-timer-set-time gpg-passphrase-timer (timer-relative-time ... gpg-passphrase-timeout)) (gpg-timer-set-function gpg-passphrase-timer (quote gpg-passphrase-forget)) (unless (and ... ...) (gpg-timer-activate gpg-passphrase-timer)) (setq gpg-passphrase passphrase))
# bind (passphrase)
gpg-passphrase-store("MYSECRET")
# bind (pp)
(let ((pp ...)) (gpg-passphrase-store pp))
(if gpg-passphrase (gpg-passphrase-store gpg-passphrase) (let (...) (gpg-passphrase-store pp)))
gpg-passphrase-read()
(if passphrase passphrase (gpg-passphrase-read))
(gpg-call-process (gpg-exec-path gpg-command-decrypt) (gpg-build-arg-list (cdr gpg-command-decrypt) nil) ciphertext plaintext result (if passphrase passphrase (gpg-passphrase-read)))
# bind (passphrase result plaintext ciphertext)
gpg-decrypt(#<buffer " *mm-uu*<2>"> #<buffer " *temp*"> #<buffer "*MML2015 Result*"> nil)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (temp-buffer cipher plain result)
mml2015-gpg-decrypt-1()
# bind (result)
mml2015-gpg-clear-decrypt()
# (unwind-protect ...)
# bind (buf ctl handles)
mm-uu-pgp-encrypted-extract-1(nil ("multipart/encrypted"))
# (unwind-protect ...)
# bind (mm-security-handle)
mm-uu-pgp-encrypted-extract()
# (unwind-protect ...)
# bind (case-fold-search mm-uu-text-plain-type text-start start-point end-point file-name result entry func mime-type noheader)
mm-uu-dissect()
# bind (handles inhibit-read-only handle name type b e display)
# (unwind-protect ...)
# bind (ssw52106)
# (unwind-protect ...)
# bind (ihandles)
gnus-display-mime()
# bind (gnus-article-buffer buffer-read-only inhibit-read-only)
gnus-article-prepare-display()
# (unwind-protect ...)
# bind (result group gnus-tmp-internal-hook summary-buffer gnus-article)
# (unwind-protect ...)
# bind (header all-headers article)
gnus-article-prepare(849 nil)
# bind (all-header article)
gnus-summary-display-article(849)
# bind (article article-window endp stop circular lines)
gnus-summary-next-page(nil)
# bind (command-debug-status)
call-interactively(gnus-summary-next-page)
# (condition-case ... . error)
# (catch top-level ...)
== =
Any ideas?
Best regards,
Adam
--
"Even if you don't have all the things you want, be Adam Sjøgren
grateful for the things you don't have that you asjo@koldfront.dk
don't want."
reply other threads:[~2005-04-05 19:46 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87y8bxknv3.fsf@koldfront.dk \
--to=asjo@koldfront.dk \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).