From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 5 Jan 1996 07:23:52 +0000 (+0000)
Subject: (rmail-retry-failure): Bind inhibit-read-only.
X-Git-Tag: emacs-19.34~1827
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e20903fba8f1a55d52f5d5795c65d0cec7762ef4;p=emacs.git

(rmail-retry-failure): Bind inhibit-read-only.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 2e2880872df..3ac178f497f 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2293,7 +2293,7 @@ typically for purposes of moderating a list."
 	  (set-buffer tembuf)
 	  (insert-buffer-substring mailbuf)
 	  (goto-char (point-min))
-	  ;; Delete any Sender field, since that's not specifyable.
+	  ;; Delete any Sender field, since that's not specifiable.
 	  ; Only delete Sender fields in the actual header.
 	  (re-search-forward "^$" nil 'move)
 	  ; Using "while" here rather than "if" because some buggy mail
@@ -2446,7 +2446,9 @@ specifying headers which should not be copied into the new message."
       (if (rmail-start-mail nil nil nil nil nil rmail-buffer
 			    (list (list action)))
 	  ;; Insert original text as initial text of new draft message.
-	  (progn
+	  ;; Bind inhibit-read-only since the header delimiter
+	  ;; of the previous message was probably read-only.
+	  (let ((inhibit-read-only t))
 	    ;; We keep the rmail buffer and message number in these 
 	    ;; buffer-local vars in the sendmail buffer,
 	    ;; so that the rmail-only-expunge can relocate the message number.