Return number of appended message, implemented all except IMAP

* elmo-maildir.el (elmo-folder-append-buffer): Return number of
appended message.
* elmo-localdir.el (elmo-folder-append-buffer): Dto.
* elmo-archive.el (elmo-archive-folder-append-buffer): Dto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d746c4f..597f7ec 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,10 @@
 2011-05-29  David Maus  <dmaus@ictsoc.de>
 
+       * elmo-maildir.el (elmo-folder-append-buffer): Return number of
+       appended message.
+       * elmo-localdir.el (elmo-folder-append-buffer): Dto.
+       * elmo-archive.el (elmo-archive-folder-append-buffer): Dto.
+
        * elmo.el (elmo-folder-append-buffer): Add optional fourth
        argument, return number of appended message if possible.
        * elmo-pipe.el (elmo-folder-append-buffer): Dto.

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index fb71e1a..5c00d43 100644 (file)
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -616,7 +616,9 @@ TYPE specifies the archiver's symbol."
                 (with-current-buffer src-buffer
                   (elmo-msgdb-get-message-id-from-buffer))
                 flags)
-               t))
+               (if return-number
+                   next-num
+                 t)))
          nil)))))
 
 (defun elmo-folder-append-messages-*-archive (folder

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 5285659..3d2ad25 100644 (file)
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -203,7 +203,9 @@
        (point-min) (point-max) filename nil 'no-msg)
       (elmo-folder-preserve-flags
        folder (elmo-msgdb-get-message-id-from-buffer) flags)
-      t)))
+      (if return-number
+         (car (elmo-folder-status folder))
+       t))))
 
 (defun elmo-folder-append-messages-*-localdir (folder
                                               src-folder

diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index c185b5f..1a10de5 100644 (file)
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -450,7 +450,9 @@ file name for maildir directories."
            basedir))
          (elmo-folder-preserve-flags
           folder (elmo-msgdb-get-message-id-from-buffer) flags)
-         t)
+         (if return-number
+             (car (elmo-folder-status folder))
+           t))
       ;; If an error occured, return nil.
       (error))))