(nnimap-split-to-groups): Allow group string to be a

function.  From KANEMATSU Daiji <kdaiji@bea.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5466912..9073b87 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-10  Simon Josefsson  <jas@extundo.com>
+
+       * nnimap.el (nnimap-split-to-groups): Allow group string to be a
+       function.  From KANEMATSU Daiji <kdaiji@bea.com>.
+
 2002-07-09  Nevin Kapur  <Nevin Kapur <nevin@jhu.edu>
 
        * gnus-sum.el (gnus-summary-delete-article): Respect group

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 586e105..fb1c05b 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1154,7 +1154,10 @@ function is generally only called when Gnus is shutting down."
              (goto-char (point-min))
              (when (and (if (stringp regexp)
                             (progn
-                              (setq regrepp (string-match "\\\\[0-9&]" group))
+                              (if (not (stringp group))
+                                  (setq group (eval group))
+                                (setq regrepp
+                                      (string-match "\\\\[0-9&]" group)))
                               (re-search-forward regexp nil t))
                           (funcall regexp group))
                         ;; Don't enter the article into the same group twice.