Mercurial > emacs
comparison lisp/mail/rmailout.el @ 5331:a74ffe260236
(rmail-output-to-rmail-file): When copying to a buffer,
maybe enable auto save in that buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Dec 1993 03:43:13 +0000 |
| parents | 92268e08c166 |
| children | 67aa88583b90 |
comparison
equal
deleted
inserted
replaced
| 5330:bd122ee8c338 | 5331:a74ffe260236 |
|---|---|
| 120 (msg (and (boundp 'rmail-current-message) | 120 (msg (and (boundp 'rmail-current-message) |
| 121 rmail-current-message))) | 121 rmail-current-message))) |
| 122 ;; If MSG is non-nil, buffer is in RMAIL mode. | 122 ;; If MSG is non-nil, buffer is in RMAIL mode. |
| 123 (if msg | 123 (if msg |
| 124 (progn | 124 (progn |
| 125 ;; Turn on auto save mode, if it's off in this | |
| 126 ;; buffer but enabled by default. | |
| 127 (and (not buffer-auto-save-file-name) | |
| 128 auto-save-default | |
| 129 (auto-save-mode t)) | |
| 125 (rmail-maybe-set-message-counters) | 130 (rmail-maybe-set-message-counters) |
| 126 (widen) | 131 (widen) |
| 127 (narrow-to-region (point-max) (point-max)) | 132 (narrow-to-region (point-max) (point-max)) |
| 128 (insert-buffer-substring cur beg end) | 133 (insert-buffer-substring cur beg end) |
| 129 (goto-char (point-min)) | 134 (goto-char (point-min)) |