(nnimap-split-fancy): New variable.

(nnimap-split-fancy): New function.
(nnimap-split-rule): Document symbol value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index caa06ff..25db44e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+1999-12-28  Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann)
+
+       * nnimap.el (nnimap-split-fancy): New variable.
+       (nnimap-split-fancy): New function.
+
+1999-12-28  Simon Josefsson  <jas@pdc.kth.se>
+
+       (nnimap-split-rule): Document symbol value.
+
 1999-12-28  Simon Josefsson  <jas@pdc.kth.se>
 
        * nnimap.el (nnimap-retrieve-headers-progress): Let

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 2c6141c..7581479 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -120,7 +120,14 @@ the matching article will be stored.
 The second element can also be a function.  In that case, it will be
 called narrowed to the headers with the first element of the rule as
 the argument.  It should return a non-nil value if it thinks that the
-mail belongs in that group.")
+mail belongs in that group.
+
+This variable can also have a function as its value, the function will
+be called with the headers narrowed and should return a group where it
+thinks the article should be splitted to.")
+
+(defvar nnimap-split-fancy nil
+  "Like `nnmail-split-fancy', which see.")
 
 ;; Authorization / Privacy variables
 
@@ -829,6 +836,11 @@ function is generally only called when Gnus is shutting down."
        (gnus-message 7 "nnimap: Setting marks in %s...done" group))))
   nil)
 
+(defun nnimap-split-fancy ()
+  "Like nnmail-split-fancy, but uses nnimap-split-fancy."
+  (let ((nnmail-split-fancy nnimap-split-fancy))
+    (nnmail-split-fancy)))
+
 (defun nnimap-split-to-groups (rules)
   ;; tries to match all rules in nnimap-split-rule against content of
   ;; nntp-server-buffer, returns a list of groups that matched.