*** empty log message ***

[gnus] / lisp / nnmail.el

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index d4ec1b9..d629cd3 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -711,6 +711,13 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
          (t
           procmails))))
 
+(defun nnmail-activate (backend)
+  (if (not (symbol-value (intern (format "%s-group-alist" backend))))
+      (save-excursion
+       (funcall (intern (format "%s-request-list" backend)))
+       (set (intern (format "%s-group-alist" backend)) (nnmail-get-active)))))
+
+
 (provide 'nnmail)
 
 ;;; nnmail.el ends here