From ae3801f1c2bb1435902644c89d21affb0d221c7c Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Tue, 28 Dec 1999 15:32:09 +0000 Subject: [PATCH] (nnimap-split-fancy): New variable. (nnimap-split-fancy): New function. (nnimap-split-rule): Document symbol value. --- lisp/ChangeLog | 9 +++++++++ lisp/nnimap.el | 14 +++++++++++++- 2 files changed, 22 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index caa06ffa2..25db44ef1 100644 --- 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 + + (nnimap-split-rule): Document symbol value. + 1999-12-28 Simon Josefsson * nnimap.el (nnimap-retrieve-headers-progress): Let diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 2c6141c94..75814790c 100644 --- 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. -- 2.34.1