From: yamaoka <yamaoka>
Date: Fri, 2 Dec 2005 09:54:12 +0000 (+0000)
Subject: Synch to No Gnus 200512020953.
X-Git-Tag: t-gnus-6_17_4-quimby-~197
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=74118b6d475f34e10f4227fcc68e6a431226dac4;p=elisp%2Fgnus.git-

Synch to No Gnus 200512020953.
---

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  <ari@mbf.ocn.ne.jp>  (tiny change)
+
+	* mm-view.el (mm-inline-text-html-render-with-w3m): Fix misplaced
+	parens.
+
 2005-12-01  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* 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