From 674ab277000d367e57540536e98fc213b84ebd48 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 24 Jul 2012 18:35:41 +0200
Subject: [PATCH] Send announce Message stanzas as Headline type instead of
 Normal

---
 src/mod_announce.erl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/mod_announce.erl b/src/mod_announce.erl
index 7327f9c9b..575cb48de 100644
--- a/src/mod_announce.erl
+++ b/src/mod_announce.erl
@@ -35,7 +35,7 @@
 -export([start/2,
 	 init/0,
 	 stop/1,
-         export/1,
+	 export/1,
 	 announce/3,
 	 send_motd/1,
 	 disco_identity/5,
@@ -598,7 +598,7 @@ handle_adhoc_form(From, #jid{lserver = LServer} = To,
 			       status = completed},
     Packet = #xmlel{
         name     = <<"message">>,
-        attrs    = [{<<"type">>, <<"normal">>}],
+        attrs    = [{<<"type">>, <<"headline">>}],
         children = if Subject /= <<>> ->
             [#xmlel{name = <<"subject">>, children = [{xmlcdata, Subject}]}];
         true ->
@@ -991,7 +991,7 @@ send_announcement_to_all(Host, SubjectS, BodyS) ->
     end,
     Packet = #xmlel{
         name     = <<"message">>,
-        attrs    = [{<<"type">>, <<"normal">>}],
+        attrs    = [{<<"type">>, <<"headline">>}],
         children = SubjectEls ++ BodyEls
     },
     Sessions = ejabberd_sm:dirty_get_sessions_list(),