Mercurial > hg > xemacs-beta

diff lisp/gnus/nnweb.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 585fb297b004
children 8eaf7971accc
line wrap: on
line diff
--- a/lisp/gnus/nnweb.el	Mon Aug 13 09:36:20 2007 +0200
+++ b/lisp/gnus/nnweb.el	Mon Aug 13 09:37:19 2007 +0200
@@ -441,7 +441,10 @@
       (replace-match "\\1 " t)
       (forward-line 1))
     (when (re-search-forward "\n\n+" nil t)
-      (replace-match "\n" t t))))
+      (replace-match "\n" t t))
+    (goto-char (point-min))
+    (when (search-forward "[More Headers]" nil t)
+      (replace-match "" t t))))
 
 (defun nnweb-dejanews-search (search)
   (nnweb-fetch-form