gnus-mlspl won't ignore a group when directed to

gnus-mlspl won't ignore a group when directed to

[Alexandre Oliva]

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

I had failed to implement handling of `(split-spec . nil)'; it would
be considered the same as no split-spec at all.  Will someone with CVS
write access please install the following patch in the gnus CVS tree
for me?  TIA


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: nil-split-spec.patch --]
[-- Type: text/x-patch, Size: 2047 bytes --]

? nil-split-spec.patch
Index: lisp/ChangeLog
from  Alexandre Oliva  <oliva@lsd.ic.unicamp.br>
	
	* gnus-mlspl.el (gnus-group-split-fancy): Arrange that the
	behavior of (split-spec . nil) is as documented, not like no
	split-spec at all.
	
Index: lisp/gnus-mlspl.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-mlspl.el,v
retrieving revision 5.5
diff -u -r5.5 gnus-mlspl.el
--- lisp/gnus-mlspl.el	1999/12/04 01:10:50	5.5
+++ lisp/gnus-mlspl.el	2000/01/16 04:28:56
@@ -1,7 +1,7 @@
 ;;; gnus-mlspl.el --- a group params-based mail splitting mechanism
-;; Copyright (C) 1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1998-2000 Free Software Foundation, Inc.
 
-;; Author: Alexandre Oliva <oliva@dcc.unicamp.br>
+;; Author: Alexandre Oliva <oliva@lsd.ic.unicamp.br>
 ;; Keywords: news, mail
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -134,7 +134,7 @@
 		       (memq group groups))
 		  (and (stringp groups)
 		       (string-match groups group)))
-	  (let ((split-spec (cdr (assoc 'split-spec params))) group-clean)
+	  (let ((split-spec (assoc 'split-spec params)) group-clean)
 	    ;; Remove backend from group name
 	    (setq group-clean (string-match ":" group))
 	    (setq group-clean
@@ -142,12 +142,13 @@
 		      (substring group (1+ group-clean))
 		    group))
 	    (if split-spec
-		(if (eq split-spec 'catch-all)
-		    ;; Emit catch-all only when requested
-		    (when catch-all
-		      (setq catch-all group-clean))
-		  ;; Append split-spec to the main split
-		  (push split-spec split))
+		(when (setq split-spec (cdr split-spec))
+		  (if (eq split-spec 'catch-all)
+		      ;; Emit catch-all only when requested
+		      (when catch-all
+			(setq catch-all group-clean))
+		    ;; Append split-spec to the main split
+		    (push split-spec split)))
 	      ;; Let's deduce split-spec from other params
 	      (let ((to-address (cdr (assoc 'to-address params)))
 		    (to-list (cdr (assoc 'to-list params)))

[-- Attachment #3: Type: text/plain, Size: 281 bytes --]


-- 
Alexandre Oliva http://www.ic.unicamp.br/~oliva IC-Unicamp, Bra[sz]il
oliva@{lsd.ic.unicamp.br,guarana.{org,com}} aoliva@{acm,computer}.org
oliva@{gnu.org,kaffe.org,{egcs,sourceware}.cygnus.com,samba.org}
** I may forward mail about projects to mailing lists; please use them