1 |
;;; mml.el --- package for parsing and validating MML documents |
;;; mml.el --- package for parsing and validating MML documents |
2 |
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
3 |
|
|
4 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
5 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
854 |
(run-hooks 'gnus-article-decode-hook) |
(run-hooks 'gnus-article-decode-hook) |
855 |
(let ((gnus-newsgroup-name "dummy")) |
(let ((gnus-newsgroup-name "dummy")) |
856 |
(gnus-article-prepare-display)))) |
(gnus-article-prepare-display)))) |
857 |
(fundamental-mode) |
;; Disable article-mode-map. |
858 |
|
(use-local-map nil) |
859 |
(setq buffer-read-only t) |
(setq buffer-read-only t) |
860 |
|
(local-set-key "q" (lambda () (interactive) (kill-buffer nil))) |
861 |
(goto-char (point-min)))) |
(goto-char (point-min)))) |
862 |
|
|
863 |
(defun mml-validate () |
(defun mml-validate () |