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

(pmail-only-expunge): Swap buffers at the beginning.

Browse source
This commit is contained in:
Chong Yidong 2008-12-09 19:35:06 +00:00
parent 5b681764fe
commit 397b4cd0fd
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/mail/pmail.el
View file

@ -3491,6 +3491,7 @@ See also user-option `pmail-confirm-expunge'."
(defun pmail-only-expunge (&optional dont-show)
"Actually erase all deleted messages in the file."
(interactive)
(pmail-swap-buffers-maybe)
(set-buffer pmail-buffer)
(message "Expunging deleted messages...")
;; Discard all undo records for this buffer.
@ -3517,12 +3518,11 @@ See also user-option `pmail-confirm-expunge'."
(goto-char (point-min))
(let ((counter 0)
(number 1)
new-summary
(new-msgref (list (list 0)))
(buffer-read-only nil)
(total pmail-total-messages)
(new-message-number pmail-current-message)
(new-summary nil)
(new-msgref (list (list 0)))
(pmailbuf (current-buffer))
(buffer-read-only nil)
(messages pmail-message-vector)
(deleted pmail-deleted-vector)
(summary pmail-summary-vector))
@ -3535,9 +3535,8 @@ See also user-option `pmail-confirm-expunge'."
(while (<= number total)
(if (= (aref deleted number) ?D)
(progn
(delete-region
(marker-position (aref messages number))
(marker-position (aref messages (1+ number))))
(delete-region (aref messages number)
(aref messages (1+ number)))
(move-marker (aref messages number) nil)
(if (> new-message-number counter)
(setq new-message-number (1- new-message-number))))
@ -3569,7 +3568,6 @@ See also user-option `pmail-confirm-expunge'."
(narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax)))
(if (not dont-show)
(pmail-show-message-maybe (min pmail-current-message pmail-total-messages)))
(pmail-swap-buffers-maybe)
(if pmail-enable-mime
(goto-char (+ (point-min) opoint))
(goto-char (+ (point) opoint))))))