Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-art.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents b980b6286996
children 1856695b1fa9
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Mon Aug 13 09:31:48 2007 +0200
+++ b/lisp/gnus/gnus-art.el	Mon Aug 13 09:32:43 2007 +0200
@@ -1124,8 +1124,10 @@
        (setq e (point-max)))
       (nnheader-temp-write nil
 	(insert-buffer-substring gnus-article-buffer b e)
+	(require 'url)
 	(save-window-excursion
-	  (setq buf (car (w3-parse-buffer (current-buffer))))))
+	  (w3-parse-buffer (current-buffer))
+	  (setq buf (buffer-string))))
       (when buf
 	(delete-region (point-min) (point-max))
 	(insert-buffer-substring buf)