From: yamaoka <yamaoka>
Date: Tue, 31 Oct 2000 02:08:40 +0000 (+0000)
Subject: * wl.el (wl-init): Added comment about `wl-init-hook'.
X-Git-Tag: wl-2_4-root~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fda32c1bfee5b97e5813e88e2d0ff157fa372b6b;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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)