Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnbabyl.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
333 (save-excursion 333 (save-excursion
334 (while (re-search-backward "^X-Gnus-Newsgroup: " beg t) 334 (while (re-search-backward "^X-Gnus-Newsgroup: " beg t)
335 (delete-region (point) (progn (forward-line 1) (point))))) 335 (delete-region (point) (progn (forward-line 1) (point)))))
336 (when nnmail-cache-accepted-message-ids 336 (when nnmail-cache-accepted-message-ids
337 (nnmail-cache-insert (nnmail-fetch-field "message-id"))) 337 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
338 (setq result (car (nnbabyl-save-mail 338 (setq result
339 (if (stringp group) 339 (if (stringp group)
340 (list (cons group (nnbabyl-active-number group))) 340 (list (cons group (nnbabyl-active-number group)))
341 (nnmail-article-group 'nnbabyl-active-number))))) 341 (nnmail-article-group 'nnbabyl-active-number)))
342 (if (null result)
343 (setq result 'junk)
344 (setq result (car (nnbabyl-save-mail result))))
342 (set-buffer nnbabyl-mbox-buffer) 345 (set-buffer nnbabyl-mbox-buffer)
343 (goto-char (point-max)) 346 (goto-char (point-max))
344 (search-backward "\n\^_") 347 (search-backward "\n\^_")
345 (goto-char (match-end 0)) 348 (goto-char (match-end 0))
346 (insert-buffer-substring buf) 349 (insert-buffer-substring buf)