Mark message as seen directly in message dialog function for realm bu…

…lletins

base/townManagement.lua

@@ -248,7 +248,7 @@ function townProperties(user, toolTown, SourceItem)
     user:requestSelectionDialog(dialog)
 end
 
-function TownAnnouncement(user, toolTown)
+local function messageSeen(user, toolTown)
 
     local townNames = {"Cadomyr", "Runewick", "Galmair"}
     local townBoardQuestIds = {Runewick = 256, Cadomyr = 257, Galmair = 258}
@@ -261,6 +261,11 @@ function TownAnnouncement(user, toolTown)
     if foundLatest and tonumber(latest) ~= lastSeen then
         user:setQuestProgress(townQuestId, tonumber(latest))
     end
+end
+
+function TownAnnouncement(user, toolTown)
+
+    messageSeen(user, toolTown)
 
     -- selection dialog
     local callback = function(dialog)
@@ -292,6 +297,8 @@ end
 
 function TownAnnouncementShow(User,toolTown)
 
+    messageSeen(User, toolTown)
+
     -- message dialog
     local callback = function() end --empty callback
     local title = common.GetNLS(User, "Derzeitige Ankündigung", "Current announcement")