--- a/fetch_feeds.tcl	Sun Jan 08 03:52:40 2017 +0200
+++ b/fetch_feeds.tcl	Sun Jan 08 03:55:55 2017 +0200
@@ -110,13 +110,13 @@
   }
   set upage [::http::data $utoken]
   ::http::cleanup $utoken
-  
+
   set umatches [regexp -all -nocase -inline -- "<item>.\*\?<title><..CDATA.(.\*\?)\\\]\\\]></title>.\*\?<link>(http.\*\?)</link>.\*\?</item>" $upage]
   set nmatches [llength $umatches]
   for {set n 0} {$n < $nmatches} {incr n 3} {
     add_entry $dataname $dataprefix [lindex $umatches [expr $n+2]] [lindex $umatches [expr $n+1]]
   }
-  
+
   if {$nmatches == 0} {
   set umatches [regexp -all -nocase -inline -- "<item>.\*\?<title>(.\*\?)</title>.\*\?<link>(http.\*\?)</link>.\*\?</item>" $upage]
   set nmatches [llength $umatches]