comparison lisp/gnus/mml.el @ 43166:aa31e3865857

* 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 <[e-mail]>. * mml.el (mml-preview): Disable local map. * mml.el (mml-preview): Bind `q'.

43165:9714dc041391

;;; mml.el --- package for parsing and validating MML documents
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.

;; Author: Lars Magne Ingebrigtsen <[e-mail]>
;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

	    (insert s)))
      (let ((gnus-newsgroup-charset (car message-posting-charset)))
	(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 ()
  "Validate the current MML document."
  (interactive)

43166:aa31e3865857

;;; mml.el --- package for parsing and validating MML documents
;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.

;; Author: Lars Magne Ingebrigtsen <[e-mail]>
;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

	    (insert s)))
      (let ((gnus-newsgroup-charset (car message-posting-charset)))
	(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 ()
  "Validate the current MML document."
  (interactive)