From: Lars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Date: Sun, 24 Oct 2010 04:28:05 +0000 (+0200)
Subject: Propagate marks to the backend for unknown groups.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=55502e24698f5d185493a0b4dda60cd8fe7a9d07

Propagate marks to the backend for unknown groups.

This is mainly useful for nnimap groups.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b880ade0..fa4f4376e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* gnus-sum.el (gnus-group-make-articles-read): Propagate marks to the
+	backend for unknown groups.  This is mainly useful for nnimap groups.
+
 	* gnus-agent.el (gnus-agent-fetch-group): Don't download stuff if the
 	group isn't covered by the agent.
 
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 7cd199325..7380ccce1 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6190,7 +6190,13 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 	 (info (nth 2 entry))
 	 (active (gnus-active group))
 	 range)
-    (when entry
+    (if (not entry)
+	;; Group that Gnus doesn't know exists, but still allow the
+	;; backend to set marks.
+	(gnus-request-set-mark
+	 group (list (list (gnus-compress-sequence (sort articles #'<))
+			   'add '(read))))
+      ;; Normal, subscribed groups.
       (setq range (gnus-compute-read-articles group articles))
       (with-current-buffer gnus-group-buffer
 	(gnus-undo-register