diff options
| author | Glenn Morris | 2009-03-11 03:33:30 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-03-11 03:33:30 +0000 |
| commit | e97389b933292a7faac01726865b2fc914123b16 (patch) | |
| tree | 558b85e2ed5383094b98ac1ba778e86bfb260960 | |
| parent | 52b9c46105b8da58165c77542252e05900cb74e1 (diff) | |
| download | emacs-e97389b933292a7faac01726865b2fc914123b16.tar.gz emacs-e97389b933292a7faac01726865b2fc914123b16.zip | |
Comment.
| -rw-r--r-- | lisp/mail/rmailedit.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index 80cc7c4578b..d456c6c1a6f 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el | |||
| @@ -100,9 +100,10 @@ This function runs the hooks `text-mode-hook' and `rmail-edit-mode-hook'. | |||
| 100 | (setq rmail-old-headers (rmail-edit-headers-alist t)) | 100 | (setq rmail-old-headers (rmail-edit-headers-alist t)) |
| 101 | (setq buffer-read-only nil) | 101 | (setq buffer-read-only nil) |
| 102 | (setq buffer-undo-list nil) | 102 | (setq buffer-undo-list nil) |
| 103 | ;; FIXME whether the buffer is initially marked as modified or not | 103 | ;; Whether the buffer is initially marked as modified or not |
| 104 | ;; depends on whether or not the underlying rmail buffer was so marked. | 104 | ;; depends on whether or not the underlying rmail buffer was so marked. |
| 105 | ;; Seems poor. | 105 | ;; Given the way this works, it has to. |
| 106 | ;; If you kill the edit buffer, you've killed your rmail buffer. | ||
| 106 | (force-mode-line-update) | 107 | (force-mode-line-update) |
| 107 | (if (and (eq (key-binding "\C-c\C-c") 'rmail-cease-edit) | 108 | (if (and (eq (key-binding "\C-c\C-c") 'rmail-cease-edit) |
| 108 | (eq (key-binding "\C-c\C-]") 'rmail-abort-edit)) | 109 | (eq (key-binding "\C-c\C-]") 'rmail-abort-edit)) |