# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 820826632 0
# Node ID d146539da475b1a4b25b74b314eb6afb72c6a90b
# Parent  ab77b688a09b946181de05adb868e6b984c96e28
(rmail-retry-failure): Bind inhibit-read-only.

diff -r ab77b688a09b -r d146539da475 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Fri Jan 05 07:22:20 1996 +0000
+++ b/lisp/mail/rmail.el	Fri Jan 05 07:23:52 1996 +0000
@@ -2293,7 +2293,7 @@
 	  (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 @@
       (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.