Synch to No Gnus 200403010612.

[elisp/gnus.git-] / lisp / mm-view.el

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index f0b4bf6..add8fab 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -222,7 +222,6 @@
 (defun mm-inline-text-html-render-with-w3m (handle)
   "Render a text/html part using emacs-w3m."
   (mm-setup-w3m)
-  (set (make-local-variable 'w3m-safe-url-regexp) mm-w3m-safe-url-regexp)
   (let ((text (mm-get-part handle))
        (b (point))
        (charset (mail-content-type-get (mm-handle-type handle) 'charset)))
@@ -237,7 +236,8 @@
        (when charset
          (delete-region (point-min) (point-max))
          (insert (mm-decode-string text charset)))
-       (let (w3m-force-redisplay)
+       (let ((w3m-safe-url-regexp mm-w3m-safe-url-regexp)
+             w3m-force-redisplay)
          (w3m-region (point-min) (point-max)))
        (when (and mm-inline-text-html-with-w3m-keymap
                   (boundp 'w3m-minor-mode-map)