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

[Moderation] On prend aussi le champs "Approved" pour pouvoir annuler les messages sur crans.crans.annonces

Browse source
This commit is contained in:
Raphael Cauderlier 2014-03-13 18:50:17 +01:00
parent eb4f22fd61
commit 5cdf043826
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
news/moderation.el
View file

@ -58,7 +58,8 @@
newsgroups (message-fetch-field "newsgroups")
subject (message-fetch-field "subject")
message-id (message-fetch-field "message-id" t)
distribution (message-fetch-field "distribution")))
distribution (message-fetch-field "distribution")
approved (message-fetch-field "approved")))
;; Make sure that this article was written by the user.
(unless (message-is-yours-p)
(error "Impossible d'annuler cet article"))
@ -73,6 +74,9 @@
(if distribution
(concat "Distribution: " distribution "\n")
"")
(if approved
(concat "Approved: " approved "\n")
"")
mail-header-separator "\n"
message-cancel-message)