X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fmm-view.el;h=9ea5f7fb1a0f91bef14280d6c4911d2b8fc17da6;hp=2f6512cbe7241491755e83343b17d40aa2277b36;hb=763cfe6796b13ca5525b568bfe41cf4e244730fc;hpb=2a6a3b915bd9a9025c8ad2541524b7413295e757

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 2f6512cbe..9ea5f7fb1 100644
--- 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)