*** empty log message ***

[gnus] / lisp / mm-view.el

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index a693aaa..b81c78b 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -71,17 +71,20 @@
          (save-restriction
            (narrow-to-region b (point))
            (save-window-excursion
-             (let ((w3-strict-width width))
+             (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
@@ -133,14 +136,34 @@
 
 (defun mm-w3-prepare-buffer ()
   (require 'w3)
-  (w3-prepare-buffer))
+  (let ((url-standalone-mode t))
+    (w3-prepare-buffer)))
 
 (defun mm-view-message ()
+  (mm-enable-multibyte)
   (gnus-article-prepare-display)
   (run-hooks 'gnus-article-decode-hook)
   (fundamental-mode)
   (goto-char (point-min)))
 
+(defun mm-inline-message (handle)
+  (let ((b (point)))
+    (save-excursion
+      (save-restriction
+       (narrow-to-region b b)
+       (mm-insert-part handle)
+       (run-hooks 'gnus-article-decode-hook)
+       (gnus-article-prepare-display)
+       (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)))))))))
+
 (provide 'mm-view)
 
 ;; mm-view.el ends here