From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 4 Feb 2011 09:51:56 +0000 (+0000)
Subject: message.el (message-setup-1): Don't bind the constant -forbidden-properties.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~1043
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b7feab0099bda2082985b7c0dfb5de13de994f5;p=emacs.git

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.
---

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)