Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
1124 t 1124 t
1125 (goto-char cur) 1125 (goto-char cur)
1126 nil))) 1126 nil)))
1127 1127
1128 (eval-and-compile 1128 (eval-and-compile
1129 (autoload 'w3-parse-buffer "w3-parse") 1129 (autoload 'w3-display "w3-parse")
1130 (autoload 'w3-do-setup "w3" "" t)) 1130 (autoload 'w3-do-setup "w3" "" t))
1131 1131
1132 (defun gnus-article-treat-html () 1132 (defun gnus-article-treat-html ()
1133 "Render HTML." 1133 "Render HTML."
1134 (interactive) 1134 (interactive)
1144 (setq e (point-max))) 1144 (setq e (point-max)))
1145 (nnheader-temp-write nil 1145 (nnheader-temp-write nil
1146 (insert-buffer-substring gnus-article-buffer b e) 1146 (insert-buffer-substring gnus-article-buffer b e)
1147 (require 'url) 1147 (require 'url)
1148 (save-window-excursion 1148 (save-window-excursion
1149 (w3-parse-buffer (current-buffer)) 1149 (w3-region (point-min) (point-max))
1150 (setq buf (buffer-string)))) 1150 (setq buf (buffer-substring-no-properties (point-min) (point-max)))))
1151 (when buf 1151 (when buf
1152 (delete-region (point-min) (point-max)) 1152 (delete-region (point-min) (point-max))
1153 (insert buf)) 1153 (insert buf))
1154 (widen) 1154 (widen)
1155 (goto-char (point-min)) 1155 (goto-char (point-min))