[mew-dist 18715] Re:

[Kazu Yamamoto ( 山本和彦 )]

From: Wataru Saito <wataru at example.com>
Subject: [mew-dist 18707] 

> e-mail が連続して送れるのは、2.0 pre4 迄です。

2.0 pre4 と 2.0 との差で関係がありそうなところは、以下の部分のみです。

このパッチを patch -R で当てると直ったりするでしょうか？

--かず

Index: mew/mew-smtp.el
diff -c mew/mew-smtp.el:1.6 mew/mew-smtp.el:1.7
*** mew/mew-smtp.el:1.6	Sun Jul  8 14:00:38 2001
--- mew/mew-smtp.el	Tue Jul 24 14:30:21 2001
***************
*** 255,266 ****
  (defun mew-smtp-close (pnm)
    (interactive)
    (let ((process (get-process pnm)))
!     (when (and (processp process)
! 	       (memq (process-status process) '(open)))
!       (set-process-buffer process nil)
!       (set-process-filter process nil)
!       (process-send-string process (format "QUIT%s" mew-cs-eol))))
!   (mew-smtp-tear-down pnm))
  
  (defun mew-smtp-tear-down (pnm)
    (let ((process (get-process pnm))
--- 255,266 ----
  (defun mew-smtp-close (pnm)
    (interactive)
    (let ((process (get-process pnm)))
!     (if (and (processp process) (memq (process-status process) '(open)))
! 	(progn
! 	  (set-process-buffer process nil)
! 	  (set-process-filter process nil)
! 	  (process-send-string process (format "QUIT%s" mew-cs-eol)))
!       (mew-smtp-tear-down pnm))))
  
  (defun mew-smtp-tear-down (pnm)
    (let ((process (get-process pnm))
***************
*** 310,316 ****
  (defun mew-smtp-sentinel (process event)
    (let ((pnm (process-name process)))
      (mew-smtp-debug "SMTP SENTINEL" event)
-     (message "The connection to %s has been closed." pnm)
      (mew-smtp-tear-down pnm)
      (run-hooks 'mew-smtp-sentinel-hook)))
  
--- 310,315 ----