(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))