aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/mail/rmailedit.el7
1 files 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:
106 (aset rmail-summary-vector (1- rmail-current-message) nil) 106 (aset rmail-summary-vector (1- rmail-current-message) nil)
107 (save-excursion 107 (save-excursion
108 (rmail-widen-to-current-msgbeg 108 (rmail-widen-to-current-msgbeg
109 (function (lambda () 109 (function (lambda ()
110 (forward-line 2) 110 (forward-line 2)
111 (if (looking-at "Summary-line: ") 111 (if (looking-at "Summary-line: ")
112 (let ((buffer-read-only nil)) 112 (let ((buffer-read-only nil))
113 (delete-region (point) 113 (delete-region (point)
114 (progn (forward-line 1) 114 (progn (forward-line 1)
115 (point)))))))) 115 (point))))))))))))
116 (rmail-show-message)))))) 116 (save-excursion
117 (rmail-show-message)))
117 (setq buffer-read-only t)) 118 (setq buffer-read-only t))
118 119
119(defun rmail-abort-edit () 120(defun rmail-abort-edit ()