[Mew-dist 11263] delete/refile error

[Masahiko Joichi]

城市です。
＃すみません。こちらでも相談させて下さい。

職場の同僚がUNIX WSからPCへmewの環境を移行したいと言うので
PC上で使えるようにセットアップしてたんですが、mew自体は起動
できてメールの内容も見れるんですけど、deleteやrefileのマー
キングをして、いざ"x"で実行しようとすると、エラーが出て実行
できません。

環境は、WinNT4.0、Meadow1.10、im-133、mew1.95b3です。
im-130+mew1.94にしても同じなので、他に原因がある様な気がしな
くもないですが、エラー時のBacktraceを採取してみましたので、
これでどこを直せばいいのかもし判りましたら、ご教示下さい。
よろしくお願いします。
-----
城市　昌彦(joichi masahiko)
Email:joichi at example.com
      zelkova at example.com (home)
-------------- next part --------------
Signaling: (wrong-type-argument stringp nil)
  file-exists-p(nil)
  (if (file-exists-p absdir) (if (file-directory-p absdir) (progn ... t) (message "%s is a file" folder) nil) (if (null create-it) (if ... ... ...)) (if (not create-it) nil (mew-make-directory absdir) (setq append-it ...) (if ... ...) t))
  (let ((absdir ...) (folders-file ...) (create-it force-to-create) append-it) (if (file-exists-p absdir) (if ... ... ... nil) (if ... ...) (if ... nil ... ... ... t)))
  (if (not (stringp folder)) nil (let (... ... ... append-it) (if ... ... ... ...)))
  mew-folder-check("inbox" force-to-create)
  (while folders (mew-folder-check (car folders) (quote force-to-create)) (setq folders (cdr folders)))
  (if (null folders) nil (setq folders (mew-addrstr-parse-value-list2 folders)) (while folders (mew-folder-check ... ...) (setq folders ...)))
  (let ((folders ...)) (if (null folders) nil (setq folders ...) (while folders ... ...)))
  (if (and unknown (not ...)) (message (substitute-command-keys "To send this message, edit Config: then type '\\<mew-draft-mode-map>\\[mew-draft-send-letter]'")) (if (and mew-use-auto-alias mew-addrbook-append-domain-p) (mapcar ... ...)) (let (...) (if ... nil ... ...)) (if preserve (setq keep "--preserve=on") (setq keep "--preserve=off") (mew-overlay-delete-buffer) (kill-buffer ...) (if ... ...)) (set-buffer (generate-new-buffer mew-buffer-watch)) (setq mew-watch-buffer-process (mew-im-start-process mew-prog-imput "Send" "-draftfolder" mew-draft-folder "-draftmessage" msg keep "-watch" "-verbose")) (mew-set-process-cs mew-watch-buffer-process mew-cs-autoconv mew-cs-mime-trans) (set-process-sentinel mew-watch-buffer-process (quote mew-watch-sentinel)) (message "Sending a message in background") (or preserve (mew-delete-directory-recursively attachdir)))
  (let ((attachdir ...) (msg ...) (process-connection-type mew-connection-type1) keep config unknown) (run-hooks (quote mew-real-send-hook)) (set-buffer-modified-p t) (mew-frwlet mew-cs-dummy mew-cs-mime-trans (save-buffer)) (setq config (mew-header-get-value mew-config:)) (and config (setq config ...)) (while config (if ... ...) (setq config ...)) (if (and unknown ...) (message ...) (if ... ...) (let ... ...) (if preserve ... ... ... ... ...) (set-buffer ...) (setq mew-watch-buffer-process ...) (mew-set-process-cs mew-watch-buffer-process mew-cs-autoconv mew-cs-mime-trans) (set-process-sentinel mew-watch-buffer-process ...) (message "Sending a message in background") (or preserve ...)))
  mew-draft-real-send-letter(nil)
  (if (or (not mew-ask-send) (y-or-n-p ...)) (mew-draft-real-send-letter preserve) (mew-draft-undo))
  (progn (mew-draft-make-message) (if (or ... ...) (mew-draft-real-send-letter preserve) (mew-draft-undo)))
  (condition-case nil (progn (mew-draft-make-message) (if ... ... ...)) (quit (mew-draft-undo)))
  (if (mew-header-p) (condition-case nil (progn ... ...) (quit ...)) (mew-draft-real-send-letter preserve))
  mew-draft-send-letter(nil)
* call-interactively(mew-draft-send-letter)