From: kaoru <kaoru>
Date: Fri, 28 Sep 2001 02:31:31 +0000 (+0000)
Subject: * wl.el (wl-toggle-plugged): Use `not' instead of `null' for
X-Git-Tag: wl-2_7_5~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fd623ebbacece4a6ca42d29b0276b517a0905632;p=elisp%2Fwanderlust.git

* wl.el (wl-toggle-plugged): Use `not' instead of `null' for
boolean value.
* wl-draft.el (wl-draft-do-fcc): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 56683de..ef3256b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl.el (wl-toggle-plugged): Use `not' instead of `null' for
+	boolean value.
+	* wl-draft.el (wl-draft-do-fcc): Ditto.
+
 2001-09-26  Kenichi OKADA  <okada@opaopa.org>
 
 	* wl-vars.el (wl-fcc-force-as-read): New variable.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 53aa7be..659ead0 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1275,7 +1275,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 	  (if (elmo-folder-append-buffer
 	       (wl-folder-get-elmo-folder
 		(eword-decode-string (car fcc-list)))
-	       (null wl-fcc-force-as-read))
+	       (not wl-fcc-force-as-read))
 	      (wl-draft-write-sendlog 'ok 'fcc nil (car fcc-list) id)
 	    (wl-draft-write-sendlog 'failed 'fcc nil (car fcc-list) id))
 	  (setq fcc-list (cdr fcc-list)))))
diff --git a/wl/wl.el b/wl/wl.el
index b78eceb..92e34c2 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -94,7 +94,7 @@
       (setq wl-plugged t))
      ((eq arg 'off)
       (setq wl-plugged nil))
-     (t (setq wl-plugged (null wl-plugged))))
+     (t (setq wl-plugged (not wl-plugged))))
     (elmo-set-plugged wl-plugged))
   (setq elmo-plugged wl-plugged
 	wl-modeline-plug-status wl-plugged)