Mercurial > emacs

diff lisp/gnus/mml.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 0f88ac1c1629
children 0d8b17d428b5
line wrap: on
line diff
--- 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 ()