# HG changeset patch # User Glenn Morris # Date 1236742410 0 # Node ID 53f69b319f5d7129be24e35fdeae27f98590c52d # Parent f4571df6b6cc2c0117bf07e42cd4d428022b76b9 Comment. diff -r f4571df6b6cc -r 53f69b319f5d lisp/mail/rmailedit.el --- a/lisp/mail/rmailedit.el Wed Mar 11 03:22:37 2009 +0000 +++ b/lisp/mail/rmailedit.el Wed Mar 11 03:33:30 2009 +0000 @@ -100,9 +100,10 @@ (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))