X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-art.el;h=aa83789749f0e48b69d9dd258df9fa2696d128d1;hb=15cce81ca2258ad31d56b8750d554f6de554fd6a;hp=2839a603a9a27d4378ee1ac09101bd9bfb6698d3;hpb=f6234873d0f9a0ee9b26beab123cf4e9d77099c8;p=gnus

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 2839a603a..aa8378974 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2231,7 +2231,8 @@ unfolded."
 		 (unfoldable
 		  (or (equal gnus-article-unfold-long-headers t)
 		      (and (stringp gnus-article-unfold-long-headers)
-			   (string-match gnus-article-unfold-long-headers header)))))
+			   (string-match gnus-article-unfold-long-headers
+					 header)))))
 	    (with-temp-buffer
 	      (insert header)
 	      (goto-char (point-min))
@@ -4582,6 +4583,10 @@ commands:
     (when (eq (elt timer 5) 'image-animate-timeout)
       (cancel-timer timer))))
 
+(defun gnus-stop-downloads ()
+  (when (boundp 'url-queue)
+    (set (intern "url-queue" obarray) nil)))
+
 ;; Set article window start at LINE, where LINE is the number of lines
 ;; from the head of the article.
 (defun gnus-article-set-window-start (&optional line)