Mercurial > emacs

changeset 21877:ed912554aac6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-cease-edit): Call rmail-show-message even if message text is unchanged.
author Richard M. Stallman <rms@gnu.org>
date Fri, 01 May 1998 03:14:40 +0000
parents 52ebc509a367
children 8941ce81cd7c
files lisp/mail/rmailedit.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailedit.el	Thu Apr 30 17:21:12 1998 +0000
+++ b/lisp/mail/rmailedit.el	Fri May 01 03:14:40 1998 +0000
@@ -106,14 +106,15 @@
 	    (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 ()