Visning av tiden när man får personligt/allmänt meddelande

src/async.el

@@ -286,13 +286,15 @@ Args: SENDER: conf-stat for the person issuing the broadcast message or a
 		       ((stringp sender) sender)
 		       (sender (conf-stat->name sender))
 		       (t (lyskom-get-string 'unknown)))
-		      message)
+		      message
+		      (substring (current-time-string) 11 19))
      (lyskom-format 'message-from
 		      (cond
 		       ((stringp sender) sender)
 		       (sender (conf-stat->name sender))
 		       (t (lyskom-get-string 'unknown)))
-		      message)))
+		      message
+		      (substring (current-time-string) 11 19))))
   (lyskom-insert-before-prompt
    "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n")
   (beep))

src/swedish-strings.el

@@ -436,8 +436,8 @@ upptagna. Logga ut och kom tillbaks senare om du v
     (broadcast-from . "Allmnt meddelande frn %#1s:\n\n%#2s\n")
     (unknown . "oknd")
 
-    (message-broadcast . "Allmnt meddelande frn %#1s:\n\n%#2s\n")
-    (message-from . "Personligt meddelande frn %#1s:\n\n%#2s\n")
+    (message-broadcast . "Allmnt meddelande frn %#1s (%#3s):\n\n%#2s\n")
+    (message-from . "Personligt meddelande frn %#1s (%#3s):\n\n%#2s\n")
     (text-is-created . "Text %#1d r skapad!")