Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-art.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 15872534500d
children
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Mon Aug 13 09:47:55 2007 +0200
+++ b/lisp/gnus/gnus-art.el	Mon Aug 13 09:49:09 2007 +0200
@@ -1126,7 +1126,7 @@
       nil)))
 
 (eval-and-compile
-  (autoload 'w3-parse-buffer "w3-parse")
+  (autoload 'w3-display "w3-parse")
   (autoload 'w3-do-setup "w3" "" t))
 
 (defun gnus-article-treat-html ()
@@ -1146,8 +1146,8 @@
 	(insert-buffer-substring gnus-article-buffer b e)
 	(require 'url)
 	(save-window-excursion
-	  (w3-parse-buffer (current-buffer))
-	  (setq buf (buffer-string))))
+	  (w3-region (point-min) (point-max))
+	  (setq buf (buffer-substring-no-properties (point-min) (point-max)))))
       (when buf
 	(delete-region (point-min) (point-max))
 	(insert buf))