Further XEmacs compat fixup of the last change.

[gnus] / lisp / gnus-art.el

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7305839..aa83789 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -45,7 +45,6 @@
 (require 'mm-uu)
 (require 'message)
 (require 'mouse)
-(require 'url-queue)
 
 (autoload 'gnus-msg-mail "gnus-msg" nil t)
 (autoload 'gnus-button-mailto "gnus-msg")
@@ -2232,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))
@@ -4584,7 +4584,8 @@ commands:
       (cancel-timer timer))))
 
 (defun gnus-stop-downloads ()
-  (setq url-queue nil))
+  (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.