Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnbabyl.el @ 36:c53a95d3c46d r19-15b101

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