From 6833e8bac3f20e8eac3a2600587f0e6a3bf8d037 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Thu, 7 Feb 2002 15:57:55 +0000 Subject: * 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 . * mml.el (mml-preview): Disable local map. * mml.el (mml-preview): Bind `q'. --- lisp/gnus/mml.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lisp/gnus/mml.el') 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 ;; 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 () -- cgit v1.2.3