From fda32c1bfee5b97e5813e88e2d0ff157fa372b6b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 31 Oct 2000 02:08:40 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 9 +++++++++ wl/wl-e21.el | 2 -- wl/wl-folder.el | 3 --- wl/wl-vars.el | 9 ++++----- wl/wl-xmas.el | 2 -- wl/wl.el | 3 +++ 6 files changed, 16 insertions(+), 12 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4