Commit e20903fb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent a8840283
......@@ -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.
;; 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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment