[mew-dist 24017] mew-summary-refile signals

[Tak Ota]

ある特定のメッセージをリファイルしようとして Summary Buffer で `o' を押
したところ以下のエラーに遭遇しました。

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  string-match("^\\$" nil)
  mew-folder-popp(nil)
  (cond ((mew-folder-popp proto) (mew-pop-folder-alist)) ((mew-folder-imapp proto) (mew-imap-folder-alist case)) ((mew-folder-nntpp proto) (mew-nntp-folder-alist case)) (t (mew-local-folder-alist)))
  mew-proto-folder-alist(nil nil)
  (let* ((newsgroups ...) (proto mew-inherit-refile-proto) (case mew-inherit-refile-case) (alist ...) newsgroup ent ret) (while newsgroups (setq newsgroup ...) (setq newsgroups ...) (setq ent ...) (mew-addq ret ...)) (nreverse ret))
  mew-refile-guess-by-newsgroups()
  funcall(mew-refile-guess-by-newsgroups)
  (setq ret (funcall (car funcs)))
  (if (string-match "ctrl" (symbol-name ...)) (when (setq ret ...) (setq stop t) (or show-all ...)) (setq ret (funcall ...)))
  (while funcs (if (string-match "ctrl" ...) (when ... ... ...) (setq ret ...)) (unless (listp ret) (setq ret ...)) (setq info (nconc info ...)) (unless stop (while ret ... ...)) (setq funcs (cdr funcs)))
  (catch (quote last) (while funcs (if ... ... ...) (unless ... ...) (setq info ...) (unless stop ...) (setq funcs ...)))
  (let ((funcs mew-refile-guess-control) ret guess info stop) (catch (quote last) (while funcs ... ... ... ... ...)) (setq guess (nreverse guess)) (if (not mew-refile-ctrl-multi) (setq guess ...)) (cons guess info))
  mew-refile-guess(nil)
  (setq learn-info (mew-refile-guess auto))
  (save-excursion (set-buffer buf) (mew-sinfo-set-case case) (mew-sinfo-set-proto proto) (setq learn-info (mew-refile-guess auto)))
  (let ((proto ...) (case ...) learn-info folders ret cands singlep lst-lst lst fld) (save-excursion (set-buffer buf) (mew-sinfo-set-case case) (mew-sinfo-set-proto proto) (setq learn-info ...)) (if auto (setq folders ...) (cond ... ... ...) (setq cands ...) (when exfld ... ...) (setq cands ...) (unless cands ...) (setq folders ...)) (setq lst-lst (mapcar ... folders)) (while lst-lst (setq lst ...) (setq lst-lst ...) (while lst ... ... ...)) (cons (nreverse ret) (cdr learn-info)))
  mew-refile-decide-folders(#<buffer  *mew cache*0> "41720" nil nil nil)
  (setq learn-info (mew-refile-decide-folders buf msg cur-folders auto exfld))
  (if exp-flds (setq folders exp-flds) (if (or auto ...) (save-excursion ... ... ... ... ... ... ...) (mew-summary-display nil) (setq buf ...)) (when (and ... ...) (save-excursion ... ...)) (setq learn-info (mew-refile-decide-folders buf msg cur-folders auto exfld)) (setq folders (car learn-info)))
  (cond ((and mark ...) (or no-msg ...) nil) (invalidp (or no-msg ...) nil) (t (if exp-flds ... ... ... ... ...) (while folders ... ... ...) (setq folders ...) (setq folders ...) (unless no-mark ...) (if delbuf ...) (setq mew-refile-last-folder folders) (set-buffer-modified-p nil)))
  (let ((pos ...) msg folder folders cur-folders mark buf learn-info fld tmp delbuf invalidp folders-str mew-inherit-refile-proto mew-inherit-refile-case case-folder) (mew-summary-goto-message) (when (mew-sumsyn-match mew-regex-sumsyn-short) (setq fld ...) (setq msg ...) (setq invalidp ...)) (setq case-folder (mew-folder-case fld)) (setq mew-inherit-refile-case (car case-folder)) (setq mew-inherit-refile-proto (cdr case-folder)) (setq mark (mew-summary-get-mark)) (cond (... ... nil) (invalidp ... nil) (t ... ... ... ... ... ... ... ...)) (goto-char pos) folders)
  mew-summary-refile-body()
  (if report (mew-summary-refile-report) (mew-summary-refile-body))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((or ... ...) (message "This command cannot be used in %s" ...)) (t (if report ... ...)))
  (mew-summary-local-or-imap (if report (mew-summary-refile-report) (mew-summary-refile-body)))
  (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 (if report ... ...)))
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (mew-summary-not-in-draft ...)))
  (mew-summary-msg-or-part (mew-summary-not-in-draft (mew-summary-local-or-imap ...)))
  mew-summary-refile(nil)
* call-interactively(mew-summary-refile)