[bknr-cvs] r2058 - trunk/bknr/src/web

[bknr at bknr.net]

Author: hhubner
Date: 2006-11-05 15:56:25 -0500 (Sun, 05 Nov 2006)
New Revision: 2058

Modified:
   trunk/bknr/src/web/rss-handlers.lisp
Log:
Try to properly specify encoding for RSS feed, does not yet work.


Modified: trunk/bknr/src/web/rss-handlers.lisp
===================================================================
--- trunk/bknr/src/web/rss-handlers.lisp	2006-11-05 20:51:58 UTC (rev 2057)
+++ trunk/bknr/src/web/rss-handlers.lisp	2006-11-05 20:56:25 UTC (rev 2058)
@@ -9,7 +9,7 @@
   (error "invalid channel name"))
 
 (defmethod handle-object ((handler rss-handler) (channel bknr.rss:rss-channel) req)
-  (with-bknr-http-response (req :content-type "text/xml")
+  (with-bknr-http-response (req :content-type "text/xml; charset=UTF-8")
     (with-http-body (req *ent*)
-      (html (:princ "<?xml version=\"1.0\"?>")
+      (html (:princ "<?xml version=\"1.0\" encoding=\"UTF-8\"?>")
 	    (bknr.rss:rss-channel-xml channel *html-stream*)))))