[mew-dist 27260] mew-summary-auto-refile が異常終了

[SAKIHAMA Tatsuhide ( 崎濱 龍秀 )]

はじめまして、崎濱と申します。

+inbox で M-x mew-summary-auto-refile を実行すると minibuffer に
Wrong type argument: number-or-marker-p, nil と表示され終了してしまいま
す。終了後に x を押しても1通も refile されません。

Backtrace も取って眺めてみましたが、よくわかりませんでした。お助けくだ
さい。:)


数ヶ月前から同じ状況が続いていますので環境に依存しないかもしれませんが、
今の環境は、FreeBSD-current、Emacs 22、Mew 5.1.50 です。FreeBSD、Emacs
は数日前、Mew は8月2日に cvs update したのを利用しています。


*Backtrace* には次のように表示されています。

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  >=(nil 2)
  (or mew-refile-auto-refile-skip-any-mark (>= (mew-markdb-level mark) (mew-markdb-level mew-mark-refile)))
  (and mark (or mew-refile-auto-refile-skip-any-mark (>= ... ...)))
  (or (and mark (or mew-refile-auto-refile-skip-any-mark ...)) (mew-summary-refile-body nil t (quote no-msg)))
  (if mew-mark-review-only (and mark (char-equal mark mew-mark-review) (mew-summary-refile-body nil t ...)) (or (and mark ...) (mew-summary-refile-body nil t ...)))
  (while (re-search-forward mew-regex-sumsyn-valid nil t) (setq mark (mew-summary-get-mark)) (if mew-mark-review-only (and mark ... ...) (or ... ...)) (if (= ... 0) (message "Auto refiling...%s%%" ...)) (setq line (1+ line)) (forward-line))
  (save-window-excursion (goto-char (point-min)) (while (re-search-forward mew-regex-sumsyn-valid nil t) (setq mark ...) (if mew-mark-review-only ... ...) (if ... ...) (setq line ...) (forward-line)))
  (if (and mew-refile-auto-refile-confirm (not ...)) (message "Not refiled") (message "Auto refiling...") (save-window-excursion (goto-char ...) (while ... ... ... ... ... ...)) (message "Auto refiling...done"))
  (let ((mew-use-highlight-x-face nil) (lines ...) (line 1) (mark nil) msg) (cond (mew-mark-review-only ...) (mew-refile-auto-refile-skip-any-mark ...) (t ...)) (if (and mew-refile-auto-refile-confirm ...) (message "Not refiled") (message "Auto refiling...") (save-window-excursion ... ...) (message "Auto refiling...done")))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((or ... ...) (message "This command cannot be used in %s" ...)) (t (mew-decode-syntax-delete) (let ... ... ...)))
  (mew-summary-local-or-imap (mew-decode-syntax-delete) (let (... ... ... ... msg) (cond ... ... ...) (if ... ... ... ... ...)))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((mew-summary-draft-p) (message "This command cannot be used in %s" ...)) (t (mew-summary-local-or-imap ... ...)))
  (mew-summary-not-in-draft (mew-summary-local-or-imap (mew-decode-syntax-delete) (let ... ... ...)))
  (cond ((not ...) (message "This command cannot be used in this folder")) (t (mew-summary-not-in-draft ...)))
  (mew-pickable (mew-summary-not-in-draft (mew-summary-local-or-imap ... ...)))
  mew-summary-auto-refile(nil)
  call-interactively(mew-summary-auto-refile)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)


---
Dovie'andi se tovya sagain

SAKIHAMA Tatsuhide
Okinawa FreeBSD Users Group http://www.ofug.net