From: dmaus <dmaus>
Date: Wed, 30 Nov 2011 10:07:12 +0000 (+0000)
Subject: Correctly get the number of the appended message
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8b3d2adf84003b9c2b7ddadd930bac760ea4d43d;p=elisp%2Fwanderlust.git

Correctly get the number of the appended message

* elmo-maildir.el (elmo-folder-append-buffer): Correctly get the
number of the appended message.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index b8fe321..2d8a602 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-30  David Maus  <dmaus@ictsoc.de>
+
+	* elmo-maildir.el (elmo-folder-append-buffer): Correctly get the
+	number of the appended message.
+
 2011-06-03  David Maus  <dmaus@ictsoc.de>
 
 	* elmo-imap4.el (elmo-imap4-fetch-callback-1-subr): Don't mark
diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 1a10de5..9b3645f 100644
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -434,6 +434,7 @@ file name for maildir directories."
 					       return-number)
   (let ((basedir (elmo-maildir-folder-directory-internal folder))
 	(src-buf (current-buffer))
+	(number (elmo-folder-next-message-number folder))
 	dst-buf filename)
     (condition-case nil
 	(with-temp-buffer
@@ -450,9 +451,7 @@ file name for maildir directories."
 	    basedir))
 	  (elmo-folder-preserve-flags
 	   folder (elmo-msgdb-get-message-id-from-buffer) flags)
-	  (if return-number
-	      (car (elmo-folder-status folder))
-	    t))
+	  (if return-number number t))
       ;; If an error occured, return nil.
       (error))))