[mew-dist 18193] Re: mew-smtp-sentinel-hook

[Kazu Yamamoto ( 山本和彦 )]

From: KIRIAKE Masanori <seiken at example.com>
Subject: [mew-dist 18192] mew-smtp-sentinel-hook

> どうもmew-smtp-sentinel-hookが呼ばれていないような気がするのですが、なに
> か辺でしょうか。

これで直りますか？

--かず

Index: mew-smtp.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-smtp.el,v
retrieving revision 1.6
diff -c -r1.6 mew-smtp.el
*** mew-smtp.el	2001/07/08 05:00:38	1.6
--- mew-smtp.el	2001/07/24 05:05:04
***************
*** 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 ----