* mm-view.el (mm-inline-text-html-render-with-w3m): Bind

	`w3m-safe-url-regexp' with nil if `mm-inline-text-html-with-images'
	is non-nil; bind `w3m-force-redisplay' with nil.

	* gnus-art.el (gnus-article-wash-html-with-w3m): Ditto.

	* mm-decode.el (mm-inline-text-html-with-images): Supplement docs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12fbfad..fc66f0d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2002-02-01  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mm-view.el (mm-inline-text-html-render-with-w3m): Bind
+       `w3m-safe-url-regexp' with nil if `mm-inline-text-html-with-images'
+       is non-nil; bind `w3m-force-redisplay' with nil.
+
+       * gnus-art.el (gnus-article-wash-html-with-w3m): Ditto.
+
+       * mm-decode.el (mm-inline-text-html-with-images): Supplement docs.
+
 2002-01-31  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnfolder.el (nnfolder-request-replace-article): Unfold. Don't

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b11697c..695cceb 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2091,8 +2091,11 @@ If READ-CHARSET, ask for a coding system."
   (mm-setup-w3m)
   (save-restriction
     (narrow-to-region (point) (point-max))
-    (let ((w3m-safe-url-regexp "\\`cid:")
-         (w3m-display-inline-images mm-inline-text-html-with-images))
+    (let ((w3m-safe-url-regexp (if mm-inline-text-html-with-images
+                                  nil
+                                "\\`cid:"))
+         (w3m-display-inline-images mm-inline-text-html-with-images)
+         w3m-force-redisplay)
       (w3m-region (point-min) (point-max)))
     (when mm-inline-text-html-with-w3m-keymap
       (add-text-properties

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 3869519..f125b46 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -113,7 +113,9 @@ and `mm-inline-text-html-render-with-w3m', which uses emacs-w3m."
   "If non-nil, Gnus will allow retrieving images in the HTML contents
 with <img> tags.  It has no effect on Emacs/w3.  For emacs-w3m, the
 value of the option `w3m-display-inline-images' will be bound with
-this value."
+this value.  In addition, the variable `w3m-safe-url-regexp' will be
+bound with the value nil if it is non-nil to make emacs-w3m show all
+images, however this behavior may be changed in the future."
   :type 'boolean
   :group 'mime-display)
 

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index fedb714..789a11b 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -250,8 +250,11 @@ will not be substituted.")
        (when charset
          (delete-region (point-min) (point-max))
          (insert (mm-decode-string text charset)))
-       (let ((w3m-safe-url-regexp "\\`cid:")
-             (w3m-display-inline-images mm-inline-text-html-with-images))
+       (let ((w3m-safe-url-regexp (if mm-inline-text-html-with-images
+                                      nil
+                                    "\\`cid:"))
+             (w3m-display-inline-images mm-inline-text-html-with-images)
+             w3m-force-redisplay)
          (w3m-region (point-min) (point-max)))
        (when mm-inline-text-html-with-w3m-keymap
          (add-text-properties