[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mml.el
From: |
ShengHuo ZHU |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mml.el |
Date: |
Thu, 07 Feb 2002 10:57:56 -0500 |
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 ()