Hi
I've downloaded SayIt from SVN, but the junkfilter didn't seem to work. There were two problems. First (at least for me) it failed to fetch the emoticons. Second, when I fixed that, it removed smileys only when they were separated with spaces on both sides (due to the messages being treated as lists).
Here are the changes I applied to sayit.tcl. There's probably a way to read the emoticons directly from aMSN instead of hardcoding them, but I'm not fluent in TCL/TK yet.
# junkfilter
#
# remove smileys
set smileys [list ":P" ":O" ":S" ";P" ":D" "=P" "=O" "=S" "=D" ":8" ":)" ":(" ";)" ":'("]
if { ($config(junkfilter)) } {
foreach smiley $smileys {
set msg [string map [list $smiley {}] $msg]
}
}
# Some Hungarian specific MSN shorthands
set msg [string map [list vhol valahol vmi valamit vki valaki vmikor valamikor " h " " hogy " tom tudom vok vagyok hhogy hogy-hogy sztem szerintem szted szerinted] $msg]
set msg [string map [list " h " " hogy "] $msg]
Regards
EDIT: The idea to hard-code the smileys isn't mine, I've found it at
http://osdir.com/ml/network.instant-messaging.amsn.devel/2006-01/msg00138.html
