Clear flags before moving so that they can be re-set later.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a6c73d..ebbfba4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,8 @@
        had gotten lost somewhere.
        (nnimap-request-accept-article): Keep track of examined groups, and
        unselect the group before APPENDing to read-only groups.
+       (nnimap-request-move-article): Clear flags before moving so that they
+       can be re-set later.
 
 2010-11-20  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 991274e..af58ce2 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -778,6 +778,9 @@ textual parts.")
        (if internal-move-group
            (let ((result
                   (with-current-buffer (nnimap-buffer)
+                    ;; Clear all flags before moving.
+                    (nnimap-send-command "UID STORE %d FLAGS.SILENT ()"
+                                         article)
                     (nnimap-command "UID COPY %d %S"
                                     article
                                     (utf7-encode internal-move-group t)))))