Send announce Message stanzas as Headline type instead of Normal

diff --git a/src/mod_announce.erl b/src/mod_announce.erl
index d270a6e4ec0a5ba0a7bfa7cb1588019e6c623b67..fa3ce20ec408b54e07104b285d2e4201c5ed5656 100644 (file)
--- 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(