From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/84016 Path: news.gmane.org!not-for-mail From: Daniel Dehennin Newsgroups: gmane.emacs.gnus.general Subject: Re: [PATCH] Use `gnus-parameters' in `gnus-group-split-fancy' Date: Sat, 28 Dec 2013 02:17:18 +0100 Message-ID: <87k3epg4f5.fsf@hati.baby-gnu.org> References: <87fvpvbj8k.fsf@hati.baby-gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" X-Trace: ger.gmane.org 1388193495 26281 80.91.229.3 (28 Dec 2013 01:18:15 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 28 Dec 2013 01:18:15 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M32268@lists.math.uh.edu Sat Dec 28 02:18:21 2013 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1VwiXl-0000q8-0V for ding-account@gmane.org; Sat, 28 Dec 2013 02:18:21 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1VwiWs-0007Yb-Id; Fri, 27 Dec 2013 19:17:26 -0600 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1VwiWp-0007YJ-EV for ding@lists.math.uh.edu; Fri, 27 Dec 2013 19:17:23 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtps (TLSv1:AES128-SHA:128) (Exim 4.76) (envelope-from ) id 1VwiWo-0001iT-4u for ding@lists.math.uh.edu; Fri, 27 Dec 2013 19:17:23 -0600 Original-Received: from zion.baby-gnu.net ([82.225.168.180] helo=zion.baby-gnu.org) by quimby.gnus.org with esmtp (Exim 4.80) (envelope-from ) id 1VwiWm-000289-AC for ding@gnus.org; Sat, 28 Dec 2013 02:17:20 +0100 Original-Received: from hati.asgardr.info ([192.168.1.2] helo=hati.baby-gnu.org) by zion.baby-gnu.org with esmtp (Exim 4.82) (envelope-from ) id 1VwiWk-0001UG-PH for ding@gnus.org; Sat, 28 Dec 2013 02:17:18 +0100 Organisation: Dark Church of Emacs Mail-Followup-To: ding@gnus.org In-Reply-To: <87fvpvbj8k.fsf@hati.baby-gnu.org> (Daniel Dehennin's message of "Sat, 14 Dec 2013 15:27:39 +0100") User-Agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.3.50 (gnu/linux) X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:84016 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Daniel Dehennin writes: > Hello, > > I use a little patch[1] since years to split groups not only on group > parameters from =E2=80=9Cnewsrc=E2=80=9D but from =E2=80=9Cgnus-parameter= s=E2=80=9D too. > > I found the later easier to manage. > > Following is my pull request, if you want it. Hello, I rebase my patch[1] on latest master and use Gnus utility function =E2=80=9Cgnus-group-find-parameter=E2=80=9D instead of defining a useless n= ew one. Regards. Here is my pull request. The following changes since commit 934f25f8d8801afe315722fd0b0b4ea14bcb1534: Make split tracing work in nnimap groups, too (2013-12-26 17:39:39 +0100) are available in the git repository at: git://git.baby-gnu.net/gnus.git tags/feature/use-gnus-parameters-in-gnus-= group-split-fancy for you to fetch changes up to a33cd267a99c690416b290beb3c37a3e65e19a15: Use `gnus-parameters' in `gnus-group-split-fancy' (2013-12-28 02:16:11 +0= 100) =2D--------------------------------------------------------------- Group splitting does not use =E2=80=9Cgnus-parameters=E2=80=9D This version of the patch use =E2=80=9Cgnus-group-find-parameter=E2=80=9D t= o get parameters from =E2=80=9Cnewsrc=E2=80=9D and from =E2=80=9Cgnus-parameters= =E2=80=9D. =2D--------------------------------------------------------------- Daniel Dehennin (1): Use `gnus-parameters' in `gnus-group-split-fancy' lisp/gnus-mlspl.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-mlspl.el b/lisp/gnus-mlspl.el index 3947c67..0470e5e 100644 =2D-- a/lisp/gnus-mlspl.el +++ b/lisp/gnus-mlspl.el @@ -149,8 +149,8 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\"= ) returns: (let* ((newsrc (cdr gnus-newsrc-alist)) split) (dolist (info newsrc) =2D (let ((group (gnus-info-group info)) =2D (params (gnus-info-params info))) + (let* ((group (gnus-info-group info)) + (params (gnus-group-find-parameter group))) ;; For all GROUPs that match the specified GROUPS (when (or (not groups) (and (listp groups) Footnotes:=20 [1] http://git.baby-gnu.net/gitweb/gitweb.cgi?p=3Dgnus.git;a=3Dtag;h=3Dref= s/tags/feature/use-gnus-parameters-in-gnus-group-split-fancy =2D-=20 Daniel Dehennin R=C3=A9cup=C3=A9rer ma clef GPG: gpg --keyserver pgp.mit.edu --recv-keys 0x7A6FE2DF --=-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v2.0.22 (GNU/Linux) iF4EAREKAAYFAlK+Jp4ACgkQFrLRMcygGkuarAD/Xj9BM2nBml2jA81u6g4IlVI0 q1EFJivWT9xDyE3yZkMA/1ksmSFcxgCtQ1jqFsdFlEJdMqE4QtdgjYyDiCLU0c4+ =PeMA -----END PGP SIGNATURE----- --=-=-=--