[mew-dist 20797] mew-pop-folder

[KOIE Hidetaka ( 鯉江英隆 )]

popキャッシュディレクトリのデフォルトは
(defvar mew-pop-folder "+.pop")
となっていますが、複数POPサーバを相手にするときは
mew-config-alistに"pop-folder"を設定することになります。

こういう機械的に生成できるものは自動設定されるべきだと思ったので
デフォルトで "+.pop-user at example.com:port" となるような
パッチを考えてみました。
たしかこういうふうになっていた時期もあったと記憶しているのですが
どういう理由で現在の動作に変更になったのかはおぼえてません。

━━━━━━━━━━━━━━ここから━━━━━━━━━━━━━━
Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.117
diff -u -F^( -r1.117 mew-vars.el
--- mew-vars.el	2002/04/15 23:55:46	1.117
+++ mew-vars.el	2002/04/22 08:49:56
@@ -517,7 +517,10 @@ (defcustom mew-biff-function (function m
 ;;; POP
 ;;;
 
-(defvar mew-pop-folder "+.pop")
+(defvar mew-pop-folder
+  '(concat "+.pop-"(mew-pop-user case) "@" (mew-pop-server case)
+           (if (equal mew-pop-port (mew-pop-port case))
+                  "" ":" (mew-pop-port case))))
 
 (defcustom mew-pop-server "localhost"
   "*The POP server name. If you want to use a remote POP server,
Index: mew-config.el
===================================================================
RCS file: /cvsmew/mew/mew-config.el,v
retrieving revision 1.47
diff -u -F^( -r1.47 mew-config.el
--- mew-config.el	2002/04/14 12:06:13	1.47
+++ mew-config.el	2002/04/22 08:49:56
@@ -210,7 +210,10 @@ (defun mew-pop-delete (&optional case)
   (mew-cfent-value case "pop-delete" mew-pop-delete))
 
 (defun mew-pop-folder (&optional case)
-  (mew-cfent-value case "pop-folder" mew-pop-folder))
+  (let ((fld (mew-cfent-value case "pop-folder" mew-pop-folder)))
+    (if (consp fld)
+        (eval fld)
+      fld)))
 
 (defun mew-pop-header-only (&optional case)
   (mew-cfent-value case "pop-header-only" mew-pop-header-only))
━━━━━━━━━━━━━━ここまで━━━━━━━━━━━━━━

Note: Windows系でコロンの扱いがどうなるかについては考えてません。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>