[Mew-dist 10929] [mew1.95b2] send message

[Masahiko Joichi]

城市＠NEC甲府です。

先日、mew1.95b2にアップデートしてみたんですが、
C-c C-cの後の以下のメッセージで"y"とキー入力した所エラーが発生して
送ることができませんでした。

　The header was modified. Send this message? (y or n)

環境は
　WinNT4.0(Build1381/SP4)
　ActivePerl Build 513
　Meadow 1.07b1
です。

また、この現象が発生した際の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)