From 4f932e2287ac59d4283bd99c68613be28b986f3b Mon Sep 17 00:00:00 2001
From: bernat <none>
Date: Sun, 22 Oct 2006 11:04:44 +0200
Subject: [PATCH] On ne lance pas ce script en tant que root.

darcs-hash:20061022090444-d1718-0a4e0a4e1a5ba4963c19662e42562a3bac84a3d0.gz
---
 news/moderation.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/news/moderation.el b/news/moderation.el
index 18ef6839..d002fd44 100644
--- a/news/moderation.el
+++ b/news/moderation.el
@@ -52,6 +52,8 @@
   (interactive)
   (unless (message-news-p)
     (error "Il n'est pas possible d'annuler cet article"))
+  (unless (not (eq (user-uid) 0))
+    (error "Ce script ne se lance pas en tant que root"))
   (let (from newsgroups message-id distribution origbuf buf subject)
     (setq origbuf (buffer-name))
     (save-excursion