* wl-summary.el (wl-summary-pick): Fix for no match.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 99d3bca..d7da732 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-07  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-summary.el (wl-summary-pick): Fix for no match.
+
 2002-02-01  Kenichi OKADA  <okada@opaopa.org>
 
        * wl-draft.el (wl-draft-save):

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 53cb147..2606e9c 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3708,9 +3708,9 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
                (wl-summary-unmark))
              (setq mlist (cdr mlist)))
            (setq wl-summary-buffer-target-mark-list nil)))
-      (if result
-         (setq num (wl-summary-target-mark-msgs result)))
-      (if (> num 0)
+      (if (and result
+              (setq num (wl-summary-target-mark-msgs result))
+              (> num 0))
          (if (= num (length result))
              (message "%d message(s) are picked." num)
            (message "%d(%d) message(s) are picked." num