From 4d54bce621d8574cf3450a3c0565b0b63d1fca8f 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 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mod_announce.erl b/src/mod_announce.erl
index d270a6e4e..fa3ce20ec 100644
--- a/src/mod_announce.erl
+++ b/src/mod_announce.erl
@@ -571,7 +571,7 @@ handle_adhoc_form(From, #jid{lserver = LServer} = To,
 			       node = Node,
 			       sessionid = SessionID,
 			       status = completed},
-    Packet = {xmlelement, "message", [{"type", "normal"}], 
+    Packet = {xmlelement, "message", [{"type", "headline"}],
 	      if Subject /= [] ->
 		      [{xmlelement, "subject", [], 
 			[{xmlcdata, Subject}]}];
@@ -964,7 +964,7 @@ send_announcement_to_all(Host, SubjectS, BodyS) ->
 		 true ->
 		      []
 	      end,
-    Packet = {xmlelement, "message", [{"type", "normal"}], SubjectEls ++ BodyEls},
+    Packet = {xmlelement, "message", [{"type", "headline"}], SubjectEls ++ BodyEls},
     Sessions = ejabberd_sm:dirty_get_sessions_list(),
     Local = jlib:make_jid("", Host, ""),
     lists:foreach(