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