Mercurial > emacs
comparison lisp/mail/rmailedit.el @ 103239:03dd2dfb499f
* mail/rmailedit.el (rmail-edit-current-message):
Call rmail-modify-format here.
(rmail-cease-edit): Not here.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 17 May 2009 16:11:23 +0000 |
| parents | 203183ff293d |
| children | e59e70025fe8 |
comparison
equal
deleted
inserted
replaced
| 103238:074577abd4d1 | 103239:03dd2dfb499f |
|---|---|
| 86 (defun rmail-edit-current-message () | 86 (defun rmail-edit-current-message () |
| 87 "Edit the contents of this message." | 87 "Edit the contents of this message." |
| 88 (interactive) | 88 (interactive) |
| 89 (if (zerop rmail-total-messages) | 89 (if (zerop rmail-total-messages) |
| 90 (error "No messages in this buffer")) | 90 (error "No messages in this buffer")) |
| 91 (rmail-modify-format) | |
| 91 (make-local-variable 'rmail-old-pruned) | 92 (make-local-variable 'rmail-old-pruned) |
| 92 (setq rmail-old-pruned (rmail-msg-is-pruned)) | 93 (setq rmail-old-pruned (rmail-msg-is-pruned)) |
| 93 (rmail-edit-mode) | 94 (rmail-edit-mode) |
| 94 (make-local-variable 'rmail-old-text) | 95 (make-local-variable 'rmail-old-text) |
| 95 (setq rmail-old-text | 96 (setq rmail-old-text |
| 115 (declare-function rmail-summary-enable "rmailsum" ()) | 116 (declare-function rmail-summary-enable "rmailsum" ()) |
| 116 | 117 |
| 117 (defun rmail-cease-edit () | 118 (defun rmail-cease-edit () |
| 118 "Finish editing message; switch back to Rmail proper." | 119 "Finish editing message; switch back to Rmail proper." |
| 119 (interactive) | 120 (interactive) |
| 120 (rmail-modify-format) | |
| 121 (if (rmail-summary-exists) | 121 (if (rmail-summary-exists) |
| 122 (with-current-buffer rmail-summary-buffer | 122 (with-current-buffer rmail-summary-buffer |
| 123 (rmail-summary-enable))) | 123 (rmail-summary-enable))) |
| 124 (widen) | 124 (widen) |
| 125 ;; Disguise any "From " lines so they don't start a new message. | 125 ;; Disguise any "From " lines so they don't start a new message. |