From: teranisi <teranisi>
Date: Tue, 29 Jul 2003 11:43:47 +0000 (+0000)
Subject: * wl-action.el (wl-summary-set-mark): Cause an error when no message.
X-Git-Tag: wl-2_11_5~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=23e66ecbfb3180424f7fb1e0ac82f8ca9f671160;p=elisp%2Fwanderlust.git

* wl-action.el (wl-summary-set-mark): Cause an error when no message.

* elmo.el (elmo-folder-length): Don't require msgdb.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index c29cf71..5410bda 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2003-07-29  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo.el (elmo-folder-length): Don't require msgdb.
+
 2003-07-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo.el (elmo-message-mark): Cause an error when empty folder.
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 5149ba4..5af1bf0 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1572,7 +1572,9 @@ If update process is interrupted, return nil.")
   "Return number of messages in the FOLDER.")
 
 (luna-define-method elmo-folder-length ((folder elmo-folder))
-  (elmo-msgdb-length (elmo-folder-msgdb folder)))
+  (if (elmo-folder-msgdb-internal folder)
+      (elmo-msgdb-length (elmo-folder-msgdb folder))
+    0))
 
 (defun elmo-msgdb-load (folder &optional silent)
   (unless silent
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 74cf9cf..c018993 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-07-29  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-action.el (wl-summary-set-mark): Cause an error when no message.
+
 2003-07-29  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-expire.el (wl-folder-expire-current-entity): Specify folder type.
diff --git a/wl/wl-action.el b/wl/wl-action.el
index 165b4e3..7697064 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -64,6 +64,10 @@ Return number if put mark succeed"
 	 (current (wl-summary-message-number))
 	 (action (assoc set-mark wl-summary-mark-action-list))
 	 visible mark cur-mark)
+    (when (elmo-folder-length wl-summary-buffer-elmo-folder)
+      (error "Set mark failed"))
+    (unless current
+      (error "No message"))
     (prog1
 	(save-excursion
 	  ;; Put mark