Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -r1.19.2.13 -r1.19.2.14
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	20 Jun 2006 22:10:06 -0000	1.19.2.13
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	6 Jul 2006 19:55:23 -0000	1.19.2.14
@@ -371,7 +371,8 @@
     set package_id_templating [apm_package_id_from_key "acs-templating"]
 
     set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]]
-    if { [string first "safari" $user_agent] != -1 } { 
+    if { [string first "safari" $user_agent] != -1 ||
+	 [string first "opera"  $user_agent] != -1 } { 
       set htmlarea_p 0
     } elseif { [exists_and_not_null element(htmlarea_p)] } {
       set htmlarea_p [template::util::is_true $element(htmlarea_p)]