From 87e4e72aa42714f7a1c3b8c25d1b88970038a4f9 Mon Sep 17 00:00:00 2001 From: fredrik Date: Sun, 30 Oct 2005 18:28:39 +0000 Subject: [PATCH] Flag private messages. git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@432 959494ce-11ee-0310-bf91-de5d638817bd --- lib/guile/chatlog | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/guile/chatlog b/lib/guile/chatlog index 0c5b097..e94e9c3 100755 --- 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)) )) -- 2.11.0