Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
439 (gnus-delete-line)) 439 (gnus-delete-line))
440 (while (looking-at "\\(^[^ ]+:\\) *") 440 (while (looking-at "\\(^[^ ]+:\\) *")
441 (replace-match "\\1 " t) 441 (replace-match "\\1 " t)
442 (forward-line 1)) 442 (forward-line 1))
443 (when (re-search-forward "\n\n+" nil t) 443 (when (re-search-forward "\n\n+" nil t)
444 (replace-match "\n" t t)))) 444 (replace-match "\n" t t))
445 (goto-char (point-min))
446 (when (search-forward "[More Headers]" nil t)
447 (replace-match "" t t))))
445 448
446 (defun nnweb-dejanews-search (search) 449 (defun nnweb-dejanews-search (search)
447 (nnweb-fetch-form 450 (nnweb-fetch-form
448 (nnweb-definition 'address) 451 (nnweb-definition 'address)
449 `(("query" . ,search) 452 `(("query" . ,search)