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'. (setq rmail-old-headers (rmail-edit-headers-alist t)) (setq buffer-read-only nil) (setq buffer-undo-list nil) - ;; FIXME whether the buffer is initially marked as modified or not + ;; Whether the buffer is initially marked as modified or not ;; depends on whether or not the underlying rmail buffer was so marked. - ;; Seems poor. + ;; Given the way this works, it has to. + ;; If you kill the edit buffer, you've killed your rmail buffer. (force-mode-line-update) (if (and (eq (key-binding "\C-c\C-c") 'rmail-cease-edit) (eq (key-binding "\C-c\C-]") 'rmail-abort-edit))