Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
1122 (setq b (point)) 1122 (setq b (point))
1123 (point-max)) 1123 (point-max))
1124 (setq e (point-max))) 1124 (setq e (point-max)))
1125 (nnheader-temp-write nil 1125 (nnheader-temp-write nil
1126 (insert-buffer-substring gnus-article-buffer b e) 1126 (insert-buffer-substring gnus-article-buffer b e)
1127 (require 'url)
1127 (save-window-excursion 1128 (save-window-excursion
1128 (setq buf (car (w3-parse-buffer (current-buffer)))))) 1129 (w3-parse-buffer (current-buffer))
1130 (setq buf (buffer-string))))
1129 (when buf 1131 (when buf
1130 (delete-region (point-min) (point-max)) 1132 (delete-region (point-min) (point-max))
1131 (insert-buffer-substring buf) 1133 (insert-buffer-substring buf)
1132 (kill-buffer buf)) 1134 (kill-buffer buf))
1133 (widen) 1135 (widen)