Mercurial > emacs
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 <fx@gnu.org>.
* mml.el (mml-preview): Disable local map.
* mml.el (mml-preview): Bind `q'.
author | ShengHuo ZHU <zsh@cs.rochester.edu> |
---|---|
date | Thu, 07 Feb 2002 15:57:55 +0000 |
parents | 0f88ac1c1629 |
children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
43165:9714dc041391 | 43166:aa31e3865857 |
---|---|
1 ;;; mml.el --- package for parsing and validating MML documents | 1 ;;; mml.el --- package for parsing and validating MML documents |
2 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. | 2 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
3 | 3 |
4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
5 ;; This file is part of GNU Emacs. | 5 ;; This file is part of GNU Emacs. |
6 | 6 |
7 ;; GNU Emacs is free software; you can redistribute it and/or modify | 7 ;; GNU Emacs is free software; you can redistribute it and/or modify |
852 (insert s))) | 852 (insert s))) |
853 (let ((gnus-newsgroup-charset (car message-posting-charset))) | 853 (let ((gnus-newsgroup-charset (car message-posting-charset))) |
854 (run-hooks 'gnus-article-decode-hook) | 854 (run-hooks 'gnus-article-decode-hook) |
855 (let ((gnus-newsgroup-name "dummy")) | 855 (let ((gnus-newsgroup-name "dummy")) |
856 (gnus-article-prepare-display)))) | 856 (gnus-article-prepare-display)))) |
857 (fundamental-mode) | 857 ;; Disable article-mode-map. |
858 (use-local-map nil) | |
858 (setq buffer-read-only t) | 859 (setq buffer-read-only t) |
860 (local-set-key "q" (lambda () (interactive) (kill-buffer nil))) | |
859 (goto-char (point-min)))) | 861 (goto-char (point-min)))) |
860 | 862 |
861 (defun mml-validate () | 863 (defun mml-validate () |
862 "Validate the current MML document." | 864 "Validate the current MML document." |
863 (interactive) | 865 (interactive) |