*** empty log message ***

[gnus] / lisp / mm-view.el

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 9c20184..b81c78b 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -74,15 +74,17 @@
              (let ((w3-strict-width width)
                    (url-standalone-mode t))
                (w3-region (point-min) (point-max)))))
+         (narrow-to-region (1+ (point-min)) (point-max))
          (mm-handle-set-undisplayer
           handle
           `(lambda ()
              (let (buffer-read-only)
-              (mapc (lambda (prop)
-                     (remove-specifier
-                      (face-property 'default prop) (current-buffer)))
-                    '(background background-pixmap foreground))
-               (delete-region ,(point-min-marker) ,(point-max-marker))))))))
+               (mapc (lambda (prop)
+                       (remove-specifier
+                        (face-property 'default prop) (current-buffer)))
+                       '(background background-pixmap foreground))
+               (delete-region ,(point-min-marker)
+                              ,(point-max-marker))))))))
      ((or (equal type "enriched")
          (equal type "richtext"))
       (save-excursion
@@ -147,9 +149,9 @@
 (defun mm-inline-message (handle)
   (let ((b (point)))
     (save-excursion
-      (mm-insert-part handle)
       (save-restriction
-       (narrow-to-region b (point))
+       (narrow-to-region b b)
+       (mm-insert-part handle)
        (run-hooks 'gnus-article-decode-hook)
        (gnus-article-prepare-display)
        (mm-handle-set-undisplayer