From: okada <okada>
Date: Thu, 7 Feb 2002 05:29:15 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-pick): Fix for no match.
X-Git-Tag: wl-2_9_7~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=045ee8c50bd4d9e7300d89f23e5566dc84220135;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 99d3bca..d7da732 100644
--- 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
--- 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