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)