From: teranisi <teranisi>
Date: Mon, 28 Jul 2003 06:12:16 +0000 (+0000)
Subject: * wl-expire.el (wl-summary-expire): Fixed 2nd argument for wl-append.
X-Git-Tag: wl-2_11_5~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=06227dfc175859203938301e723030b2e27e9f02;p=elisp%2Fwanderlust.git

* wl-expire.el (wl-summary-expire): Fixed 2nd argument for wl-append.
  (Reported by Shinichiro HIDA <shinichiro@stained-g.net>)
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f5a3a00..99cb690 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2003-07-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-expire.el (wl-summary-expire): Fixed 2nd argument for `wl-append'.
+	(Reported by Shinichiro HIDA <shinichiro@stained-g.net>)
+
 	* wl-summary.el (wl-summary-target-mark-reply-with-citation): 
 	Check return value of wl-summary-reply.
 	(wl-summary-reply): Recover window configuration when an error occured.
diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index 588249e..f598b17 100644
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -661,7 +661,7 @@ ex. +ml/wl/1999_11/, +ml/wl/1999_12/."
 		       key-date
 		       (elmo-message-entity-field entity 'date))
 		  (wl-append delete-list
-			     (elmo-message-entity-number entity))))))
+			     (list (elmo-message-entity-number entity)))))))
 	   (t
 	    (error "%s: not supported" val-type)))
 	  (when delete-list