Synch with Oort Gnus.

[elisp/gnus.git-] / lisp / gnus-int.el

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 6c2f436..adb794a 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -484,9 +484,20 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
     (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
   (when (gnus-check-backend-function
         'request-update-info (car gnus-command-method))
-    (funcall (gnus-get-function gnus-command-method 'request-update-info)
-            (gnus-group-real-name (gnus-info-group info))
-            info (nth 1 gnus-command-method))))
+    (let* ((group (gnus-info-group info))
+           (result (funcall (gnus-get-function gnus-command-method
+                                               'request-update-info)
+                            (gnus-group-real-name group)
+                            info (nth 1 gnus-command-method))))
+      (when result ;; artificially add nonexistent articles to the read range
+        (let* ((active (gnus-active group))
+               (min (car active)))
+          (when (> min 1) ;; otherwise, there are no known nonexistent articles
+            (let* ((range (if (= min 2) 1 (cons 1 (1- min))))
+                   (read (gnus-info-read result))
+                   (new-read (gnus-range-add read (list range))))
+              (gnus-info-set-read result new-read)))))
+      result)))
 
 (defun gnus-request-expire-articles (articles group &optional force)
   (let* ((gnus-command-method (gnus-find-method-for-group group))