From 8b3d2adf84003b9c2b7ddadd930bac760ea4d43d Mon Sep 17 00:00:00 2001 From: dmaus Date: Wed, 30 Nov 2011 10:07:12 +0000 Subject: [PATCH] Correctly get the number of the appended message * elmo-maildir.el (elmo-folder-append-buffer): Correctly get the number of the appended message. --- elmo/ChangeLog | 5 +++++ elmo/elmo-maildir.el | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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 + + * elmo-maildir.el (elmo-folder-append-buffer): Correctly get the + number of the appended message. + 2011-06-03 David Maus * 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)))) -- 1.7.10.4