diff options
| author | Lars Ingebrigtsen | 2020-10-27 18:54:41 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2020-10-27 19:29:02 +0100 |
| commit | 15a67102dd9581b6c53eb2e168c1387e9b2ba796 (patch) | |
| tree | 762fc1a0e9dfd8fd4bf0507a2e5fc49bde7e9b05 | |
| parent | 3a6d55b7922ff2d71b91b54812219ee9dcc33649 (diff) | |
| download | emacs-15a67102dd9581b6c53eb2e168c1387e9b2ba796.tar.gz emacs-15a67102dd9581b6c53eb2e168c1387e9b2ba796.zip | |
Fix intermittent rmail-summary-delete-forward problem
* lisp/mail/rmailsum.el (rmail-summary-delete-forward):
`rmail-delete-message' may apparently clear
`rmail-current-message' sometimes, so save the message number
before deleting (bug#39612).
| -rw-r--r-- | lisp/mail/rmailsum.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index cc55451902a..521659b7eb6 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -931,8 +931,8 @@ a negative argument means to delete and move backward." | |||
| 931 | (not (and backward (bobp)))) | 931 | (not (and backward (bobp)))) |
| 932 | (rmail-summary-goto-msg) | 932 | (rmail-summary-goto-msg) |
| 933 | (with-current-buffer rmail-buffer | 933 | (with-current-buffer rmail-buffer |
| 934 | (rmail-delete-message) | 934 | (setq del-msg rmail-current-message) |
| 935 | (setq del-msg rmail-current-message)) | 935 | (rmail-delete-message)) |
| 936 | (rmail-summary-mark-deleted del-msg) | 936 | (rmail-summary-mark-deleted del-msg) |
| 937 | (while (and (not (if backward (bobp) (eobp))) | 937 | (while (and (not (if backward (bobp) (eobp))) |
| 938 | (save-excursion (beginning-of-line) | 938 | (save-excursion (beginning-of-line) |