[Mew-Win32 02534] Re:Mew1.95b29+IM14 0でimputを使用するには。

[Shuichi KITAGUCHI ( 北口修一 )]

北口です。

kit> # mew-offline.el (と Mew も?)の改造も募集中...

1.95bxx で mew-offline したい方、以下のパッチを当ててお試しください。
実際に dial-up するとこまでは確認してませんが、たぶん大丈夫のはずです。
それと、バージョンチェックはやっていないので 1.94.x では使えません。

これで問題がなければ mew-dist に投げてみよかな、と思います。
ただ、もっと綺麗な方法はないですかねぇ...


--
Shuichi Kitaguchi <kit at example.com>
-------------- next part --------------
--- mew-offline.el-0.13	Thu Nov 04 21:15:28 1999
+++ mew-offline.el	Sun Apr 09 23:42:08 2000
@@ -2,7 +2,7 @@
 
 ;; Author:  Shuichi Kitaguchi <kit at example.com>
 ;; Created: Jun 25, 1998
-;; Revised: Jul 22, 1999
+;; Time-stamp: <2000/04/09 23:42:07 kit>
 
 ;;
 ;; Usage:
@@ -52,7 +52,7 @@
 
 ;; setup
 (setq mew-auto-get         nil)
-(setq mew-auto-flush-queue t)
+;(setq mew-auto-flush-queue nil)
 
 ;; hooks
 (add-hook 'mew-summary-mode-hook
@@ -63,7 +63,7 @@
 		'mew-offline-summary-flush-queue)
 	      )))
 
-(add-hook 'mew-summary-inc-sentinel-hook 'mew-offline-hangup)
+(add-hook 'mew-smtp-clean-up-hook 'mew-offline-hangup)
 
 ;; dialup
 (defun mew-offline-dialup ()
@@ -117,7 +117,7 @@
 
 ;;; Copyright Notice:
 
-;; Copyright (C) 1998, 1999 Shuichi Kitaguchi
+;; Copyright (C) 1998, 1999, 2000 Shuichi Kitaguchi <kit at example.com>
 ;; All rights reserved.
 
 ;; Redistribution and use in source and binary forms, with or without
-------------- next part --------------
Index: mew-smtp.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-smtp.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-smtp.el
--- mew-smtp.el	2000/04/09 13:18:28	1.1.1.1
+++ mew-smtp.el	2000/04/09 14:26:14
@@ -115,6 +115,12 @@
 ;;; Commands
 ;;;
 
+(defun mew-smtp-increment-connections ()
+  (setq mew-smtp-connections (+ mew-smtp-connections 1)))
+(defun mew-smtp-decrement-connections ()
+  (if (> mew-smtp-connections 0)
+      (setq mew-smtp-connections (- mew-smtp-connections 1))))
+
 (defun mew-smtp-send-message (&optional unlock)
   (let* ((server mew-draft-smtp-server)
 	 (port mew-draft-smtp-port)
@@ -215,7 +221,8 @@
 	  (setq pro (open-network-stream pnm nil server port))
 	  (process-kill-without-query pro)
 	  (mew-set-process-cs pro mew-cs-text-for-net mew-cs-text-for-net)
-	  (message "Connecting to %s with %s port ... done" server port))
+	  (message "Connecting to %s with %s port ... done" server port)
+	  (mew-smtp-increment-connections))
       (quit
        (setq errmsg (format "can't make a %s connection to %s" port server))
        (mew-smtp-set-error pnm errmsg)
@@ -259,7 +266,9 @@
     (mew-smtp-set-error pnm nil)
     (mew-smtp-set-lock pnm nil)
     (if (processp sshpro) (delete-process sshpro))
-    (mew-smtp-set-ssh-process pnm nil)))
+    (mew-smtp-set-ssh-process pnm nil)
+    (mew-smtp-decrement-connections)
+    (run-hooks 'mew-smtp-clean-up-hook)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
Index: mew-vars.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-vars.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mew-vars.el
--- mew-vars.el	2000/04/09 13:18:28	1.1.1.1
+++ mew-vars.el	2000/04/09 14:24:07
@@ -286,6 +286,9 @@
 (defvar mew-smtp-server "localhost")
 (defvar mew-smtp-port "smtp")
 
+(defvar mew-smtp-connections   0)
+(defvar mew-smtp-clean-up-hook nil)
+
 (defvar mew-smtp-ssh-server nil)
 
 (defvar mew-smtp-keep-connection nil