[gnus git] branch master updated: m0-11-195-g4196f8f =1= Don't split imap messages back into original group

Eric <[email protected]> Tue, 24 Mar 2015 16:18:58 +0100
Newsgroups gmane.emacs.gnus.cvs
Message-ID <[email protected]>
       via  4196f8fc4237ddd8099d54fbc1f5b0bac802f2ed (commit)
      from  441fce6b76559fdb536106a0518551c01d0e26a9 (commit)


- Log -----------------------------------------------------------------
commit 4196f8fc4237ddd8099d54fbc1f5b0bac802f2ed
Author: Eric Abrahamsen <[email protected]>
Date:   Wed Feb 18 17:51:37 2015 +0800

    Don't split imap messages back into original group
    
    * lisp/nnimap.el (nnimap-split-incoming-mail): If a message is already
      in the group it should be split to, don't re-copy it into the group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b975dc7..72202b1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -59,6 +59,10 @@
 	(gnus-registry-remove-extra-data): Use slot names rather than initarg
 	names in `oref' and `oset'.
 
+2015-02-27  Eric Abrahamsen  <[email protected]>
+	* lisp/nnimap.el (nnimap-split-incoming-mail): If a message is already
+	in the group it should be split to, don't re-copy it into the group.
+
 2015-02-25  Adam Sjøgren  <[email protected]>
 
 	* message.el (message-insert-formatted-citation-line): Change %F to
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 369d9d3..c476be6 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -2086,12 +2086,15 @@ Return the server's response to the SELECT or EXAMINE command."
 		    (ranges (cdr spec)))
 		(if (eq group 'junk)
 		    (setq junk-articles ranges)
+		  ;; Don't copy if the message is already in its
+		  ;; target group.
+		  (unless (string= group nnimap-inbox)
 		   (push (list (nnimap-send-command
 				"UID COPY %s %S"
 				(nnimap-article-ranges ranges)
 				(utf7-encode group t))
 			       ranges)
-			sequences))))
+			 sequences)))))
 	    ;; Wait for the last COPY response...
 	    (when sequences
 	      (nnimap-wait-for-response (caar sequences))

-----------------------------------------------------------------------
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 |    4 ++++
 lisp/nnimap.el |   15 +++++++++------
 2 files changed, 13 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