[beirc-cvs] CVS update: beirc/application.lisp beirc/receivers.lisp

[Andreas Fuchs]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv16324

Modified Files:
	application.lisp receivers.lisp 
Log Message:
change (EQL input-context 'hostmask) to (presenation-subtypep i-c 'h);.

Date: Thu Sep 29 16:51:25 2005
Author: afuchs

Index: beirc/application.lisp
diff -u beirc/application.lisp:1.16 beirc/application.lisp:1.17
--- beirc/application.lisp:1.16	Wed Sep 28 21:40:07 2005
+++ beirc/application.lisp	Thu Sep 29 16:51:25 2005
@@ -497,7 +497,7 @@
     (nickname hostmask beirc
               :tester ((object context-type)
                        (declare (ignore object))
-                        (eql context-type 'hostmask)))
+                        (presentation-subtypep context-type 'hostmask)))
     (object)
   (format nil "*!*@~A" (irc:hostname (irc:find-user (current-connection *application-frame*) object))))
 


Index: beirc/receivers.lisp
diff -u beirc/receivers.lisp:1.7 beirc/receivers.lisp:1.8
--- beirc/receivers.lisp:1.7	Tue Sep 27 22:53:41 2005
+++ beirc/receivers.lisp	Thu Sep 29 16:51:25 2005
@@ -103,9 +103,9 @@
                              (target (if (equal nominal-target mynick)
                                          (irc:source message)
                                          nominal-target)))
-                    (if (or (find-receiver (irc:source message) frame)
+                    (if (or (find-receiver target frame)
                             (not (from-network-service-p (irc:source message) frame))
-                            (and (string= nominal-target target)
+                            (and (eql nominal-target target)
                                  (not (global-notice-p message nominal-target))))
                         (intern-receiver target frame :channel target)
                         (server-receiver frame))))))
@@ -171,6 +171,7 @@
       irc:irc-rpl_whoischannels-message
       irc:irc-rpl_whoisserver-message
       irc:irc-rpl_whoisidentified-message
+      irc:irc-rpl_away-message
       irc:irc-err_nosuchnick-message))
 
 (macrolet ((define-ignore-message-types (&rest mtypes)