Flag private messages.

git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@432 959494ce-11ee-0310-bf91-de5d638817bd

diff --git a/lib/guile/chatlog b/lib/guile/chatlog
index 0c5b097..e94e9c3 100755 (executable)
--- a/lib/guile/chatlog
+++ b/lib/guile/chatlog
@@ -118,7 +118,7 @@
                                                    (set! last-fn (vector-ref ires 0))))
                                         (for-each
                                          (lambda (p)
-                                           (write-line (string-append (strftime "%H:%M:%S" (localtime (current-time))) ": <" (vector-ref ires 3) "> " (vector-ref ires 4)) p))
+                                           (write-line (string-append (strftime "%H:%M:%S" (localtime (current-time))) (if (eq? (vector-ref ires 1) 0) "!" ":") " <" (vector-ref ires 3) "> " (vector-ref ires 4)) p))
                                          (list p (current-output-port)))
                                         (close-port p))
                                       ))