From 38c10de6326982a041aec494493c940fb268f8e5 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 15 Jun 2003 16:24:05 +0000 Subject: [PATCH] * elmo.el (elmo-folder-rename-internal): New method to cause error. --- elmo/ChangeLog | 2 ++ elmo/elmo.el | 5 +++++ 2 files changed, 7 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 902bcf3..2439151 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,7 @@ 2003-06-15 TAKAHASHI Kaoru + * elmo.el (elmo-folder-rename-internal): New method to cause error. + * elmo-nntp.el (elmo-folder-search): Body search is to search from cache even if the folder is plugged. (elmo-nntp-search-primitive): Do nothing when body search is diff --git a/elmo/elmo.el b/elmo/elmo.el index d17aeca..e2f691a 100644 --- a/elmo/elmo.el +++ b/elmo/elmo.el @@ -711,6 +711,11 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).") (elmo-folder-send folder 'elmo-folder-rename-internal new-folder) (elmo-msgdb-rename-path folder new-folder))) +(luna-define-method elmo-folder-rename-internal ((folder elmo-folder) + new-folder) + (error "Cannot rename %s folder" + (symbol-name (elmo-folder-type-internal folder)))) + (defsubst elmo-folder-search-fast (folder condition numbers) (when (and numbers (vectorp condition) -- 1.7.10.4