From: Badlop <badlop@process-one.net>
Date: Tue, 24 Jul 2012 16:35:41 +0000 (+0200)
Subject: Send announce Message stanzas as Headline type instead of Normal
X-Git-Tag: v2.1.12~23
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=4d54bce621d8574cf3450a3c0565b0b63d1fca8f;p=ejabberd

Send announce Message stanzas as Headline type instead of Normal
---

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(