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

[Andreas Fuchs]

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

Modified Files:
	application.lisp 
Log Message:
don't do anything on /say <nothing>.

Date: Sun Sep 25 19:58:14 2005
Author: afuchs

Index: beirc/application.lisp
diff -u beirc/application.lisp:1.7 beirc/application.lisp:1.8
--- beirc/application.lisp:1.7	Sun Sep 25 19:55:26 2005
+++ beirc/application.lisp	Sun Sep 25 19:58:14 2005
@@ -367,13 +367,13 @@
       (current-channel)))
 
 (define-beirc-command (com-say :name t) ((what 'mumble))
-  ;; make a fake IRC-PRIV-MESSAGE object
-  (post-message *application-frame*
-                (make-fake-irc-message 'irc:irc-privmsg-message
-                                       :trailing-argument what
-                                       :arguments (list (target))
-                                       :command "PRIVMSG"))
-  (irc:privmsg (current-connection *application-frame*) (target) what))
+  (unless (string= what "")
+    (post-message *application-frame*
+                  (make-fake-irc-message 'irc:irc-privmsg-message
+                                         :trailing-argument what
+                                         :arguments (list (target))
+                                         :command "PRIVMSG"))
+    (irc:privmsg (current-connection *application-frame*) (target) what)))
 
 (define-beirc-command (com-nick :name t) ((new-nick 'string :prompt "new nick"))
   (setf (slot-value *application-frame* 'nick) new-nick) ;This is _not_ the way to do it.