[gnus git] branch master updated: m0-9-10-g4c0501d =2= Allow using `gnus-parameters' while splitting mail ; Allow using `gnus-parameters' while splitting mail

       via  4c0501dfcb160830f46ebd33468dfe04720685aa (commit)
       via  cfa942d8da08c96017372d2cb80f3a4b590ba135 (commit)
      from  d21beff04fb6fe6bb1da6c4ada3093a2d204b204 (commit)


- Log -----------------------------------------------------------------
commit 4c0501dfcb160830f46ebd33468dfe04720685aa
Author: Daniel Dehennin <[email protected]>
Date:   Fri Jan 31 16:39:24 2014 -0800

    Allow using `gnus-parameters' while splitting mail
    
    * gnus-mlspl.el (gnus-group-split-fancy): Use `gnus-parameters' in
    `gnus-group-split-fancy'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 663cb66..81ae090 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-01  Daniel Dehennin  <[email protected]>
+
+	* gnus-mlspl.el (gnus-group-split-fancy): Use `gnus-parameters' in
+	`gnus-group-split-fancy'.
+
 2014-02-01  Lars Ingebrigtsen  <[email protected]>
 
 	* message.el (message-remove-header): Doc fix.

commit cfa942d8da08c96017372d2cb80f3a4b590ba135
Author: Daniel Dehennin <[email protected]>
Date:   Fri Jan 31 16:39:15 2014 -0800

    Allow using `gnus-parameters' while splitting mail
    
    * gnus-mlspl.el (gnus-group-split-fancy): Use `gnus-parameters' in
    `gnus-group-split-fancy'.

diff --git a/lisp/gnus-mlspl.el b/lisp/gnus-mlspl.el
index 8dec6f2..2d86d0b 100644
--- a/lisp/gnus-mlspl.el
+++ b/lisp/gnus-mlspl.el
@@ -146,17 +146,24 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns:
       (any \"\\\\(foo@nowhere\\\\.gov\\\\|foo@localhost\\\\|foo-redist@home\\\\)\"
 	   - \"bugs-foo\" - \"rambling-foo\" \"mail.foo\"))
    \"mail.others\")"
-  (let* ((newsrc (cdr gnus-newsrc-alist))
-	 split)
-    (dolist (info newsrc)
-      (let ((group (gnus-info-group info))
-	    (params (gnus-info-params info)))
-	;; For all GROUPs that match the specified GROUPS
-	(when (or (not groups)
-		  (and (listp groups)
-		       (memq group groups))
+  (let ((group-names (if (and (listp groups)
+                             (not (null groups)))
+			 groups
+		       (delete-dups
+			(delq nil
+			      (mapcar
+			       (lambda (info)
+				 (let ((group (gnus-info-group info)))
+				   (if (or (not groups)
 					   (and (stringp groups)
 						(string-match groups group)))
+				       group)))
+			       (append gnus-newsrc-alist gnus-parameters))))))
+       split)
+    (dolist (group group-names)
+      (let ((params (gnus-group-find-parameter group)))
+       ;; Skip groups without param (or nonexistent)
+       (when (not (null params))
          (let ((split-spec (assoc 'split-spec params)) group-clean)
            ;; Remove backend from group name
            (setq group-clean (string-match ":" group))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |    5 +++++
 lisp/gnus-mlspl.el |   35 +++++++++++++++++++++--------------
 2 files changed, 26 insertions(+), 14 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project