mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-cease-edit): Call rmail-show-message even if message text is unchanged.

Browse source
This commit is contained in:
Richard M. Stallman 1998-05-01 03:14:40 +00:00
parent f11f6ccebb
commit cd95034f46
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/rmailedit.el
View file

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