[Mew-dist 11688] mobile

[Kazu Yamamoto ( 山本和彦 )]

Mew b9 は、一旦開いた SMTP コネクションを大事にずっと使い続けますが、
これはモバイル環境では嬉しくないかもしれません。

NAT の裏に住んでいると、メールを吐き出したら、SMTP コネクションを切っ
てしまった方がいいような気もします。

というわけで、mew-smtp-mobile とうオプションを作ってみました。t にして
おくと、使用後に SMTP コネクションを切断します。

--かず
-------------- next part --------------
Index: mew-smtp.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-smtp.el,v
retrieving revision 1.19
diff -c -r1.19 mew-smtp.el
*** mew-smtp.el	1999/12/07 06:39:51	1.19
--- mew-smtp.el	1999/12/07 09:13:30
***************
*** 11,16 ****
--- 11,17 ----
  (require 'mew)
  
  (defvar mew-smtp-server "localhost")
+ (defvar mew-smtp-mobile nil)
  (defvar mew-smtp-timeout-time 4)
  (defvar mew-smtp-process nil)
  (defvar mew-smtp-messages nil)
***************
*** 198,203 ****
--- 199,209 ----
  		(set-process-filter mew-smtp-process 'mew-smtp-filter-mail-from)
  		(mew-smtp-command-mail-from mew-smtp-process)))
  	  (setq mew-smtp-lock nil)
+ 	  (if mew-smtp-mobile
+ 	      (progn
+ 		(mew-smtp-close)
+ 		(delete-process mew-smtp-process)
+ 		(setq mew-smtp-process nil)))
  	  (message "Sending in background ... done"))))))
  
  (defun mew-smtp-filter-nop (pro string)