/[emacs]/emacs/lisp/gnus/mml.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mml.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by zsh, Wed Nov 7 11:48:22 2001 UTC revision 1.14 by zsh, Thu Feb 7 15:57:55 2002 UTC
# Line 1  Line 1 
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.
# Line 854  If RAW, don't highlight the article." Line 854  If RAW, don't highlight the article."
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 ()

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26