diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 6 |
1 files changed, 4 insertions, 2 deletions
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. |