Error when entering private key password

Error when entering private key password

[Adam Sjøgren]

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