Mercurial > emacs
changeset 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 | 9714dc041391 |
| children | 6dab4dad0093 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/mm-view.el lisp/gnus/mml.el |
| diffstat | 4 files changed, 20 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Feb 07 11:23:35 2002 +0000 +++ b/lisp/gnus/ChangeLog Thu Feb 07 15:57:55 2002 +0000 @@ -1,3 +1,14 @@ +2002-02-07 ShengHuo ZHU <zsh@cs.rochester.edu> + + * 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'. + 2002-02-05 Pavel Jan,Bm(Bk <Pavel@Janik.cz> * binhex.el (binhex-decoder-switches): Doc fix.
--- a/lisp/gnus/gnus-art.el Thu Feb 07 11:23:35 2002 +0000 +++ b/lisp/gnus/gnus-art.el Thu Feb 07 15:57:55 2002 +0000 @@ -1667,6 +1667,7 @@ (narrow-to-region (point) (point-max)) (mm-setup-w3) (let ((w3-strict-width (window-width)) + (url-gateway-unplugged t) (url-standalone-mode t)) (condition-case var (w3-region (point-min) (point-max))
--- a/lisp/gnus/mm-view.el Thu Feb 07 11:23:35 2002 +0000 +++ b/lisp/gnus/mm-view.el Thu Feb 07 15:57:55 2002 +0000 @@ -89,6 +89,7 @@ (setq text (mm-get-part handle)) (let ((b (point)) (url-standalone-mode t) + (url-gateway-unplugged t) (url-current-object (url-generic-parse-url (format "cid:%s" (mm-handle-id handle)))) (width (window-width)) @@ -120,8 +121,7 @@ (let ((w3-strict-width width) ;; Don't let w3 set the global version of ;; this variable. - (fill-column fill-column) - (url-standalone-mode t)) + (fill-column fill-column)) (condition-case var (w3-region (point-min) (point-max)) (error @@ -214,7 +214,8 @@ (defun mm-w3-prepare-buffer () (require 'w3) - (let ((url-standalone-mode t)) + (let ((url-standalone-mode t) + (url-gateway-unplugged t)) (w3-prepare-buffer))) (defun mm-view-message ()
--- a/lisp/gnus/mml.el Thu Feb 07 11:23:35 2002 +0000 +++ b/lisp/gnus/mml.el Thu Feb 07 15:57:55 2002 +0000 @@ -1,5 +1,5 @@ ;;; mml.el --- package for parsing and validating MML documents -;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. @@ -854,8 +854,10 @@ (run-hooks 'gnus-article-decode-hook) (let ((gnus-newsgroup-name "dummy")) (gnus-article-prepare-display)))) - (fundamental-mode) + ;; 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 ()