From 6833e8bac3f20e8eac3a2600587f0e6a3bf8d037 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Thu, 7 Feb 2002 15:57:55 +0000 Subject: [PATCH] * 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 . * mml.el (mml-preview): Disable local map. * mml.el (mml-preview): Bind `q'. --- lisp/gnus/ChangeLog | 11 +++++++++++ lisp/gnus/gnus-art.el | 1 + lisp/gnus/mm-view.el | 7 ++++--- lisp/gnus/mml.el | 6 ++++-- 4 files changed, 20 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 0d15ec4b4d6..95eee15d47c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,14 @@ +2002-02-07 ShengHuo ZHU + + * 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 . + + * mml.el (mml-preview): Disable local map. + + * mml.el (mml-preview): Bind `q'. + 2002-02-05 Pavel Jan,Bm(Bk * binhex.el (binhex-decoder-switches): Doc fix. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index f4a1a88f41a..98075c940e2 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -1667,6 +1667,7 @@ If FORCE, decode the article whether it is marked as base64 not." (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)) diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 2fa24a72855..707bd708459 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -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 () diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index d2beef9fa50..e28fa1e9e1e 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -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 ;; This file is part of GNU Emacs. @@ -854,8 +854,10 @@ If RAW, don't highlight the article." (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 () -- 2.39.5