*** empty log message ***

[gnus] / lisp / gnus-async.el

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index 27f657c..c0a7b6a 100644 (file)
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -257,8 +257,15 @@ It should return non-nil if the article is to be prefetched."
          
 (defun gnus-async-prefetched-article-entry (group article)
   "Return the entry for ARTICLE in GROUP iff it has been prefetched."
-  (assq (intern (format "%s-%d" group article))
-       gnus-async-article-alist))
+  (let ((entry (assq (intern (format "%s-%d" group article))
+                    gnus-async-article-alist)))
+    ;; Perhaps something has emptied the buffer?
+    (if (and entry
+            (= (cadr entry) (caddr entry)))
+       (progn
+         (gnus-async-delete-prefected-entry entry)
+         nil)
+      entry)))
 
 ;;;
 ;;; Header prefetch