diff options
| author | Karl Heuer | 1994-02-08 22:26:30 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-02-08 22:26:30 +0000 |
| commit | f045694583898830cbf48137b6be79321979f29e (patch) | |
| tree | 382d154d8c6a857bed5ac95e32223826cc1b05b5 | |
| parent | a4b340c510946ba5755e33e50b370bd23e34bdfa (diff) | |
| download | emacs-f045694583898830cbf48137b6be79321979f29e.tar.gz emacs-f045694583898830cbf48137b6be79321979f29e.zip | |
(rmail-edit-current-message): Make local variables permanent, so
the user can safely change major modes during an edit.
| -rw-r--r-- | lisp/mail/rmailedit.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index c6c355a5a8a..700990dadd5 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el | |||
| @@ -58,6 +58,7 @@ to return to regular RMAIL: | |||
| 58 | (rmail-edit-mode) | 58 | (rmail-edit-mode) |
| 59 | (make-local-variable 'rmail-old-text) | 59 | (make-local-variable 'rmail-old-text) |
| 60 | (setq rmail-old-text (buffer-substring (point-min) (point-max))) | 60 | (setq rmail-old-text (buffer-substring (point-min) (point-max))) |
| 61 | (put 'rmail-old-text 'permanent-local t) | ||
| 61 | (setq buffer-read-only nil) | 62 | (setq buffer-read-only nil) |
| 62 | (set-buffer-modified-p (buffer-modified-p)) | 63 | (set-buffer-modified-p (buffer-modified-p)) |
| 63 | ;; Make mode line update. | 64 | ;; Make mode line update. |