Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnbabyl.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 1a767b41a199
children 131b0175ea99
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
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)