From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/28771 Path: main.gmane.org!not-for-mail From: Alexandre Oliva Newsgroups: gmane.emacs.gnus.general Subject: gnus-mlspl won't ignore a group when directed to Date: 16 Jan 2000 03:02:26 -0200 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035165558 31567 80.91.224.250 (21 Oct 2002 01:59:18 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:59:18 +0000 (UTC) Return-Path: Original-Received: from bart.math.uh.edu (bart.math.uh.edu [129.7.128.48]) by mailhost.sclp.com (Postfix) with ESMTP id 492F8D051E for ; Sun, 16 Jan 2000 00:07:28 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by bart.math.uh.edu (8.9.1/8.9.1) with ESMTP id XAB08443; Sat, 15 Jan 2000 23:05:54 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 15 Jan 2000 23:05:21 -0600 (CST) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id XAA15731 for ; Sat, 15 Jan 2000 23:05:08 -0600 (CST) Original-Received: from cacau.lsd.ic.unicamp.br (cacau.lsd.ic.unicamp.br [143.106.24.146]) by mailhost.sclp.com (Postfix) with ESMTP id 2D6B5D051E for ; Sun, 16 Jan 2000 00:03:34 -0500 (EST) Original-Received: from garnize.lsd.ic.unicamp.br (IDENT:oliva@garnize.lsd.ic.unicamp.br [143.106.24.140]) by cacau.lsd.ic.unicamp.br (8.9.3/8.9.3) with SMTP id DAA10950 for ; Sun, 16 Jan 2000 03:02:27 -0200 Original-To: ding@gnus.org Original-Lines: 13 User-Agent: Gnus/5.0802 (Gnus v5.8.2) XEmacs/21.1 (Bryce Canyon) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:28771 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:28771 --=-=-= 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 --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=nil-split-spec.patch ? nil-split-spec.patch Index: lisp/ChangeLog from Alexandre Oliva * 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 +;; Author: Alexandre Oliva ;; 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))) --=-=-= -- 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 --=-=-=--