Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnbabyl.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
216 'nnbabyl 216 'nnbabyl
217 (lambda () 217 (lambda ()
218 (save-excursion 218 (save-excursion
219 (set-buffer nnbabyl-mbox-buffer) 219 (set-buffer nnbabyl-mbox-buffer)
220 (save-buffer))) 220 (save-buffer)))
221 nnbabyl-mbox-file group 221 (file-name-directory nnbabyl-mbox-file)
222 group
222 (lambda () 223 (lambda ()
223 (save-excursion 224 (save-excursion
224 (let ((in-buf (current-buffer))) 225 (let ((in-buf (current-buffer)))
225 (goto-char (point-min)) 226 (goto-char (point-min))
226 (while (search-forward "\n\^_\n" nil t) 227 (while (search-forward "\n\^_\n" nil t)