X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnnimap.el;h=1730bd4252c660b41b6f2fad5d94b5fe060cc3be;hp=f0accb98c0918cde8e15458864b59add7d43a7dc;hb=fb7eca794a7f006d316f1003f5ecc4e5ac8d4002;hpb=8ace698e1ce1772d7a7431f947d47591c2ac0656 diff --git a/lisp/nnimap.el b/lisp/nnimap.el index f0accb98c..1730bd425 100644 --- a/lisp/nnimap.el +++ b/lisp/nnimap.el @@ -1115,6 +1115,14 @@ If LIMIT, first try to limit the search to the N last articles." (nnimap-wait-for-response sequence)))))) (deffoo nnimap-request-accept-article (group &optional server last) + (unless group + ;; We're respooling. Find out where mail splitting would place + ;; this article. + (setq group + (caar + (nnmail-article-group + `(lambda (group) + (nnml-active-number group ,server)))))) (setq group (nnimap-decode-gnus-group group)) (when (nnimap-change-group nil server) (nnmail-check-syntax)