* message.el (message-setup-1): Remove the read-only stuff, since it doesn't work...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24cf7dd..15019d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-04  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * message.el (message-setup-1): Remove the read-only stuff, since it
+       doesn't work under XEmacs, for some reason.
+
        * gnus-sum.el (gnus-user-date): Renamed back from
        gnus-summary-user-date since user code refers to it.
 

diff --git a/lisp/message.el b/lisp/message.el
index 1a7317f..b9e9c04 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6455,9 +6455,7 @@ are not included."
          (funcall message-default-headers)
        message-default-headers))
     (or (bolp) (insert ?\n)))
-  (let ((message-forbidden-properties nil))
-    (insert (propertize (concat mail-header-separator "\n")
-                       'read-only t 'rear-nonsticky t 'intangible t)))
+  (insert (concat mail-header-separator "\n"))
   (forward-line -1)
   ;; If a crash happens while replying, the auto-save file would *not* have a
   ;; `References:' header if `message-generate-headers-first' was nil.