* 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 (file)
--- 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 (file)
--- a/NEWS.ja
+++ b/NEWS.ja
@@ -52,6 +52,15 @@ Wanderlust NEWS (\e$BF|K\8lHG\e(B) -- User-visible changes in Wanderlust.
    warning \e$B$NI=<($rM^@)$9$k$K$O!"JQ?t\e(B elmo-obsolete-variable-show-warnings \e$B$r\e(B
    nil \e$B$K$7$F$/$@$5$$!#\e(B
 
+** xxx-dir \e$B$H$$$&L>A0$NJQ?t$O\e(B xxx-directory \e$B$H$$$&L>A0$KJQ99$5$l$^$7$?!#\e(B
+   \e$BNc$($P!"\e(Bwl-icon-dir \e$B$O\e(B wl-icon-directory \e$B$KJQ99$5$l$F$$$^$9!#\e(B
+   Emacs21 \e$B$G\e(B logo \e$BI=<($J$I$N@_Dj$7$F$$$kJ}$OFC$KCm0U$7$F$/$@$5$$!#\e(B
+
+** elmo-cache-dirname \e$B$rGQ;_$7$F\e(B elmo-cache-directory \e$B$r?7@_$7$^$7$?!#\e(B
+   NFS \e$B4D6-$J$I$G\e(B ~/.elmo/cache \e$B$r%7%s%\%j%C%/%j%s%/$GHt$P$7$F$$$?\e(B
+   \e$BJ}$O!"\e(Belmo-cache-directory \e$B$r@_Dj$9$k$3$H$K$h$C$F%-%c%C%7%e$@$1\e(B
+   \e$B$rA4$/JL$N%G%#%l%/%H%j$K$G$-$^$9!#\e(B
+
 * 2.4.1 \e$B$+$i\e(B 2.6.0 \e$B$X$NJQ99E@\e(B
 
 ** FLIM 1.13.x \e$B$O%5%]!<%H$5$l$J$/$J$j$^$7$?!#\e(B

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ced44b2..1065154 100644 (file)
--- 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 (file)
--- 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."