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

* elmo.el (elmo-folder-move-messages): Fixed problem when
`dst-folder' is 'null.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7b7e4d9..d46b011 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo.el (elmo-folder-move-messages): Fixed problem when
+	`dst-folder' is 'null.
+
 2001-05-09  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo.el (elmo-folder-list-importants): Rewirte. Use global mark
diff --git a/elmo/elmo.el b/elmo/elmo.el
index ae2f5d2..3e335d9 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -882,7 +882,8 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
 				 "Copying messages..."
 			       "Moving messages..."))
 	   succeeds i result)
-      (unless (eq dst-folder 'null)
+      (if (eq dst-folder 'null)
+	  (setq succeeds messages)
 	;; src is already opened.
 	(when messages
 	  (elmo-folder-open-internal dst-folder)