Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmbox.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
302 (goto-char (point-min)) 302 (goto-char (point-min))
303 (search-forward "\n\n" nil t) 303 (search-forward "\n\n" nil t)
304 (forward-line -1) 304 (forward-line -1)
305 (while (re-search-backward "^X-Gnus-Newsgroup: " nil t) 305 (while (re-search-backward "^X-Gnus-Newsgroup: " nil t)
306 (delete-region (point) (progn (forward-line 1) (point)))) 306 (delete-region (point) (progn (forward-line 1) (point))))
307 (nnmail-cache-insert (nnmail-fetch-field "message-id"))
308 (setq result (nnmbox-save-mail 307 (setq result (nnmbox-save-mail
309 (if (stringp group) 308 (if (stringp group)
310 (list (cons group (nnmbox-active-number group))) 309 (list (cons group (nnmbox-active-number group)))
311 (nnmail-article-group 'nnmbox-active-number))))) 310 (nnmail-article-group 'nnmbox-active-number)))))
312 (save-excursion 311 (save-excursion
313 (set-buffer nnmbox-mbox-buffer) 312 (set-buffer nnmbox-mbox-buffer)
314 (goto-char (point-max)) 313 (goto-char (point-max))
315 (insert-buffer-substring buf) 314 (insert-buffer-substring buf)
316 (when last 315 (when last
317 (nnmail-cache-close)
318 (nnmail-save-active nnmbox-group-alist nnmbox-active-file) 316 (nnmail-save-active nnmbox-group-alist nnmbox-active-file)
319 (save-buffer)))) 317 (save-buffer))))
320 (car result))) 318 (car result)))
321 319
322 (deffoo nnmbox-request-replace-article (article group buffer) 320 (deffoo nnmbox-request-replace-article (article group buffer)