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

[Kazu Yamamoto ( 山本和彦 )]

From: Masahiko Joichi <joichi at example.com>
Subject: [Mew-dist 11784] Re: mew-1.95b12.tar.gz

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

そうか、変数は評価すると結局 nil なので、どの変数か分からないですね。
以下のパッチを当てると、エラーはでなくなるはずです。

自分宛にメールを送り、~/Mail/Smtplog にどう記録されるか教えて下さい。

--かず
-------------- next part --------------
Index: mew-smtp.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-smtp.el,v
retrieving revision 1.29
diff -c -r1.29 mew-smtp.el
*** mew-smtp.el	1999/12/13 09:39:07	1.29
--- mew-smtp.el	1999/12/13 11:45:40
***************
*** 370,383 ****
      (save-excursion
        (set-buffer (get-buffer-create mew-buffer-smtplog))
        (mew-erase-buffer)
!       (insert date)
!       (insert " id=" msgid)
!       (insert " recipients=")
!       (insert (mapconcat (function identity) 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)
--- 370,383 ----
      (save-excursion
        (set-buffer (get-buffer-create mew-buffer-smtplog))
        (mew-erase-buffer)
!       (and date (insert date))
!       (and msgid (insert " id=" msgid))
!       (and recipients
! 	   (setq recipients (mapconcat (function identity) recipients ",")))
!       (and recipients (insert " recipients=%s" recipients))
        (if err
! 	  (insert " status=" "(" err ")")
! 	(insert " status=sent"))
        (insert "\n")
        (write-region (point-min) (point-max)
  		    (expand-file-name mew-smtp-log-file mew-mail-path)