* gnus-art.el (article-wash-html): Bind url-gateway-unplugged.

	* mm-view.el (mm-w3-prepare-buffer): Ditto.
	(mm-inline-text): Ditto.
	Suggested by  Dave Love <fx@gnu.org>.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 98275317b648ecf1f4eeb53cab04766b2c35ebaf..734de30f294204041f84c360078da1a48500dd5a 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,10 @@
 2002-02-07  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-art.el (article-wash-html): Bind url-gateway-unplugged. 
+       * mm-view.el (mm-w3-prepare-buffer): Ditto.
+       (mm-inline-text): Ditto.
+       Suggested by  Dave Love <fx@gnu.org>.
+
        * mml.el (mml-preview): Disable local map.
        
        * mml.el (mml-preview): Bind `q'.

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index e86c0d38f565be05b8599b1046ff089e319d28f0..b2d2936177cc413875625776d3ac7b62577fa493 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -1667,6 +1667,7 @@ If FORCE, decode the article whether it is marked as base64 not."
          (narrow-to-region (point) (point-max))
          (mm-setup-w3)
          (let ((w3-strict-width (window-width))
+               (url-gateway-unplugged t)
                (url-standalone-mode t))
            (condition-case var
                (w3-region (point-min) (point-max))

diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el
index 7244c04c57307dd2a6ef3476e1b9cb689bf72bc7..38c3701a0479ec1b2375ad652f35e744c897d6a4 100644 (file)
--- a/lisp/gnus/mm-view.el
+++ b/lisp/gnus/mm-view.el
@@ -89,6 +89,7 @@
       (setq text (mm-get-part handle))
       (let ((b (point))
            (url-standalone-mode t)
+           (url-gateway-unplugged t)
            (url-current-object
             (url-generic-parse-url (format "cid:%s" (mm-handle-id handle))))
            (width (window-width))
@@ -120,8 +121,7 @@
                (let ((w3-strict-width width)
                      ;; Don't let w3 set the global version of
                      ;; this variable.
-                     (fill-column fill-column)
-                     (url-standalone-mode t))
+                     (fill-column fill-column))
                  (condition-case var
                      (w3-region (point-min) (point-max))
                    (error
@@ -214,7 +214,8 @@
 
 (defun mm-w3-prepare-buffer ()
   (require 'w3)
-  (let ((url-standalone-mode t))
+  (let ((url-standalone-mode t)
+       (url-gateway-unplugged t))
     (w3-prepare-buffer)))
 
 (defun mm-view-message ()