[Mew-dist 11784] Re: mew-1.95b12.tar.gz

[Masahiko Joichi]

城市です。お世話になります。

[Mew-dist 11782] Re: mew-1.95b12.tar.gz において
   Kazu Yamamoto (山本和彦) <kazu at example.com>さんは…

>> "error in process filter:Wrong type argument:char-or-string-p,nil"
>> 
>> と言うエラーが出ます。送信自体はできている模様。
> (setq debug-on-error t) して、トレースを送って下さい。
> うーん、どの変数が nil になっているんだろう。

トレースデータを添付致します。

-----
城市　昌彦(joichi masahiko)
Email:joichi at example.com
      zelkova at example.com (home)
-------------- next part --------------
Signaling: (wrong-type-argument char-or-string-p nil)
  insert(nil)
  (save-excursion (set-buffer (get-buffer-create mew-buffer-smtplog)) (mew-erase-buffer) (insert date) (insert " id=" msgid) (insert " recipients=") (insert (mapconcat ... recipients ",")) (insert " status=") (if err (insert "(" err ")") (insert "sent")) (insert "\n") (write-region (point-min) (point-max) (expand-file-name mew-smtp-log-file mew-mail-path) (quote append)))
  (let ((date mew-draft-date) (msgid mew-draft-msgid) (recipients mew-draft-recipients)) (save-excursion (set-buffer ...) (mew-erase-buffer) (insert date) (insert " id=" msgid) (insert " recipients=") (insert ...) (insert " status=") (if err ... ...) (insert "\n") (write-region ... ... ... ...)))
  mew-smtp-log()
  (let* ((orig ...) (back ...) info ibck) (rename-file orig back t) (if (not ...) nil (setq info ...) (setq ibck ...) (rename-file info ibck t)) (while mew-draft-fcc (copy-file back ... t) (setq mew-draft-fcc ...)) (mew-smtp-log) (set-process-buffer pro nil) (kill-buffer (process-buffer pro)) (mew-smtp-send-next-message))
  mew-smtp-filter-content(#<process smtp:enya>)
  funcall(mew-smtp-filter-content #<process smtp:enya>)
  (and func (funcall func pro))
  (let (func) (setq mew-smtp-string nil) (setq func (intern-soft ...)) (and func (funcall func pro)))
  (cond ((not ...) nil) ((not ...) (mew-smtp-recover pro string)) (t (let ... ... ... ...)))
  (if (null pbuf) nil (set-buffer pbuf) (mew-smtp-debug (upcase mew-smtp-status) string) (setq mew-smtp-string (concat mew-smtp-string string)) (cond (... nil) (... ...) (t ...)))
  (progn (setq pbuf (process-buffer pro)) (if (null pbuf) nil (set-buffer pbuf) (mew-smtp-debug ... string) (setq mew-smtp-string ...) (cond ... ... ...)))
  (unwind-protect (progn (setq pbuf ...) (if ... nil ... ... ... ...)) (set-buffer buf))
  (let ((buf ...) pbuf) (unwind-protect (progn ... ...) (set-buffer buf)))
  mew-smtp-filter(#<process smtp:enya> "250 UAA02538 Message accepted for delivery\n")