From a271c6008be82ad0339fd2c23d801cccaf809be8 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Tue, 15 Jan 2002 20:34:57 +0000 Subject: [PATCH] 2002-01-15 Simon Josefsson * nnimap.el (nnimap-close-asynchronous): Enable. (nnimap-close-group): Expunge. --- lisp/ChangeLog | 5 +++++ lisp/nnimap.el | 12 +++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 574842aea..2ff192387 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-01-15 Simon Josefsson + + * nnimap.el (nnimap-close-asynchronous): Enable. + (nnimap-close-group): Expunge. + 2002-01-15 ShengHuo ZHU * gnus-util.el (gnus-user-date-format-alist): Typo. diff --git a/lisp/nnimap.el b/lisp/nnimap.el index d597770bd..0d9fd9b19 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -196,7 +196,7 @@ RFC2060 section 6.4.4." ;; Performance / bug workaround variables -(defcustom nnimap-close-asynchronous nil +(defcustom nnimap-close-asynchronous t "Close mailboxes asynchronously in `nnimap-close-group'. This means that errors cought by nnimap when closing the mailbox will not prevent Gnus from updating the group status, which may be harmful. @@ -859,15 +859,17 @@ function is generally only called when Gnus is shutting down." (when (and (imap-opened) (nnimap-possibly-change-group group server)) (case nnimap-expunge-on-close - (always (unless nnimap-dont-close + (always (progn (imap-mailbox-expunge nnimap-close-asynchronous) - (imap-mailbox-close nnimap-close-asynchronous))) + (unless nnimap-dont-close + (imap-mailbox-close nnimap-close-asynchronous)))) (ask (if (and (imap-search "DELETED") (gnus-y-or-n-p (format "Expunge articles in group `%s'? " imap-current-mailbox))) - (unless nnimap-dont-close + (progn (imap-mailbox-expunge nnimap-close-asynchronous) - (imap-mailbox-close nnimap-close-asynchronous)) + (unless nnimap-dont-close + (imap-mailbox-close nnimap-close-asynchronous))) (imap-mailbox-unselect))) (t (imap-mailbox-unselect))) (not imap-current-mailbox)))) -- 2.25.1