[gnus git] branch master updated: m0-5-207-g761a842 =1= Fix moving unticked messages between IMAP groups

       via  761a84220fa9ce3292d587047f61f0f91bf68d0a (commit)
      from  6c53577816e12ca224e16fd92f53e93353732873 (commit)


- Log -----------------------------------------------------------------
commit 761a84220fa9ce3292d587047f61f0f91bf68d0a
Author: Lars Ingebrigtsen <[email protected]>
Date:   Tue Dec 25 12:26:32 2012 +0100

    Fix moving unticked messages between IMAP groups
    
    * gnus-sum.el (gnus-summary-push-marks-to-backend): Push the complete
    mark state when moving articles.  Otherwise unticked articles will get
    their ticks back after moving.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 93e06eb..69558f9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-12-25  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-sum.el (gnus-summary-push-marks-to-backend): Push the complete
+	mark state when moving articles.  Otherwise unticked articles will get
+	their ticks back after moving.
+
 2012-12-24  Lars Ingebrigtsen  <[email protected]>
 
 	* gnus-srvr.el (gnus-browse-delete-group): Fix syntax error.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 91f369b..744afdb 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -10135,17 +10135,20 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
 
 (defun gnus-summary-push-marks-to-backend (article)
   (let ((set nil)
+	(del nil)
 	(marks gnus-article-mark-lists))
     (unless (memq article gnus-newsgroup-unreads)
       (push 'read set))
     (while marks
-      (when (and (eq (gnus-article-mark-to-type (cdar marks)) 'list)
+      (if (and (eq (gnus-article-mark-to-type (cdar marks)) 'list)
 		 (memq article (symbol-value
 				(intern (format "gnus-newsgroup-%s"
 						(caar marks))))))
-	(push (cdar marks) set))
+	  (push (cdar marks) set)
+	(push (cdar marks) del))
       (pop marks))
-    (gnus-request-set-mark gnus-newsgroup-name `(((,article) set ,set)))))
+    (gnus-request-set-mark gnus-newsgroup-name `(((,article) set ,set)
+						 ((,article) del ,del)))))
 
 (defun gnus-summary-copy-article (&optional n to-newsgroup select-method)
   "Copy the current article to some other group.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    6 ++++++
 lisp/gnus-sum.el |   15 +++++++++------
 2 files changed, 15 insertions(+), 6 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project