Index: openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl	24 Jul 2018 12:57:33 -0000	1.11
+++ openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl	1 Apr 2019 13:15:51 -0000	1.12
@@ -255,22 +255,11 @@
                 of that URL.
     @return A Tcl array-list data structure.
 } {
-    # Unless we have explicit encoding information, we'll assume UTF-8
-    if { [regexp {^[[:space:]]*<\?xml[^>]+encoding="([^"]*)"} $xml match encoding] } {
-        set encoding [string tolower $encoding]
-        set tcl_encoding [ns_encodingforcharset $encoding]
-        if { $tcl_encoding ne "" } {
-            set xml [encoding convertfrom $tcl_encoding $xml]
-        }
-    }
-
     # Prefill these slots for errors
     set result(channel) ""
     set result(items) ""
 
     if { [catch {
-        # Pre-process the doc and remove any processing instruction
-        regsub {^<\?xml [^\?]+\?>} $xml {<?xml version="1.0"?>} xml
         set doc [dom parse $xml]
         set doc_node [$doc documentElement]
         set node_name [$doc_node nodeName]