comparison lisp/gnus/nnfolder.el @ 112415:555faf6e40d0

mm-decode.el (mm-preferred-alternative-precedence): Don't bug out on nested related parts. nnfolder.el (nnfolder-request-expire-articles): Return the list of unexpired articles. This fixes the regression that led expiry marks to disappear from nnfolder groups.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sat, 22 Jan 2011 12:34:50 +0000
parents 417b1e4d63cd
children
comparison
equal deleted inserted replaced
112414:4b27e6d58d2c 112415:555faf6e40d0
486 (unless nnfolder-inhibit-expiry 486 (unless nnfolder-inhibit-expiry
487 (nnheader-message 5 "Deleting articles...done")) 487 (nnheader-message 5 "Deleting articles...done"))
488 (nnfolder-save-buffer) 488 (nnfolder-save-buffer)
489 (nnfolder-adjust-min-active newsgroup) 489 (nnfolder-adjust-min-active newsgroup)
490 (nnfolder-save-active nnfolder-group-alist nnfolder-active-file) 490 (nnfolder-save-active nnfolder-group-alist nnfolder-active-file)
491 (gnus-sorted-difference articles (nreverse deleted-articles))) 491 (nnfolder-save-all-buffers)
492 (nnfolder-save-all-buffers))) 492 (gnus-sorted-difference articles (nreverse deleted-articles)))))
493 493
494 (deffoo nnfolder-request-move-article (article group server accept-form 494 (deffoo nnfolder-request-move-article (article group server accept-form
495 &optional last move-is-internal) 495 &optional last move-is-internal)
496 (save-excursion 496 (save-excursion
497 (let ((buf (get-buffer-create " *nnfolder move*")) 497 (let ((buf (get-buffer-create " *nnfolder move*"))