[moderation.el] On modère aussi les tac.

darcs-hash:20101122102401-ffbb2-6a8db81f5155a511ad623f2004a25866c5fdde4e.gz

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