[Mew-Win32 02163] delete/refile etc.

[Masahiko Joichi]

城市です。

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

環境は、WinNT4.0、Meadow1.10、im-133、mew1.95b3です。
エラー時の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)