crans/scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
darcs-hash:20101122102401-ffbb2-6a8db81f5155a511ad623f2004a25866c5fdde4e.gz
This commit is contained in:
Nicolas Dandrimont 2010-11-22 11:24:01 +01:00
parent 7fbec46e7a
commit 97f355cc4b
1 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
news/moderation.el
View file

@ -18,18 +18,13 @@
gnus-agent nil) gnus-agent nil)
; Comment souscrire à un nouveau groupe ? ; 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 (setq
; On utilise la methode ci-dessus pour s'inscrire aux nouveaux groupes ; 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 ; On s'inscrit automatiquement à tous les groupes
gnus-auto-subscribed-groups "^nntp" gnus-auto-subscribed-groups ".*"
; Uniquement les groupes CRANS )
gnus-options-subscribe "^crans\..*")
(require 'message) (require 'message)
(require 'mml) (require 'mml)
@ -40,8 +35,7 @@
(save-restriction (save-restriction
(message-narrow-to-head-1) (message-narrow-to-head-1)
(let ((newsgroups (message-fetch-field "Newsgroups"))) (let ((newsgroups (message-fetch-field "Newsgroups")))
(if (and newsgroups (if newsgroups
(string-match "crans\.[a-z-]*" newsgroups))
; OK ; OK
t t
(error "Ce message n'est pas dans un groupe CRANS")))))) (error "Ce message n'est pas dans un groupe CRANS"))))))