* elmo.el (elmo-folder-rename-internal): New method to cause error.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 902bcf3..2439151 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2003-06-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * 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 (file)
--- 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)