* 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 (file)
--- 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 (file)
--- 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