From: teranisi <teranisi>
Date: Tue, 11 Dec 2001 08:51:10 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-init-hook): New hook.
X-Git-Tag: wl-2_8-root~39
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bae1edfe1a7c17698de12d3e6ce2544a51f9324a;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-init-hook): New hook.
(wl-folder-init): Run `wl-folder-init-hook'.

* NEWS.ja: Added description about xxx-directory, elmo-cache-dirname.
---

diff --git a/ChangeLog b/ChangeLog
index ca8bde4..d3c55f7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* NEWS.ja: Added description about xxx-directory, elmo-cache-dirname.
+
 2001-12-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* WL-MK (config-wl-package-subr): Don't set `wl-icon-dir'.
diff --git a/NEWS.ja b/NEWS.ja
index 62a73c6..5af2012 100644
--- a/NEWS.ja
+++ b/NEWS.ja
@@ -52,6 +52,15 @@ Wanderlust NEWS (日本語版) -- User-visible changes in Wanderlust.
    warning の表示を抑制するには、変数 elmo-obsolete-variable-show-warnings を
    nil にしてください。
 
+** xxx-dir という名前の変数は xxx-directory という名前に変更されました。
+   例えば、wl-icon-dir は wl-icon-directory に変更されています。
+   Emacs21 で logo 表示などの設定している方は特に注意してください。
+
+** elmo-cache-dirname を廃止して elmo-cache-directory を新設しました。
+   NFS 環境などで ~/.elmo/cache をシンボリックリンクで飛ばしていた
+   方は、elmo-cache-directory を設定することによってキャッシュだけ
+   を全く別のディレクトリにできます。
+
 * 2.4.1 から 2.6.0 への変更点
 
 ** FLIM 1.13.x はサポートされなくなりました。
diff --git a/wl/ChangeLog b/wl/ChangeLog
index ced44b2..1065154 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-folder.el (wl-folder-init-hook): New hook.
+	(wl-folder-init): Run `wl-folder-init-hook'.
+
 2001-12-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* wl-demo.el (wl-demo-insert-image): Fixed the face name for xbm.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 5743244..c2e374c 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -46,6 +46,11 @@
   (require 'wl)
   (require 'elmo-nntp))
 
+(defcustom wl-folder-init-hook nil
+  "A hook called after folder initialization is finished."
+  :type 'hook
+  :group 'wl)
+
 (defvar wl-folder-buffer-name "Folder")
 (defvar wl-folder-entity nil)		; desktop entity.
 (defvar wl-folder-group-alist nil)	; opened or closed
@@ -1996,7 +2001,8 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
   (interactive)
   (if wl-use-acap
       (wl-acap-init)
-    (funcall wl-folder-init-function)))
+    (funcall wl-folder-init-function))
+  (run-hooks 'wl-folder-init-hook))
 
 (defun wl-local-folder-init ()
   "Initialize local folder."