From 76b502b427ec5b5f2f9281d56e148a1d893cd383 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 16 Feb 2003 12:28:22 +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 dd9db82..d1b1695 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,7 @@ 2003-02-16 Yoichi NAKAYAMA + * 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) -- 1.7.10.4