[Emacs-diffs] Changes to emacs/lisp/gnus/mml.el

[ShengHuo ZHU]

Index: emacs/lisp/gnus/mml.el
diff -c emacs/lisp/gnus/mml.el:1.13 emacs/lisp/gnus/mml.el:1.14
*** emacs/lisp/gnus/mml.el:1.13 Wed Nov  7 06:48:22 2001
--- emacs/lisp/gnus/mml.el      Thu Feb  7 10:57:55 2002
***************
*** 1,5 ****
  ;;; mml.el --- package for parsing and validating MML documents
! ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; This file is part of GNU Emacs.
--- 1,5 ----
  ;;; mml.el --- package for parsing and validating MML documents
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; This file is part of GNU Emacs.
***************
*** 854,861 ****
        (run-hooks 'gnus-article-decode-hook)
        (let ((gnus-newsgroup-name "dummy"))
          (gnus-article-prepare-display))))
!     (fundamental-mode)
      (setq buffer-read-only t)
      (goto-char (point-min))))
  
  (defun mml-validate ()
--- 854,863 ----
        (run-hooks 'gnus-article-decode-hook)
        (let ((gnus-newsgroup-name "dummy"))
          (gnus-article-prepare-display))))
!     ;; 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 ()