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

[Kazu Yamamoto ( 山本和彦 )]

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

> 失敗するときは、C-cC-mとかで一旦+queueに入れてから、"i"で+queue内を
> フラッシュするか、+queueに移ってからC-cC-cした時です。

失礼しました。まっさらの b12 に以下のパッチを当て下さい。直ると思いま
す。

--かず
-------------- next part --------------
? LOG
? LOGLESS
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 12:18:39
***************
*** 289,294 ****
--- 289,296 ----
        (cons "Recipients:" mew-draft-recipients)
        (cons "Bcc:" mew-draft-bcc)
        (cons "Fcc:" mew-draft-fcc)
+       (cons "Message-ID:" mew-draft-msgid)
+       (cons "Date:" mew-draft-date)
        (cons "Error:" err)))
      (kill-buffer (current-buffer))
      (message "%s has been queued to %s (%s)"
***************
*** 310,315 ****
--- 312,319 ----
        (setq mew-draft-recipients (cdr (assoc "Recipients:" syntax)))
        (setq mew-draft-bcc (cdr (assoc "Bcc:" syntax)))
        (setq mew-draft-fcc (cdr (assoc "Fcc:" syntax)))
+       (setq mew-draft-msgid (cdr (assoc "Message-ID:" syntax)))
+       (setq mew-draft-date (cdr (assoc "Date:" syntax)))
        t)))
  
  (defun mew-smtp-get-next (msgs)
***************
*** 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)
--- 374,387 ----
      (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=" 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)