[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 メーリングリストの案内