*** empty log message ***

[gnus] / lisp / gnus-async.el

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index 88ae8fd..27f657c 100644 (file)
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -151,7 +151,8 @@ It should return non-nil if the article is to be prefetched."
       (when next
        (gnus-async-with-semaphore
         (pop gnus-async-fetch-list)))
-      (let ((do-fetch next))
+      (let ((do-fetch next)
+           (do-message t)) ;(eq major-mode 'gnus-summary-mode)))
        (when (and (gnus-group-asynchronous-p group)
                   (gnus-buffer-live-p summary)
                   (or (not next)
@@ -194,8 +195,9 @@ It should return non-nil if the article is to be prefetched."
                        group article mark summary next))
                      (nntp-server-buffer 
                       (get-buffer gnus-async-prefetch-article-buffer)))
-                 (gnus-message 7 "Prefetching article %d in group %s"
-                               article group)
+                 (when do-message
+                   (gnus-message 7 "Prefetching article %d in group %s"
+                                 article group))
                  (gnus-request-article article group))))))))))
 
 (defun gnus-make-async-article-function (group article mark summary next)
@@ -233,9 +235,10 @@ It should return non-nil if the article is to be prefetched."
 
 (defun gnus-async-delete-prefected-entry (entry)
   "Delete ENTRY from buffer and alist."
-  (delete-region (cadr entry) (caddr entry))
-  (set-marker (cadr entry) nil)
-  (set-marker (caddr entry) nil)
+  (ignore-errors
+    (delete-region (cadr entry) (caddr entry))
+    (set-marker (cadr entry) nil)
+    (set-marker (caddr entry) nil))
   (gnus-async-with-semaphore
    (setq gnus-async-article-alist 
         (delq entry gnus-async-article-alist))))