X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-async.el;h=27f657c8107b23ada271ab83f8df062201cb81c1;hb=27e50870dcbd1442e8fe2d14ddfb89cd7c706495;hp=88ae8fda4caca1ac3094fb96eb11cae764e12849;hpb=34e6ef9901f0a79f6f723eb942731e154c0933b4;p=gnus

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index 88ae8fda4..27f657c81 100644
--- 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))))