[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail pmail.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/mail pmail.el |
Date: |
Tue, 09 Dec 2008 19:35:17 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/12/09 19:35:17
Modified files:
lisp/mail : pmail.el
Log message:
(pmail-only-expunge): Swap buffers at the beginning.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.23&r2=1.24
Patches:
Index: pmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- pmail.el 5 Dec 2008 20:43:18 -0000 1.23
+++ pmail.el 9 Dec 2008 19:35:06 -0000 1.24
@@ -3491,6 +3491,7 @@
(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 @@
(goto-char (point-min))
(let ((counter 0)
(number 1)
- (total pmail-total-messages)
- (new-message-number pmail-current-message)
- (new-summary nil)
+ new-summary
(new-msgref (list (list 0)))
- (pmailbuf (current-buffer))
(buffer-read-only nil)
+ (total pmail-total-messages)
+ (new-message-number pmail-current-message)
(messages pmail-message-vector)
(deleted pmail-deleted-vector)
(summary pmail-summary-vector))
@@ -3535,9 +3535,8 @@
(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 @@
(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))))))
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/02
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/04
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/04
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/05
- [Emacs-diffs] emacs/lisp/mail pmail.el,
Chong Yidong <=
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/09
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/10
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/12
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/15
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/15
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/19
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/19
- [Emacs-diffs] emacs/lisp/mail pmail.el, Chong Yidong, 2008/12/20