Index: application.lisp
===================================================================
RCS file: /project/beirc/cvsroot/beirc/application.lisp,v
retrieving revision 1.84
diff -u -r1.84 application.lisp
--- application.lisp	31 May 2006 19:35:39 -0000	1.84
+++ application.lisp	31 May 2006 21:10:38 -0000
@@ -681,6 +681,13 @@
     ((what 'mumble))
   (com-msg (target) what))
 
+(define-beirc-command (com-quote :name t)
+    ((what 'mumble :prompt "Text"))                  
+  (let ((stream (irc:output-stream (current-connection *application-frame*))))
+    (write-sequence what stream)
+    (terpri stream)
+    (force-output stream)))
+
 (define-beirc-command (com-me :name t) ((what 'mumble :prompt nil))
   (let ((m (make-fake-irc-message 'irc:ctcp-action-message
                                     :trailing-argument
