Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnbabyl.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 360340f9fd5f
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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 (nnmail-cache-insert (nnmail-fetch-field "message-id")) 336 (when nnmail-cache-accepted-message-ids
337 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
337 (setq result (car (nnbabyl-save-mail 338 (setq result (car (nnbabyl-save-mail
338 (if (stringp group) 339 (if (stringp group)
339 (list (cons group (nnbabyl-active-number group))) 340 (list (cons group (nnbabyl-active-number group)))
340 (nnmail-article-group 'nnbabyl-active-number))))) 341 (nnmail-article-group 'nnbabyl-active-number)))))
341 (set-buffer nnbabyl-mbox-buffer) 342 (set-buffer nnbabyl-mbox-buffer)
342 (goto-char (point-max)) 343 (goto-char (point-max))
343 (search-backward "\n\^_") 344 (search-backward "\n\^_")
344 (goto-char (match-end 0)) 345 (goto-char (match-end 0))
345 (insert-buffer-substring buf) 346 (insert-buffer-substring buf)
346 (when last 347 (when last
347 (nnmail-cache-insert (nnmail-fetch-field "message-id")) 348 (when nnmail-cache-accepted-message-ids
349 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
348 (save-buffer) 350 (save-buffer)
349 (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file)) 351 (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file))
350 result)))) 352 result))))
351 353
352 (deffoo nnbabyl-request-replace-article (article group buffer) 354 (deffoo nnbabyl-request-replace-article (article group buffer)