Mercurial > emacs
comparison lisp/mail/rmail.el @ 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 | 3c51aa417e32 |
| children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
| 14032:ab77b688a09b | 14033:d146539da475 |
|---|---|
| 2291 (save-excursion | 2291 (save-excursion |
| 2292 ;;>> Copy message into temp buffer | 2292 ;;>> Copy message into temp buffer |
| 2293 (set-buffer tembuf) | 2293 (set-buffer tembuf) |
| 2294 (insert-buffer-substring mailbuf) | 2294 (insert-buffer-substring mailbuf) |
| 2295 (goto-char (point-min)) | 2295 (goto-char (point-min)) |
| 2296 ;; Delete any Sender field, since that's not specifyable. | 2296 ;; Delete any Sender field, since that's not specifiable. |
| 2297 ; Only delete Sender fields in the actual header. | 2297 ; Only delete Sender fields in the actual header. |
| 2298 (re-search-forward "^$" nil 'move) | 2298 (re-search-forward "^$" nil 'move) |
| 2299 ; Using "while" here rather than "if" because some buggy mail | 2299 ; Using "while" here rather than "if" because some buggy mail |
| 2300 ; software may have inserted multiple Sender fields. | 2300 ; software may have inserted multiple Sender fields. |
| 2301 (while (re-search-backward "^Sender:" nil t) | 2301 (while (re-search-backward "^Sender:" nil t) |
| 2444 (rmail-set-attribute "retried" t msgnum))))))) | 2444 (rmail-set-attribute "retried" t msgnum))))))) |
| 2445 mail-signature mail-setup-hook) | 2445 mail-signature mail-setup-hook) |
| 2446 (if (rmail-start-mail nil nil nil nil nil rmail-buffer | 2446 (if (rmail-start-mail nil nil nil nil nil rmail-buffer |
| 2447 (list (list action))) | 2447 (list (list action))) |
| 2448 ;; Insert original text as initial text of new draft message. | 2448 ;; Insert original text as initial text of new draft message. |
| 2449 (progn | 2449 ;; Bind inhibit-read-only since the header delimiter |
| 2450 ;; of the previous message was probably read-only. | |
| 2451 (let ((inhibit-read-only t)) | |
| 2450 ;; We keep the rmail buffer and message number in these | 2452 ;; We keep the rmail buffer and message number in these |
| 2451 ;; buffer-local vars in the sendmail buffer, | 2453 ;; buffer-local vars in the sendmail buffer, |
| 2452 ;; so that the rmail-only-expunge can relocate the message number. | 2454 ;; so that the rmail-only-expunge can relocate the message number. |
| 2453 (make-local-variable 'rmail-send-actions-rmail-buffer) | 2455 (make-local-variable 'rmail-send-actions-rmail-buffer) |
| 2454 (make-local-variable 'rmail-send-actions-rmail-msg-number) | 2456 (make-local-variable 'rmail-send-actions-rmail-msg-number) |