Mercurial > emacs
changeset 14033:d146539da475
(rmail-retry-failure): Bind inhibit-read-only.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 05 Jan 1996 07:23:52 +0000 |
| parents | ab77b688a09b |
| children | 6ef59cdffc90 |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.