[beirc-cvs] CVS beirc

[afuchs]

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

Modified Files:
	message-display.lisp 
Log Message:
Speed up updating output by storing an sxhashed value.

Also, force re-draw of messages that are actually affected by nick
focussing and ignore states.


--- /project/beirc/cvsroot/beirc/message-display.lisp	2006/03/12 09:48:57	1.39
+++ /project/beirc/cvsroot/beirc/message-display.lisp	2006/03/24 21:07:20	1.40
@@ -53,14 +53,14 @@
                              (nth-value 1 (decode-universal-time (irc:received-time message)))))))))
       (updating-output (stream* 
                         :cache-value
-                        (list message
-                              (focused-nicks receiver)
-                              (slot-value *application-frame* 'ignored-nicks)
-                              width
-                              *max-preamble-length*
-                              *timestamp-column-orientation*
-                              *default-fill-column*)
-                        :cache-test #'equal)
+                        (sxhash (list message
+                                      (message-from-focused-nick-p message receiver)
+                                      (message-from-ignored-nick-p message receiver)
+                                      width
+                                      *max-preamble-length*
+                                      *timestamp-column-orientation*
+                                      *default-fill-column*))
+                        :cache-test #'eql)
         (formatting-row (stream*)
           (output-timestamp-column :left)
           (formatting-cell (stream* :align-x :right :min-width '(3 :character))