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