[gnus git] branch master updated: =1= (message-setup-1): Revert previous change, since it needs to bind the props to insert them.

       via  11fb97473a0d60aeab2116f037744f0badff0b9c (commit)
      from  2a000c5fd3c6662f4f1487cac7a965c84502783c (commit)


- Log -----------------------------------------------------------------
commit 11fb97473a0d60aeab2116f037744f0badff0b9c
Author: Lars Ingebrigtsen <[email protected]>
Date:   Fri Feb 4 01:21:28 2011 -0800

    (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 ab79e94..ebf0777 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  <[email protected]>
 
diff --git a/lisp/message.el b/lisp/message.el
index 1111d2c..44c99c0 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)))
+  (let ((message-forbidden-properties nil))
   (insert (propertize (concat mail-header-separator "\n")
-		      'read-only t 'rear-nonsticky t 'intangible t))
+			'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.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    2 ++
 lisp/message.el |    7 ++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project