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.
 (message-resend): Allow removing the read-only separator line.

2 files changed, 25 insertions, 4 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index cb5de1c7f03..02ec82d06a0 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
+2011-02-04  Lars Ingebrigtsen  <larsi@gnus.org>
+
+        * 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.
+        (message-resend): Allow removing the read-only separator line.
+
 2011-02-03  Lars Ingebrigtsen  <larsi@gnus.org>
 
         * nnimap.el (nnimap-request-accept-article): Give an error message if
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index eaa2e6cd0db..5c24bc886bc 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/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
@@ -2764,7 +2775,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'.
@@ -6402,7 +6413,7 @@ are not included."
     (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.
@@ -7429,7 +7440,8 @@ is for the internal use."
       ;; We first set up a normal mail buffer.
       (unless (message-mail-user-agent)
         (set-buffer (get-buffer-create " *message resend*"))
-        (erase-buffer))
+        (let ((inhibit-read-only t))
+          (erase-buffer)))
       (let ((message-this-is-mail t)
             message-generate-hashcash
             message-setup-hook)
@@ -7446,7 +7458,8 @@ is for the internal use."
         (insert "Resent-"))
       (widen)
       (forward-line)
-      (delete-region (point) (point-max))
+      (let ((inhibit-read-only t))
+        (delete-region (point) (point-max)))
       (setq beg (point))
       ;; Insert the message to be resent.
       (insert-buffer-substring cur)