(mm-inline-text-html-render-with-w3m): Fix misplaced parens.

 From ARISAWA Akihiro.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce9ea0f..e859ed8 100644 (file)
--- 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 1e02739..d88a789 100644 (file)
--- 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