[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: some issues with message expiration



Hi,

>>>>> On Thu, 15 Jul 2010 22:32:54 +0200, David Maus ("DM") wrote:

  DM> [1  <text/plain; US-ASCII (7bit)>]
  DM> Dirk-Jan C. Binnema wrote:
  >> Hi all,

  >> I'm playing around a bit the message expiration in Wanderlust; in theory, it's
  >> a quite useful feature, as it enables me to automatically delete/refile old
  >> messages. However, it does not seem to work very well with me, and often
  >> requires me to get into a situation where I need to restart emacs(!).

  DM> Could you provide a backtrace of the errors?

  DM> M-x toggle-debug-on-error RET

  DM> hit the bugs and remove possible confidential information?

First use case is where I try to expire my 'system' folder (which receives all
kinds of useless messages from various programs); in my wl-expire-alist:

     ("^\\.system$"               (date 3) remove)

First it updates the message
db, then I get the 'Wrong type argument: listp, nil'. However, I do /not/ get
any backtrace. When I then try to enter the folder, or do anything (even when
trying M-x toggle-debug-on-error), I either get that same error again. And I
cannot move the cursor anymore. Emacs menus are still accessible though, it's
not a general hang. But just about whatever I do gives me 'Wrong type
argument: listp, nil'.

Interestingly, pressing the 'close' button on the window (eh, frame), does not
close the window, but restores cursor movement (C-g doesn't). But I still
cannot enter folders; entering the 'system' folder gives me a 'Format
specifier doesn't match argument type', any other folder results in  'Wrong
type argument: sequencep, nil'. But no backtraces :(

Then, my junk-folder:
      ("^\\.junk$"                 (date 1)  trash)

If there's nothing to expire, it complete without any problem; however, if
there *is*, I get:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  elmo-location-map-setup([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".trash" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir strash" nil nil nil t nil nil x-ctext nil nil nil "/home/foo/Maildir/trash" nil nil nil] ((nil)))
  elmo-location-map-load([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".trash" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir strash" nil nil nil t nil nil x-ctext nil nil nil "/home/foo/Maildir/trash" nil nil nil] "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir strash")
  #[(folder) "\301\302!\"\210\303!\205 \304\305!\"\207" [folder elmo-location-map-load elmo-folder-msgdb-path elmo-folder-plugged-p elmo-location-map-update elmo-map-folder-list-message-locations] 4]([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".trash" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir strash" nil nil nil t nil nil x-ctext nil nil nil "/home/foo/Maildir/trash" nil nil nil])
  apply(#[(folder) "\301\302!\"\210\303!\205 \304\305!\"\207" [folder elmo-location-map-load elmo-folder-msgdb-path elmo-folder-plugged-p elmo-location-map-update elmo-map-folder-list-message-locations] 4] [elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".trash" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir strash" nil nil nil t nil nil x-ctext nil nil nil "/home/foo/Maildir/trash" nil nil nil])
  luna-call-next-method()
  luna-apply-generic([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".trash" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir strash" nil nil nil t nil nil x-ctext nil nil nil "/home/foo/Maildir/trash" nil nil nil] elmo-folder-open-internal [elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".trash" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir strash" nil nil nil t nil nil x-ctext nil nil nil "/home/foo/Maildir/trash" nil nil nil])
  elmo-folder-open-internal([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".trash" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir strash" nil nil nil t nil nil x-ctext nil nil nil "/home/foo/Maildir/trash" nil nil nil])
  elmo-folder-move-messages([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".junk" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" [modb-standard [0 0 0 0 0 0 0] "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" nil nil x-ctext (494 495 496 497 498 499) [0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740415051000\.2E5616B2B68CEEC0@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740416105608\.5A7927A1BE9E9006@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 ...] [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] (... ...) nil] nil nil t nil nil x-ctext nil nil 499 "/home/foo/Maildir/junk" ("1279254005.3224_1.cthulhu" "1279226109.8019_2.cthulhu" "1279216516.3144_1.cthulhu") nil nil] (494 495) [elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".trash" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir strash" nil nil nil t nil nil x-ctext nil nil nil "/home/foo/Maildir/
 trash" nil nil nil] nil nil)
  wl-expire-refile([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".junk" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" [modb-standard [0 0 0 0 0 0 0] "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" nil nil x-ctext (494 495 496 497 498 499) [0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740415051000\.2E5616B2B68CEEC0@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740416105608\.5A7927A1BE9E9006@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 ...] [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] (... ...) nil] nil nil t nil nil x-ctext nil nil 499 "/home/foo/Maildir/junk" ("1279254005.3224_1.cthulhu" "1279226109.8019_2.cthulhu" "1279216516.3144_1.cthulhu") nil nil] (494 495) ".trash")
  wl-expire-folder([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".junk" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" [modb-standard [0 0 0 0 0 0 0] "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" nil nil x-ctext (494 495 496 497 498 499) [0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740415051000\.2E5616B2B68CEEC0@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740416105608\.5A7927A1BE9E9006@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 ...] [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] (... ...) nil] nil nil t nil nil x-ctext nil nil 499 "/home/foo/Maildir/junk" ("1279254005.3224_1.cthulhu" "1279226109.8019_2.cthulhu" "1279216516.3144_1.cthulhu") nil nil] nil (date 1) trash)
  apply(wl-expire-folder [elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".junk" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" [modb-standard [0 0 0 0 0 0 0] "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" nil nil x-ctext (494 495 496 497 498 499) [0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740415051000\.2E5616B2B68CEEC0@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740416105608\.5A7927A1BE9E9006@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 ...] [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] (... ...) nil] nil nil t nil nil x-ctext nil nil 499 "/home/foo/Maildir/junk" ("1279254005.3224_1.cthulhu" "1279226109.8019_2.cthulhu" "1279216516.3144_1.cthulhu") nil nil] nil ((date 1) trash))
  wl-summary-expire([elmo-maildir-folder [0 0 0 0 0 0 0] maildir ".junk" "." "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" [modb-standard [0 0 0 0 0 0 0] "/home/foo/.emacs.d/data/wl/elmo-foo/maildir/ shome sfoo sMaildir sjunk" nil nil x-ctext (494 495 496 497 498 499) [0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740415051000\.2E5616B2B68CEEC0@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 <19740416105608\.5A7927A1BE9E9006@MTX2\.mbn1\.net> 0 0 0 0 0 0 0 ...] [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...] (... ...) nil] nil nil t nil nil x-ctext nil nil 499 "/home/foo/Maildir/junk" ("1279254005.3224_1.cthulhu" "1279226109.8019_2.cthulhu" "1279216516.3144_1.cthulhu") nil nil] no-summary)
  wl-folder-expire-entity(#(".junk" 0 5 (wl-folder-entity-id 26 wl-folder-is-group nil)))
  wl-folder-expire-current-entity()
  call-interactively(wl-folder-expire-current-entity nil nil)
--8<---------------cut here---------------end--------------->8---

So, not sure what to do... hope it's clear for someone!

Best wishes,
Dirk.

-- 
Dirk-Jan C. Binnema                  Helsinki, Finland
e:djcb@djcbsoftware.nl           w:www.djcbsoftware.nl
pgp: D09C E664 897D 7D39 5047 A178 E96A C7A1 017D DA3C