# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 1013097475 0
# Node ID aa31e3865857cef7b219c81aeeba64a64bf6dc8d
# Parent  9714dc041391a0b52f45d40e71924fc1bcd7842c
* 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 -r 9714dc041391 -r aa31e3865857 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Thu Feb 07 11:23:35 2002 +0000
+++ b/lisp/gnus/ChangeLog	Thu Feb 07 15:57:55 2002 +0000
@@ -1,3 +1,14 @@
+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'.
+	
 2002-02-05  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* binhex.el (binhex-decoder-switches): Doc fix.
diff -r 9714dc041391 -r aa31e3865857 lisp/gnus/gnus-art.el
--- a/lisp/gnus/gnus-art.el	Thu Feb 07 11:23:35 2002 +0000
+++ b/lisp/gnus/gnus-art.el	Thu Feb 07 15:57:55 2002 +0000
@@ -1667,6 +1667,7 @@
 	  (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 -r 9714dc041391 -r aa31e3865857 lisp/gnus/mm-view.el
--- 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 ()
diff -r 9714dc041391 -r aa31e3865857 lisp/gnus/mml.el
--- a/lisp/gnus/mml.el	Thu Feb 07 11:23:35 2002 +0000
+++ b/lisp/gnus/mml.el	Thu Feb 07 15:57:55 2002 +0000
@@ -1,5 +1,5 @@
 ;;; mml.el --- package for parsing and validating MML documents
-;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; This file is part of GNU Emacs.
@@ -854,8 +854,10 @@
 	(run-hooks 'gnus-article-decode-hook)
 	(let ((gnus-newsgroup-name "dummy"))
 	  (gnus-article-prepare-display))))
-    (fundamental-mode)
+    ;; Disable article-mode-map.
+    (use-local-map nil)
     (setq buffer-read-only t)
+    (local-set-key "q" (lambda () (interactive) (kill-buffer nil)))
     (goto-char (point-min))))
 
 (defun mml-validate ()