From 97f355cc4b87a421c2d4e6d21f62951fc94b90ee Mon Sep 17 00:00:00 2001 From: Nicolas Dandrimont Date: Mon, 22 Nov 2010 11:24:01 +0100 Subject: [PATCH] =?UTF-8?q?[moderation.el]=20On=20mod=C3=A8re=20aussi=20le?= =?UTF-8?q?s=20tac.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit darcs-hash:20101122102401-ffbb2-6a8db81f5155a511ad623f2004a25866c5fdde4e.gz --- news/moderation.el | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/news/moderation.el b/news/moderation.el index d002fd44..0823a57e 100644 --- a/news/moderation.el +++ b/news/moderation.el @@ -18,18 +18,13 @@ gnus-agent nil) ; Comment souscrire à un nouveau groupe ? -(defun crans-gnus-subscribe-alphabetically (newgroup) - (if (string-match "^crans\..*" newgroup) - (gnus-subscribe-alphabetically newgroup) - (gnus-subscribe-zombies newgroup))) (setq ; On utilise la methode ci-dessus pour s'inscrire aux nouveaux groupes - gnus-subscribe-newsgroup-method 'crans-gnus-subscribe-alphabetically + gnus-subscribe-newsgroup-method 'gnus-subscribe-alphabetically ; On s'inscrit automatiquement à tous les groupes - gnus-auto-subscribed-groups "^nntp" - ; Uniquement les groupes CRANS - gnus-options-subscribe "^crans\..*") + gnus-auto-subscribed-groups ".*" + ) (require 'message) (require 'mml) @@ -40,8 +35,7 @@ (save-restriction (message-narrow-to-head-1) (let ((newsgroups (message-fetch-field "Newsgroups"))) - (if (and newsgroups - (string-match "crans\.[a-z-]*" newsgroups)) + (if newsgroups ; OK t (error "Ce message n'est pas dans un groupe CRANS"))))))