Fixed last change.

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index e7f2566..8643762 100644 (file)
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -186,7 +186,8 @@
         ((consp (cdr dst-diff)) ; new unread all
          (mapcar (lambda (number) (+ number src-length)) dst-diff))
         (t
-         (cons (+ (car dst-diff) src-length) (cdr dst-diff))))
+         (cons (+ (car dst-diff) src-length)
+               (+ (cdr dst-diff) src-length))))
       ;; No save.
       (elmo-folder-close-internal (elmo-pipe-folder-src-internal folder))
       (elmo-folder-close-internal (elmo-pipe-folder-dst-internal folder)))))