Evaluated proc rquotetopic {} {set topic [rpick [nsplit [strip_all [irclog_no_tcl 25]]]]; groove topic [channel] $topic;}