From cd95034f46fecd72ff29dd5fcb73453e64ac765a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 1 May 1998 03:14:40 +0000 Subject: [PATCH] (rmail-cease-edit): Call rmail-show-message even if message text is unchanged. --- lisp/mail/rmailedit.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index b83411ce5ae..8f5a65a9b59 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el @@ -106,14 +106,15 @@ to return to regular RMAIL: (aset rmail-summary-vector (1- rmail-current-message) nil) (save-excursion (rmail-widen-to-current-msgbeg - (function (lambda () + (function (lambda () (forward-line 2) (if (looking-at "Summary-line: ") (let ((buffer-read-only nil)) (delete-region (point) (progn (forward-line 1) - (point)))))))) - (rmail-show-message)))))) + (point)))))))))))) + (save-excursion + (rmail-show-message))) (setq buffer-read-only t)) (defun rmail-abort-edit () -- 2.11.4.GIT