Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmbox.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
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)