mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

Comment.

Browse Source
This commit is contained in:
Glenn Morris 2009-03-11 03:33:30 +00:00
parent 52b9c46105
commit e97389b933
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/mail/rmailedit.el
View File

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