Using gnus-parameters to generate nnmail-split-fancy

Using gnus-parameters to generate nnmail-split-fancy

[Daniel 'NebuchadnezzaR' Dehennin]

[-- Attachment #1: Type: text/plain, Size: 547 bytes --]

Hello,

Tying to play with Gnus spliting, I see that gnus-group-split-setup do
not care about gnus-parameters.

I attach a patch to take care of gnus-parameters in
gnus-group-split-fancy.

I define gnus-group-split-prepare-parameters, it take an optional
argument or use gnus-parameters, to return an alist like the (cdr
gnus-newsrc-alist), then I append both in gnus-group-split-fancy.

What do you think about this idea ?

Regards.
-- 
Daniel 'NebuchadnezzaR' Dehennin
Récupérer ma clef GPG:
gpg --keyserver pgp.mit.edu --recv-keys 0x2A408F69

[-- Attachment #2: gnus-group-split-fancy use gnus-parameters --]
[-- Type: text/plain, Size: 1461 bytes --]

Index: gnus-mlspl.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-mlspl.el,v
retrieving revision 7.7
diff -u -r7.7 gnus-mlspl.el
--- gnus-mlspl.el	8 Feb 2006 04:17:15 -0000	7.7
+++ gnus-mlspl.el	29 Sep 2006 14:57:16 -0000
@@ -97,6 +97,21 @@
     (gnus-group-split-update)
     (nnmail-split-fancy)))
 
+(defun gnus-group-split-prepare-parameters 
+  (&optional parameters)
+  "Take the ALIST of parameters or gnus-parameters and create a
+fake newsrc structure to use in gnus-group-split-fancy"
+  (let ((group-params (if parameters
+			  parameters
+			gnus-parameters))
+	newsrc-alist)
+    (dolist (param-assoc group-params newsrc-alist)
+      (let ((group (car param-assoc))
+	    (param (cdr param-assoc)))
+	;; FIXME any better solution than (list (list ?
+	(setq newsrc-alist 
+	      (append newsrc-alist (list (list group nil nil nil nil param))))))))
+
 ;;;###autoload
 (defun gnus-group-split-fancy
   (&optional groups no-crosspost catch-all)
@@ -149,7 +164,8 @@
       (any \"\\\\(foo@nowhere\\\\.gov\\\\|foo@localhost\\\\|foo-redist@home\\\\)\"
 	   - \"bugs-foo\" - \"rambling-foo\" \"mail.foo\"))
    \"mail.others\")"
-  (let* ((newsrc (cdr gnus-newsrc-alist))
+  ;; Use parameters in gnus-parameters too
+  (let* ((newsrc (append (cdr gnus-newsrc-alist) (gnus-group-split-prepare-parameters)))
 	 split)
     (dolist (info newsrc)
       (let ((group (gnus-info-group info))