X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmessage.el;h=595a803fafbba3ec5109713912ea20d9ee6eb4cc;hb=bd10f37e4630719920f82122d7c7ae7523567762;hp=42ca73c2ffc80c4a76e04f04eeeb5026ea69d530;hpb=4d798bad11b7ace2cd00a63e5535d02c4fb2119b;p=gnus

diff --git a/lisp/message.el b/lisp/message.el
index 42ca73c2f..595a803fa 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -6444,7 +6444,9 @@ are not included."
          (funcall message-default-headers)
        message-default-headers))
     (or (bolp) (insert ?\n)))
-  (insert mail-header-separator "\n")
+  (let ((message-forbidden-properties nil))
+    (insert (propertize (concat mail-header-separator "\n")
+                        'read-only t 'rear-nonsticky t 'intangible t)))
   (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.