From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 4 Feb 2011 09:21:28 +0000 (-0800)
Subject: (message-setup-1): Revert previous change, since it needs to bind the props to insert... 
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=11fb97473a0d60aeab2116f037744f0badff0b9c

(message-setup-1): Revert previous change, since it needs to bind the props to insert them.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab79e943f..ebf077733 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* message.el (message-setup-1): Don't bind the constant
 	-forbidden-properties.
+	(message-setup-1): Revert previous change, since it needs to bind the
+	props to insert them.
 
 2011-02-03  Lars Ingebrigtsen  <larsi@gnus.org>
 
diff --git a/lisp/message.el b/lisp/message.el
index 1111d2ca4..44c99c066 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2819,7 +2819,7 @@ message composition doesn't break too bad."
   :link '(custom-manual "(message)Various Message Variables")
   :type 'boolean)
 
-(defconst message-forbidden-properties
+(defvar message-forbidden-properties
   ;; No reason this should be clutter up customize.  We make it a
   ;; property list (rather than a list of property symbols), to be
   ;; directly useful for `remove-text-properties'.
@@ -6455,8 +6455,9 @@ are not included."
          (funcall message-default-headers)
        message-default-headers))
     (or (bolp) (insert ?\n)))
-  (insert (propertize (concat mail-header-separator "\n")
-		      'read-only t 'rear-nonsticky t 'intangible t))
+  (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.