[Emacs-diffs] emacs/lisp/mail pmail.el

[Chong Yidong]

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))))))