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"))))))