[gnus git] branch master updated: =1= * message.el (message-setup-1): Don't bind the constant -forbidden-properties.

       via  2a000c5fd3c6662f4f1487cac7a965c84502783c (commit)
      from  7fa6b3db3cebd6fa64684f1cd4535653501f22bb (commit)


- Log -----------------------------------------------------------------
commit 2a000c5fd3c6662f4f1487cac7a965c84502783c
Author: Lars Ingebrigtsen <[email protected]>
Date:   Fri Feb 4 01:18:50 2011 -0800

    * message.el (message-setup-1): Don't bind the constant -forbidden-properties.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0eae505..ab79e94 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-04  Lars Ingebrigtsen  <[email protected]>
+
+	* message.el (message-setup-1): Don't bind the constant
+	-forbidden-properties.
+
 2011-02-03  Lars Ingebrigtsen  <[email protected]>
 
 	* nnimap.el (nnimap-request-accept-article): Give an error message if
diff --git a/lisp/message.el b/lisp/message.el
index 595a803..1111d2c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -129,6 +129,17 @@
   :group 'message-buffers
   :type '(choice function (const nil)))
 
+(defcustom message-cite-style nil
+  "The overall style to be used when yanking cited text.
+Values are either `traditional' (cited text first),
+`top-post' (cited text at the bottom), or nil (don't override the
+individual message variables)."
+  :version "24.1"
+  :group 'message-various
+  :type '(choice (const :tag "None" :value nil)
+		 (const :tag "Traditional" :value traditional)
+		 (const :tag "Top-post" :value top-post)))
+
 (defcustom message-fcc-handler-function 'message-output
   "*A function called to save outgoing articles.
 This function will be called with the name of the file to store the
@@ -6444,9 +6455,8 @@ 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  |    5 +++++
 lisp/message.el |   16 +++++++++++++---
 2 files changed, 18 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