Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmbox.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 1a767b41a199
children 131b0175ea99
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
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 307 (when nnmail-cache-accepted-message-ids
308 (nnmail-cache-insert (nnmail-fetch-field "message-id"))) 308 (nnmail-cache-insert (nnmail-fetch-field "message-id")))
309 (setq result (nnmbox-save-mail 309 (setq result (if (stringp group)
310 (if (stringp group) 310 (list (cons group (nnmbox-active-number group)))
311 (list (cons group (nnmbox-active-number group))) 311 (nnmail-article-group 'nnmbox-active-number)))
312 (nnmail-article-group 'nnmbox-active-number))))) 312 (if (null result)
313 (setq result 'junk)
314 (setq result (car (nnmbox-save-mail result)))))
313 (save-excursion 315 (save-excursion
314 (set-buffer nnmbox-mbox-buffer) 316 (set-buffer nnmbox-mbox-buffer)
315 (goto-char (point-max)) 317 (goto-char (point-max))
316 (insert-buffer-substring buf) 318 (insert-buffer-substring buf)
317 (when last 319 (when last
318 (when nnmail-cache-accepted-message-ids 320 (when nnmail-cache-accepted-message-ids
319 (nnmail-cache-close)) 321 (nnmail-cache-close))
320 (nnmail-save-active nnmbox-group-alist nnmbox-active-file) 322 (nnmail-save-active nnmbox-group-alist nnmbox-active-file)
321 (save-buffer)))) 323 (save-buffer))))
322 (car result))) 324 result))
323 325
324 (deffoo nnmbox-request-replace-article (article group buffer) 326 (deffoo nnmbox-request-replace-article (article group buffer)
325 (nnmbox-possibly-change-newsgroup group) 327 (nnmbox-possibly-change-newsgroup group)
326 (save-excursion 328 (save-excursion
327 (set-buffer nnmbox-mbox-buffer) 329 (set-buffer nnmbox-mbox-buffer)