From 23e66ecbfb3180424f7fb1e0ac82f8ca9f671160 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 29 Jul 2003 11:43:47 +0000 Subject: [PATCH] * wl-action.el (wl-summary-set-mark): Cause an error when no message. * elmo.el (elmo-folder-length): Don't require msgdb. --- elmo/ChangeLog | 4 ++++ elmo/elmo.el | 4 +++- wl/ChangeLog | 4 ++++ wl/wl-action.el | 4 ++++ 4 files changed, 15 insertions(+), 1 deletion(-) 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 + + * elmo.el (elmo-folder-length): Don't require msgdb. + 2003-07-28 Yuuichi Teranishi * 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 + + * wl-action.el (wl-summary-set-mark): Cause an error when no message. + 2003-07-29 Hiroya Murata * 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 -- 1.7.10.4