[mew-dist 24079] mew-pop-proxy-server

KOIE Hidetaka ( 鯉江英隆 ) hide at example.com
2003年 10月 15日 (水) 19:43:23 JST


POPプロキシ型のスパムフィルタをつかうために
mew-pop-server,mew-pop-portを書きかえてしまうと
UIDL管理が別になってしまうので
mew-pop-proxy-server,mew-pop-proxy-port
を追加して、コネクト先を指定できるようにするパッチです。
#popサーバがマルチホームの場合にも有効かと。

--
鯉江英隆 <hide at example.com>
-------------- next part --------------
Index: mew-config.el
===================================================================
RCS file: /cvsmew/mew/mew-config.el,v
retrieving revision 1.62
diff -u -F^( -r1.62 mew-config.el
--- mew-config.el	16 Jan 2003 11:03:29 -0000	1.62
+++ mew-config.el	15 Oct 2003 10:35:39 -0000
@@ -206,6 +206,12 @@ (defun mew-pop-ssl (&optional case)
 (defun mew-pop-ssl-port (&optional case)
   (mew-cfent-value case "pop-ssl-port" mew-pop-ssl-port))
 
+(defun mew-pop-proxy-server (&optional case)
+  (mew-cfent-value case "pop-proxy-server" mew-pop-proxy-server))
+
+(defun mew-pop-proxy-port (&optional case)
+  (mew-cfent-value case "pop-proxy-port" mew-pop-proxy-port))
+
 (defun mew-pop-user (&optional case)
   (mew-cfent-value case "pop-user" mew-pop-user))
 
Index: mew-pop.el
===================================================================
RCS file: /cvsmew/mew/mew-pop.el,v
retrieving revision 1.174
diff -u -F^( -r1.174 mew-pop.el
--- mew-pop.el	26 Aug 2003 08:42:43 -0000	1.174
+++ mew-pop.el	15 Oct 2003 10:35:39 -0000
@@ -608,6 +608,8 @@ (defun mew-pop-retrieve (case directive 
 	 (sshsrv (mew-pop-ssh-server case))
 	 (sslp (mew-pop-ssl case))
 	 (sslport (mew-pop-ssl-port case))
+         (proxysrv (mew-pop-proxy-server case))
+         (proxyport (mew-pop-proxy-port case))
 	 (pnm (mew-pop-info-name case))
 	 (buf (get-buffer-create (mew-pop-buffer-name pnm)))
 	 (no-msg (eq directive 'biff))
@@ -629,6 +631,8 @@ (defun mew-pop-retrieve (case directive 
 	  (setq lport (mew-ssl-pnm-to-lport sslname))
 	  (when lport
 	    (setq process (mew-pop-open pnm "localhost" lport no-msg)))))
+       (proxysrv
+	(setq process (mew-pop-open pnm proxysrv proxyport no-msg)))
        (t
 	(setq process (mew-pop-open pnm server port no-msg))))
       (if (null process)
Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.203
diff -u -F^( -r1.203 mew-vars.el
--- mew-vars.el	6 Oct 2003 06:35:51 -0000	1.203
+++ mew-vars.el	15 Oct 2003 10:35:39 -0000
@@ -627,6 +627,16 @@ (defcustom mew-pop-ssl-port "pop3s"
   :group 'mew-pop
   :type 'string)
 
+(defcustom mew-pop-proxy-server nil
+  "*If non-nil, POP connections are made over proxy."
+  :group 'mew-pop
+  :type 'boolean)
+
+(defcustom mew-pop-proxy-port "10110"
+  "*The port for POP proxy."
+  :group 'mew-pop
+  :type 'string)
+
 (defcustom mew-pop-user (user-login-name)
   "*The user name on your POP server."
   :group 'mew-pop
Index: mew-vars2.el
===================================================================
RCS file: /cvsmew/mew/mew-vars2.el,v
retrieving revision 1.109
diff -u -F^( -r1.109 mew-vars2.el
--- mew-vars2.el	6 Oct 2003 03:25:40 -0000	1.109
+++ mew-vars2.el	15 Oct 2003 10:35:39 -0000
@@ -986,6 +986,7 @@ (defcustom mew-config-alist nil
 \"smtp-user\", \"smtp-auth\", \"smtp-auth-list\", 
 \"pop-server\", \"pop-port\", \"pop-ssh-server\", 
 \"pop-ssl\", \"pop-ssl-port\", 
+\"pop-proxy-server\", \"pop-proxy-port\", 
 \"pop-user\", \"pop-auth\", 
 \"pop-size\", \"pop-body-lines\", \"pop-delete\", \"pop-folder\", 
 \"imap-server\", \"imap-port\", \"imap-ssh-server\", 


Mew-dist メーリングリストの案内