aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/gnus/mml.el
diff options
context:
space:
mode:
authorShengHuo ZHU <[email protected]>2002-02-07 15:57:55 +0000
committerShengHuo ZHU <[email protected]>2002-02-07 15:57:55 +0000
commit6833e8bac3f20e8eac3a2600587f0e6a3bf8d037 (patch)
treefba98256af5fe0ccb93ac01bd63340afdf2fb010 /lisp/gnus/mml.el
parent33b93ee509c9085413ef676b6b260f10fb0d6e37 (diff)
* 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 <[email protected]>. * mml.el (mml-preview): Disable local map. * mml.el (mml-preview): Bind `q'.
Diffstat (limited to 'lisp/gnus/mml.el')
-rw-r--r--lisp/gnus/mml.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index d2beef9fa5..e28fa1e9e1 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -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 <[email protected]>
;; This file is part of GNU Emacs.
@@ -854,8 +854,10 @@ If RAW, don't highlight the article."
(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 ()