X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-w3.el;fp=mime-w3.el;h=f17ac45b0263cfa1446bde394c7954d00d5281bd;hb=dbae10fbd822fdee5adea0174cd09c387eae1d1d;hp=b5b0e41c704a1cd5ed3a9d87297c8bbf27ff94b2;hpb=01d6f6938987a696964c689ac60605f993ef7eb5;p=elisp%2Fsemi.git

diff --git a/mime-w3.el b/mime-w3.el
index b5b0e41..f17ac45 100644
--- a/mime-w3.el
+++ b/mime-w3.el
@@ -35,15 +35,26 @@
 		      ,keymap)
   )
 
+(defmacro mime-save-background-color (&rest body)
+  (if (featurep 'xemacs)
+      `(let ((color (color-name (face-background 'default))))
+	 (prog1
+	     (progn ,@body)
+	   (font-set-face-background 'default color
+				     (get-buffer gnus-article-buffer))
+	   ))
+    (cons 'progn body)))
+
 (defun mime-preview-text/html (entity situation)
-  (save-restriction
-    (narrow-to-region (point-max)(point-max))
-    (mime-text-insert-decoded-body entity)
-    (let ((beg (point-min)))
-      (remove-text-properties beg (point-max) '(face nil))
-      (w3-region beg (point-max))
-      (mime-put-keymap-region beg (point-max) w3-mode-map)
-      )))
+  (mime-save-background-color
+   (save-restriction
+     (narrow-to-region (point-max)(point-max))
+     (mime-text-insert-decoded-body entity)
+     (let ((beg (point-min)))
+       (remove-text-properties beg (point-max) '(face nil))
+       (w3-region beg (point-max))
+       (mime-put-keymap-region beg (point-max) w3-mode-map)
+       ))))
 
 
 ;;; @ end