[gnus git] branch master updated: =1= message: insert mail-header-separator read-only and intangible

       via  a314569677d5b1c7197c7bd335ddc685795be1e5 (commit)
      from  6b8618c37ea40d17e896d25be5715bc213712f4a (commit)


- Log -----------------------------------------------------------------
commit a314569677d5b1c7197c7bd335ddc685795be1e5
Author: Julien Danjou <[email protected]>
Date:   Thu Feb 3 16:26:11 2011 +0100

    message: insert mail-header-separator read-only and intangible
    
    Signed-off-by: Julien Danjou <[email protected]>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2ebdea..8731002 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* 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 42ca73c..595a803 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.

-----------------------------------------------------------------------
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 |    4 +++-
 2 files changed, 5 insertions(+), 1 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