Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnbabyl.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
331 (search-forward "\n\n" nil t) 331 (search-forward "\n\n" nil t)
332 (forward-line -1) 332 (forward-line -1)
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
337 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
336 (setq result (car (nnbabyl-save-mail 338 (setq result (car (nnbabyl-save-mail
337 (if (stringp group) 339 (if (stringp group)
338 (list (cons group (nnbabyl-active-number group))) 340 (list (cons group (nnbabyl-active-number group)))
339 (nnmail-article-group 'nnbabyl-active-number))))) 341 (nnmail-article-group 'nnbabyl-active-number)))))
340 (set-buffer nnbabyl-mbox-buffer) 342 (set-buffer nnbabyl-mbox-buffer)
341 (goto-char (point-max)) 343 (goto-char (point-max))
342 (search-backward "\n\^_") 344 (search-backward "\n\^_")
343 (goto-char (match-end 0)) 345 (goto-char (match-end 0))
344 (insert-buffer-substring buf) 346 (insert-buffer-substring buf)
345 (when last 347 (when last
348 (when nnmail-cache-accepted-message-ids
349 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
346 (save-buffer) 350 (save-buffer)
347 (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file)) 351 (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file))
348 result)))) 352 result))))
349 353
350 (deffoo nnbabyl-request-replace-article (article group buffer) 354 (deffoo nnbabyl-request-replace-article (article group buffer)