From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Thu, 7 Feb 2002 15:55:05 +0000 (+0000)
Subject: * gnus-art.el (article-wash-html): Bind url-gateway-unplugged.
X-Git-Tag: emacs-21.2~103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c2eb6f53824efbf275f84360e1c1175d6253b3d;p=emacs.git

* 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 98275317b64..734de30f294 100644
--- 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 e86c0d38f56..b2d2936177c 100644
--- 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 7244c04c573..38c3701a047 100644
--- 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 ()