Revert "message: insert mail-header-separator read-only and intangible"

This reverts commit a314569677d5b1c7197c7bd335ddc685795be1e5.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ea9425..894bc72 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -9,8 +9,6 @@
 
        * message.el (message-setup-1): Always generate References first.
        (message-mail): Return the return value of message-setup, not always t.
-       (message-setup-1): Insert mail-header-separator with read-only and
-       intangible properties set.
 
        * gnus.el (gnus-summary-line-format): Add missing semi-colon for
        user-date in docstring.

diff --git a/lisp/message.el b/lisp/message.el
index 595a803..42ca73c 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6444,9 +6444,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 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.