procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix 'rmail-summary-output'

Browse source 
* lisp/mail/rmailsum.el (rmail-summary-output): Fix deletion of
messages when 'rmail-output-reset-deleted-flag' is non-nil.
(Bug#61380)
This commit is contained in:
Eli Zaretskii 2023-02-09 17:34:19 +02:00
parent 67c6ec2559
commit 68a6b364d1
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/rmailsum.el
View file

@ -1931,7 +1931,7 @@ even if the header display is currently pruned."
(progn (require 'rmailout) (progn (require 'rmailout)
(list (rmail-output-read-file-name) (list (rmail-output-read-file-name)
(prefix-numeric-value current-prefix-arg)))) (prefix-numeric-value current-prefix-arg))))
(let ((i 0) prev-msg) (let ((i 0) prev-msg curmsg)
(while (while
(and (< i n) (and (< i n)
(progn (rmail-summary-goto-msg) (progn (rmail-summary-goto-msg)
@ -1942,7 +1942,11 @@ even if the header display is currently pruned."
(setq i (1+ i)) (setq i (1+ i))
(with-current-buffer rmail-buffer (with-current-buffer rmail-buffer
(let ((rmail-delete-after-output nil)) (let ((rmail-delete-after-output nil))
(setq curmsg rmail-current-message)
(rmail-output file-name 1))) (rmail-output file-name 1)))
;; rmail-output sometimes moves to the next message; undo that.
(or (= curmsg (rmail-summary-msg-number))
(rmail-summary-goto-msg curmsg))
(if rmail-delete-after-output (if rmail-delete-after-output
(rmail-summary-delete-forward nil) (rmail-summary-delete-forward nil)
(if (< i n) (if (< i n)