# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1483927723 -7200
# Node ID 2484f438b7d3a2854e4d856febfde7e27d4910e2
# Parent  124b97f5a19dce982fb457dd6d1c88b79bc64317
feeds: Use utl_escape() instead of our own copy.

diff -r 124b97f5a19d -r 2484f438b7d3 feeds.tcl
--- a/feeds.tcl	Mon Jan 09 03:55:53 2017 +0200
+++ b/feeds.tcl	Mon Jan 09 04:08:43 2017 +0200
@@ -37,10 +37,6 @@
 
 
 # ------------------------------------------------------------------------
-proc feeds_escape { str } {
-  return [string map {' ''} $str]
-}
-
 proc feeds_smsg {uchan umsg} {
   global feeds_preferredmsg
   putserv "$feeds_preferredmsg $uchan :$umsg"
@@ -166,7 +162,7 @@
   global feeds_dbh
   set ufound 0
 
-  set usql "SELECT url AS uurl, feed AS ufeed, title AS utitle, utime AS utime FROM feeds WHERE feed LIKE '%[string tolower [feeds_escape $utext]]%' ORDER BY utime DESC LIMIT 1"
+  set usql "SELECT url AS uurl, feed AS ufeed, title AS utitle, utime AS utime FROM feeds WHERE feed LIKE '%[string tolower [utl_escape $utext]]%' ORDER BY utime DESC LIMIT 1"
   feeds_dbh eval $usql {
     feeds_smsg $uchan "Uusin '$ufeed' / [feeds_ctime $utime]: $utitle -- $uurl"
     set ufound 1