From: yoichi <yoichi>
Date: Sun, 16 Feb 2003 12:28:22 +0000 (+0000)
Subject: * elmo.el (elmo-folder-rename-internal): New method to cause error.
X-Git-Tag: merged-trunk-to-elmo-mark-15~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=76b502b427ec5b5f2f9281d56e148a1d893cd383;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index dd9db82..d1b1695 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2003-02-16  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+	* elmo.el (elmo-folder-rename-internal): New method to cause error.
+
 	* elmo-localdir.el (elmo-folder-pack-numbers): onum, a member of
 	flist, is not always a member of onum-alist.
 
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)