From: dmaus <dmaus>
Date: Sun, 1 Aug 2010 11:02:43 +0000 (+0000)
Subject: * elmo.el (elmo-folder-move-messages): Open source folder before
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c9194c3adf083dc87dfb8a3800492e6c06670be1;p=elisp%2Fwanderlust.git

* elmo.el (elmo-folder-move-messages): Open source folder before
moving messages.

If move-messages is called during an expire operation in folder-mode,
the source folder is not open.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3ceb6d7..5af96fb 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-01  David Maus  <dmaus@ictsoc.de>
+
+	* elmo.el (elmo-folder-move-messages): Open source folder before
+	moving messages.
+
 2010-04-15  David Maus  <dmaus@ictsoc.de>
 
 	* elmo-imap4.el (elmo-imap4-folder-name-syntax): Allow numbers in
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 15c935e..3b3e707 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1188,7 +1188,7 @@ Returns a list of message numbers successfully appended."
 	  (error "move: %d is not writable"
 		 (elmo-folder-name-internal dst-folder)))
 	(when messages
-	  ;; src is already opened.
+	  (elmo-folder-open-internal src-folder)
 	  (elmo-folder-open-internal dst-folder)
 	  (unless (setq succeeds (elmo-folder-append-messages dst-folder
 							      src-folder