(gnus-summary-insert-new-articles): Protect against servers that are down.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d5a40be..e0dc448 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2011-07-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-summary-insert-new-articles): Clean up slightly.
+       (gnus-summary-insert-new-articles): Protect against servers that are
+       down.
 
 2011-07-29  Daniel Dehennin  <daniel.dehennin@baby-gnu.org>
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 6eadf05..80e40c4 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -12854,10 +12854,11 @@ If ALL is a number, fetch this number of articles."
   (let ((old (sort (mapcar 'car gnus-newsgroup-data) '<))
        (old-high gnus-newsgroup-highest)
        (nnmail-fetched-sources (list t))
+       (new-active (gnus-activate-group gnus-newsgroup-name 'scan))
        i new)
-    (setq gnus-newsgroup-active
-         (gnus-copy-sequence
-          (gnus-activate-group gnus-newsgroup-name 'scan)))
+    (unless new-active
+      (error "Couldn't fetch new data"))
+    (setq gnus-newsgroup-active (gnus-copy-sequence new-active))
     (setq i (cdr gnus-newsgroup-active)
          gnus-newsgroup-highest i)
     (while (> i old-high)