Mercurial > emacs
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*")) |