From: ueno <ueno>
Date: Fri, 8 Sep 2000 04:42:05 +0000 (+0000)
Subject: (wl-plugged-init): Refer `wl-plug-state-indicator-on' indirectly.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=59337b6cd9fd0fb396ca4e3cdbc1af047524a166;p=elisp%2Fwanderlust.git

(wl-plugged-init): Refer `wl-plug-state-indicator-on' indirectly.
(wl-toggle-plugged): Ditto.
(wl-plugged-toggle): Ditto.
(wl-plugged-toggle-all): Ditto.
---

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  <ueno@unixuser.org>
 
+	* 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 ()