# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1242576683 0
# Node ID 03dd2dfb499fdea43505a935c1d31c7bd8617dad
# Parent  074577abd4d1c262eee803ea1642a9e53535e7f7
* mail/rmailedit.el (rmail-edit-current-message):
Call rmail-modify-format here.
(rmail-cease-edit): Not here.

diff -r 074577abd4d1 -r 03dd2dfb499f lisp/ChangeLog
--- a/lisp/ChangeLog	Sun May 17 16:09:22 2009 +0000
+++ b/lisp/ChangeLog	Sun May 17 16:11:23 2009 +0000
@@ -1,3 +1,9 @@
+2009-05-17  Richard M Stallman  <rms@gnu.org>
+
+	* mail/rmailedit.el (rmail-edit-current-message):
+	Call rmail-modify-format here.
+	(rmail-cease-edit): Not here.
+
 2009-05-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* vc-bzr.el (vc-bzr-state-heuristic): Fallback on vc-bzr-state in case
diff -r 074577abd4d1 -r 03dd2dfb499f lisp/mail/rmailedit.el
--- a/lisp/mail/rmailedit.el	Sun May 17 16:09:22 2009 +0000
+++ b/lisp/mail/rmailedit.el	Sun May 17 16:11:23 2009 +0000
@@ -88,6 +88,7 @@
   (interactive)
   (if (zerop rmail-total-messages)
       (error "No messages in this buffer"))
+  (rmail-modify-format)
   (make-local-variable 'rmail-old-pruned)
   (setq rmail-old-pruned (rmail-msg-is-pruned))
   (rmail-edit-mode)
@@ -117,7 +118,6 @@
 (defun rmail-cease-edit ()
   "Finish editing message; switch back to Rmail proper."
   (interactive)
-  (rmail-modify-format)
   (if (rmail-summary-exists)
       (with-current-buffer rmail-summary-buffer
 	(rmail-summary-enable)))