From: hmurata <hmurata>
Date: Thu, 10 May 2001 00:52:19 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-exec-subr): Fixed problem when
X-Git-Tag: wl-2_6-root^3~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ee919105863b54c68eb83788483c4035e141a216;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-exec-subr): Fixed problem when
destination folder is 'null.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ef922eb..e6f88ba 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-exec-subr): Fixed problem when
+	destination folder is 'null.
+
 2001-05-09  Kenichi OKADA  <okada@opaopa.org>
 
 	* wl-folder.el (wl-folder-guess-mailing-list-by-refile-rule-subr):
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 73659b7..21700f2 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3092,8 +3092,10 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 	      (setq result (elmo-folder-move-messages
 			    wl-summary-buffer-elmo-folder
 			    (cdr (car dst-msgs))
-			    (wl-folder-get-elmo-folder
-			     (car (car dst-msgs)))
+			    (if (eq 'null (car (car dst-msgs)))
+				'null
+			      (wl-folder-get-elmo-folder
+			       (car (car dst-msgs))))
 			    (wl-summary-buffer-msgdb)
 			    refile-len
 			    refile-executed