[Cl-irc-cvs] CVS update: cl-irc/example/specbot.lisp

[Brian Mastenbrook]

Update of /project/cl-irc/cvsroot/cl-irc/example
In directory common-lisp.net:/home/bmastenbrook/cl-irc/example

Modified Files:
	specbot.lisp 
Log Message:
Fix help for /msg

Date: Tue Oct 26 03:38:49 2004
Author: bmastenbrook

Index: cl-irc/example/specbot.lisp
diff -u cl-irc/example/specbot.lisp:1.8 cl-irc/example/specbot.lisp:1.9
--- cl-irc/example/specbot.lisp:1.8	Wed Oct 20 22:21:33 2004
+++ cl-irc/example/specbot.lisp	Tue Oct 26 03:38:49 2004
@@ -1,4 +1,4 @@
-;;;; $Id: specbot.lisp,v 1.8 2004/10/20 20:21:33 bmastenbrook Exp $
+;;;; $Id: specbot.lisp,v 1.9 2004/10/26 01:38:49 bmastenbrook Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $
 
 ;;;; specbot.lisp - an example IRC bot for cl-irc
@@ -97,7 +97,9 @@
                          (source message)
                          (first (arguments message))))
         (to-lookup (strip-address (trailing-argument message))))
-    (if (and (not (string= to-lookup (trailing-argument message)))
+    (if (and (or
+              (string-equal (first (arguments message)) *nickname*)
+              (not (string= to-lookup (trailing-argument message))))
              (member to-lookup '("help" "help?") :test #'string-equal))
         (progn
           (privmsg *connection* destination