From c0b97aeee190f87ff2a19193f951852b17705faf Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Tue, 7 Jul 2015 10:39:37 +0800 Subject: [PATCH 1/2] Tell Gnus about newly-created imap groups * lisp/nnimap.el (nnimap-request-create-group): Upon successful creation, register the new group with Gnus. --- lisp/nnimap.el | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 40610e1..e7a7aa4 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -861,7 +861,23 @@ textual parts.") (setq group (nnimap-decode-gnus-group group)) (when (nnimap-change-group nil server) (with-current-buffer (nnimap-buffer) - (car (nnimap-command "CREATE %S" (utf7-encode group t)))))) + (when (car (nnimap-command "CREATE %S" (utf7-encode group t))) + (let* ((method (gnus-server-to-method + (format "nnimap:%s" server))) + (qualname (gnus-group-prefixed-name + group method)) + (sub-level + (if (eq (gnus-matches-options-n qualname) 'subscribe) + gnus-level-default-subscribed + gnus-level-default-unsubscribed)) + info) + (unless (gnus-group-entry qualname) + (gnus-group-change-level qualname sub-level)) + (setq info (list (gnus-get-info qualname))) + (nnimap-finish-retrieve-group-infos + server info + (nnimap-retrieve-group-data-early server info)) + t))))) (deffoo nnimap-request-delete-group (group &optional force server) (setq group (nnimap-decode-gnus-group group)) -- 2.4.5