[beirc-cvs] CVS beirc

[afuchs]

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv11414

Modified Files:
	message-display.lisp 
Log Message:
use medium-ink instead of medium-foreground to find the ink color.


--- /project/beirc/cvsroot/beirc/message-display.lisp	2006/03/27 21:42:41	1.42
+++ /project/beirc/cvsroot/beirc/message-display.lisp	2006/03/27 21:46:31	1.43
@@ -248,7 +248,7 @@
         record))))
 
 (defun format-message* (mumble &key (limit *default-fill-column*) (start-length 0))
-  (let ((foreground-color (medium-foreground *standard-output*))
+  (let ((foreground-color (medium-ink *standard-output*))
         (background-color (medium-background *standard-output*))
         (bold nil)
         (underline nil)