3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2020 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) {
19 * @param int $id_message
22 function action_envoyer_message_dist($id_message = null) {
24 if (is_null($id_message)) {
25 $securiser_action = charger_fonction('securiser_action', 'inc');
26 $id_message = $securiser_action();
29 include_spip('inc/autoriser');
30 if (intval($id_message)
31 and $type = sql_getfetsel('type', 'spip_messages', 'id_message=' . intval($id_message))
32 and autoriser('envoyermessage', $type, $id_message)
34 include_spip('action/editer_objet');
35 objet_modifier('message', $id_message, array('statut' => 'publie'));