(nnmail-expiry-target-group): Say that every expiry target group is the "last".

This makes backends like nnfolder actually save their folders.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 121b9f0..9ac822f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2010-10-09  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-10-09  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * nnmail.el (nnmail-expiry-target-group): Say that every expiry target
+       group is the "last", so that the backends like nnfolder actually save
+       their folders.
+

        * nnimap.el (nnimap-open-connection): If we have gnutls loaded, then
        try to use that for the tls stream.
        (nnimap-retrieve-group-data-early): Rework the marks code to heed
        * nnimap.el (nnimap-open-connection): If we have gnutls loaded, then
        try to use that for the tls stream.
        (nnimap-retrieve-group-data-early): Rework the marks code to heed

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 463f87e..01cab6f 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1914,7 +1914,7 @@ If TIME is nil, then return the cutoff time for oldness instead."
     (unless (eq target 'delete)
       (when (or (gnus-request-group target)
                (gnus-request-create-group target))
     (unless (eq target 'delete)
       (when (or (gnus-request-group target)
                (gnus-request-create-group target))

-       (let ((group-art (gnus-request-accept-article target nil nil t)))
+       (let ((group-art (gnus-request-accept-article target nil t t)))

          (when (consp group-art)
            (gnus-group-mark-article-read target (cdr group-art))))))))
 
          (when (consp group-art)
            (gnus-group-mark-article-read target (cdr group-art))))))))