From 59337b6cd9fd0fb396ca4e3cdbc1af047524a166 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 8 Sep 2000 04:42:05 +0000 Subject: [PATCH] (wl-plugged-init): Refer `wl-plug-state-indicator-on' indirectly. (wl-toggle-plugged): Ditto. (wl-plugged-toggle): Ditto. (wl-plugged-toggle-all): Ditto. --- wl/ChangeLog | 5 +++++ wl/wl.el | 16 ++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 590a49d..975af4c 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,10 @@ 2000-09-08 Daiki Ueno + * wl.el (wl-plugged-init): Refer `wl-plug-state-indicator-on' indirectly. + (wl-toggle-plugged): Ditto. + (wl-plugged-toggle): Ditto. + (wl-plugged-toggle-all): Ditto. + * wl-vars.el (wl-plug-state-indicator): Refer `wl-plug-state-indicator-on' indirectly. diff --git a/wl/wl.el b/wl/wl.el index 7015841..186a3b9 100644 --- a/wl/wl.el +++ b/wl/wl.el @@ -80,8 +80,8 @@ (setq elmo-plugged (setq wl-plugged (elmo-plugged-p))) (setq wl-plug-state-indicator (if wl-plugged - wl-plug-state-indicator-on - wl-plug-state-indicator-off)) + 'wl-plug-state-indicator-on + 'wl-plug-state-indicator-off)) (if wl-plugged (wl-toggle-plugged t 'flush)) (force-mode-line-update t)) @@ -110,7 +110,7 @@ (if wl-plugged (progn ;; flush queue!! - (setq wl-plug-state-indicator wl-plug-state-indicator-on) + (setq wl-plug-state-indicator 'wl-plug-state-indicator-on) (elmo-dop-queue-flush) (if (and wl-draft-enable-queuing wl-auto-flush-queue) @@ -124,7 +124,7 @@ (wl-summary-flush-pending-append-operations seen-list)) (elmo-msgdb-seen-save msgdb-dir seen-list))) (run-hooks 'wl-plugged-hook)) - (setq wl-plug-state-indicator wl-plug-state-indicator-off) + (setq wl-plug-state-indicator 'wl-plug-state-indicator-off) (run-hooks 'wl-unplugged-hook)) (force-mode-line-update t)) @@ -522,8 +522,8 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." (setq wl-plugged-switch (elmo-plugged-p)) (setq wl-plug-state-indicator (if wl-plugged-switch - wl-plug-state-indicator-on - wl-plug-state-indicator-off)) + 'wl-plug-state-indicator-on + 'wl-plug-state-indicator-off)) (force-mode-line-update t)))))) (setq wl-plugged-alist-modified t) (goto-char cur-point))) @@ -544,8 +544,8 @@ Entering Plugged mode calls the value of `wl-plugged-mode-hook'." ;; change wl-plug-state-indicator (setq wl-plug-state-indicator (if wl-plugged-switch - wl-plug-state-indicator-on - wl-plug-state-indicator-off)) + 'wl-plug-state-indicator-on + 'wl-plug-state-indicator-off)) (force-mode-line-update t))) (defun wl-plugged-exit () -- 1.7.10.4