diff options
| -rw-r--r-- | lisp/mail/rmailedit.el | 7 |
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 () |