[Mew-dist 12087] Re: mew-summary-send-message 失敗後の再送

[Kazu Yamamoto ( 山本和彦 )]

From: TAKAHASHI Masafumi <mta at example.com>
Subject: [Mew-dist 12064] mew-summary-send-message 失敗後の再送

> +queue に複数のメッセージがある状態で C-c C-c (mew-summary-send-message)
> が失敗 (*1) すると、もう一度 C-c C-c しても以下のメッセージが
> ミニバッファに表示され、メッセージが送信されません。

このパッチで直るといいのですが。

--かず
-------------- next part --------------
Index: mew-smtp.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-smtp.el,v
retrieving revision 1.43
diff -c -r1.43 mew-smtp.el
*** mew-smtp.el	2000/01/11 04:38:00	1.43
--- mew-smtp.el	2000/01/20 06:44:19
***************
*** 119,131 ****
  		(progn
  		  (setq lport (string-to-int (mew-match 1 name)))
  		  (setq mew-smtp-process (mew-smtp-open "localhost" lport))))))
! 	(if (null mew-smtp-process)
! 	    (mew-smtp-queue mew-smtp-error)
  	  (setq mew-smtp-status "greeting")
  	  (set-process-buffer mew-smtp-process (current-buffer))
  	  (set-process-sentinel mew-smtp-process 'mew-smtp-sentinel)
  	  (set-process-filter mew-smtp-process 'mew-smtp-filter)
! 	  (message "Sending in background ... "))))))
      ret))
  
  ;;;
--- 119,134 ----
  		(progn
  		  (setq lport (string-to-int (mew-match 1 name)))
  		  (setq mew-smtp-process (mew-smtp-open "localhost" lport))))))
! 	(cond
! 	 (mew-smtp-process
  	  (setq mew-smtp-status "greeting")
  	  (set-process-buffer mew-smtp-process (current-buffer))
  	  (set-process-sentinel mew-smtp-process 'mew-smtp-sentinel)
  	  (set-process-filter mew-smtp-process 'mew-smtp-filter)
! 	  (message "Sending in background ... "))
! 	 (t
! 	  (mew-smtp-queue mew-smtp-error)
! 	  (mew-smtp-clean-up)))))))
      ret))
  
  ;;;