Attachment "tkchat.patch" to
ticket [1985214fff]
added by
matzek
2008-06-05 15:26:19.
Index: tkchat.tcl
===================================================================
RCS file: /cvsroot/tcllib/tclapps/apps/tkchat/tkchat.tcl,v
retrieving revision 1.432
diff -u -r1.432 tkchat.tcl
--- tkchat.tcl 23 May 2008 18:51:46 -0000 1.432
+++ tkchat.tcl 5 Jun 2008 08:08:29 -0000
@@ -3431,7 +3431,7 @@
lappend txt [list \
"Send private message to a user identified by nickname or JID"]
- lappend txt "/whisper ?reason?"
+ lappend txt "/whisper <nick|JID> <text>"
lappend txt [list "Synonym for /msg"]
lappend txt "/chat <nick|JID> ?text?"
@@ -4185,7 +4185,7 @@
}
{^/back} {
set status ""
- regexp {^/status\s*(.*)$} $msg -> status
+ regexp {^/back\s*(.*)$} $msg -> status
::tkjabber::back $status
}
{^/quit$} {
