From: hmurata <hmurata>
Date: Tue, 24 Jan 2006 00:03:24 +0000 (+0000)
Subject: (elmo-folder-delete-messages): Define.
X-Git-Tag: wl-2_15_3~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=94bfc499a760424c43e2ebb45eea30381bd1c152;p=elisp%2Fwanderlust.git

(elmo-folder-delete-messages): Define.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 51e161c..8359dd9 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2006-01-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-search.el (elmo-folder-delete-messages): Define.
+
 2006-01-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-vars.el (elmo-mailing-list-name-spec-list): Fixed
diff --git a/elmo/elmo-search.el b/elmo/elmo-search.el
index 9b138cc..b350dc0 100644
--- a/elmo/elmo-search.el
+++ b/elmo/elmo-search.el
@@ -211,6 +211,11 @@ Returns non-nil if fetching was succeed.")
 		    (concat "^" (regexp-quote
 				 (elmo-folder-prefix-internal folder))))))
 
+(luna-define-method elmo-folder-delete-messages ((folder elmo-search-folder)
+						 numbers)
+  (elmo-folder-kill-messages folder numbers)
+  t)
+
 
 ;;; Search engine