Commit 97f355cc authored by Nicolas Dandrimont's avatar Nicolas Dandrimont

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

darcs-hash:20101122102401-ffbb2-6a8db81f5155a511ad623f2004a25866c5fdde4e.gz
parent 7fbec46e
......@@ -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"))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment