Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmbox.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
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 (when nnmail-cache-accepted-message-ids
308 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
307 (setq result (nnmbox-save-mail 309 (setq result (nnmbox-save-mail
308 (if (stringp group) 310 (if (stringp group)
309 (list (cons group (nnmbox-active-number group))) 311 (list (cons group (nnmbox-active-number group)))
310 (nnmail-article-group 'nnmbox-active-number))))) 312 (nnmail-article-group 'nnmbox-active-number)))))
311 (save-excursion 313 (save-excursion
312 (set-buffer nnmbox-mbox-buffer) 314 (set-buffer nnmbox-mbox-buffer)
313 (goto-char (point-max)) 315 (goto-char (point-max))
314 (insert-buffer-substring buf) 316 (insert-buffer-substring buf)
315 (when last 317 (when last
318 (when nnmail-cache-accepted-message-ids
319 (nnmail-cache-close))
316 (nnmail-save-active nnmbox-group-alist nnmbox-active-file) 320 (nnmail-save-active nnmbox-group-alist nnmbox-active-file)
317 (save-buffer)))) 321 (save-buffer))))
318 (car result))) 322 (car result)))
319 323
320 (deffoo nnmbox-request-replace-article (article group buffer) 324 (deffoo nnmbox-request-replace-article (article group buffer)