* wl.el (wl-init): Added comment about `wl-init-hook'.

* wl-folder.el (wl-make-plugged-alist): Removed useless comment.
* wl-vars.el (wl-init-hook): Added docs.
(wl-make-plugged-hook): Removed useless docs.
* wl-e21.el (toplevel): Removed commented `wl-make-plugged-hook'.
* wl-xmas.el (toplevel): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 36ef745..7f97e9e 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2000-10-31  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+       * wl.el (wl-init): Added comment about `wl-init-hook'.
+       * wl-folder.el (wl-make-plugged-alist): Removed useless comment.
+       * wl-vars.el (wl-init-hook): Added docs.
+       (wl-make-plugged-hook): Removed useless docs.
+       * wl-e21.el (toplevel): Removed commented `wl-make-plugged-hook'.
+       * wl-xmas.el (toplevel): Ditto.
+
 2000-10-31  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-address.el (toplevel): Fixed multiple Author header format.

diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 70483af..8d2d335 100644 (file)
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -72,8 +72,6 @@
 
 (add-hook 'wl-init-hook 'wl-biff-init-icons)
 (add-hook 'wl-init-hook 'wl-plugged-init-icons)
-;; (add-hook 'wl-make-plugged-hook 'wl-biff-init-icons)
-;; (add-hook 'wl-make-plugged-hook 'wl-plugged-init-icons)
 
 (add-hook 'wl-summary-mode-hook 'wl-setup-summary)
 

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index cdc3dde..a056d76 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1952,9 +1952,6 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
                        wl-nntp-posting-server
                        elmo-default-nntp-port
                        nil nil "nntp" add))
-    ;; This hook may contain the functions `wl-plugged-init-icons' and
-    ;; `wl-biff-init-icons' for reasons of system internal to accord
-    ;; facilities for the Emacs variants.
     (run-hooks 'wl-make-plugged-hook)))
 
 (defvar wl-folder-init-func 'wl-local-folder-init)

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index ae901c9..55b18ba 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -433,7 +433,9 @@ system internal to accord facilities for the Emacs variants.")
 (defvar wl-summary-divide-thread-when-subject-changed nil
   "Divide thread when subject is changed.")
 (defvar wl-init-hook nil
-  "A hook called when initialization is finished.")
+  "A hook called when initialization is finished.  This hook may contain
+the functions `wl-plugged-init-icons' and `wl-biff-init-icons' for
+reasons of system internal to accord facilities for the Emacs variants.")
 (defvar wl-hook nil
   "A hook called when Wanderlust is invoked.")
 (defvar wl-reply-hook nil
@@ -499,10 +501,7 @@ system internal to accord facilities for the Emacs variants.")
 (defvar wl-score-mode-hook nil
   "A hook called when score mode is started.")
 (defvar wl-make-plugged-hook nil
-  "A hook called when make plugged alist.
-This hook may contain the functions `wl-plugged-init-icons' and
-`wl-biff-init-icons' for reasons of system internal to accord
-facilities for the Emacs variants.")
+  "A hook called when make plugged alist.")
 
 (defvar wl-plugged-exit-hook nil
   "A hook called when exit plugged mode.")

diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 6541812..a9caf18 100644 (file)
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -45,8 +45,6 @@
 
 (add-hook 'wl-init-hook 'wl-biff-init-icons)
 (add-hook 'wl-init-hook 'wl-plugged-init-icons)
-;; (add-hook 'wl-make-plugged-hook 'wl-biff-init-icons)
-;; (add-hook 'wl-make-plugged-hook 'wl-plugged-init-icons)
 
 (add-hook 'wl-summary-mode-hook 'wl-setup-summary)
 

diff --git a/wl/wl.el b/wl/wl.el
index c71652b..c087e6f 100644 (file)
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -691,6 +691,9 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
            (kill-buffer demo-buf))
        (if succeed
            (setq wl-init t))
+       ;; This hook may contain the functions `wl-plugged-init-icons' and
+       ;; `wl-biff-init-icons' for reasons of system internal to accord
+       ;; facilities for the Emacs variants.
        (run-hooks 'wl-init-hook)))))
 
 (defun wl-check-environment (no-check-folder)