Mercurial > emacs

diff lisp/gnus/mm-view.el @ 43166:aa31e3865857

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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'.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Thu, 07 Feb 2002 15:57:55 +0000
parents b4833df45a4c
children 0d8b17d428b5
line wrap: on
line diff
--- a/lisp/gnus/mm-view.el	Thu Feb 07 11:23:35 2002 +0000
+++ b/lisp/gnus/mm-view.el	Thu Feb 07 15:57:55 2002 +0000
@@ -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 ()