From 74118b6d475f34e10f4227fcc68e6a431226dac4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 2 Dec 2005 09:54:12 +0000 Subject: [PATCH] Synch to No Gnus 200512020953. --- lisp/ChangeLog | 5 +++++ lisp/mm-view.el | 26 +++++++++++++------------- 2 files changed, 18 insertions(+), 13 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ff1797..c8cbae5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-12-02 ARISAWA Akihiro (tiny change) + + * mm-view.el (mm-inline-text-html-render-with-w3m): Fix misplaced + parens. + 2005-12-01 Katsumi Yamaoka * gnus-xmas.el (gnus-use-toolbar): Revert. diff --git a/lisp/mm-view.el b/lisp/mm-view.el index ed1ff3c..1bce241 100644 --- a/lisp/mm-view.el +++ b/lisp/mm-view.el @@ -253,19 +253,19 @@ (point-min) (point-max) (list 'keymap w3m-minor-mode-map ;; Put the mark meaning this part was rendered by emacs-w3m. - 'mm-inline-text-html-with-w3m t)))) - (mm-handle-set-undisplayer - handle - `(lambda () - (let (buffer-read-only) - (if (functionp 'remove-specifier) - (mapcar (lambda (prop) - (remove-specifier - (face-property 'default prop) - (current-buffer))) - '(background background-pixmap foreground))) - (delete-region ,(point-min-marker) - ,(point-max-marker)))))))) + 'mm-inline-text-html-with-w3m t))) + (mm-handle-set-undisplayer + handle + `(lambda () + (let (buffer-read-only) + (if (functionp 'remove-specifier) + (mapcar (lambda (prop) + (remove-specifier + (face-property 'default prop) + (current-buffer))) + '(background background-pixmap foreground))) + (delete-region ,(point-min-marker) + ,(point-max-marker))))))))) (defun mm-links-remove-leading-blank () ;; Delete the annoying three spaces preceding each line of links -- 1.7.10.4