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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/12/15 15:06:50

Modified files:
        lisp/mail      : pmail.el 

Log message:
        (pmail-search): Call pmail-swap-buffers-maybe.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.30&r2=1.31

Patches:
Index: pmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- pmail.el    15 Dec 2008 14:56:06 -0000      1.30
+++ pmail.el    15 Dec 2008 15:06:50 -0000      1.31
@@ -3128,9 +3128,16 @@
   "Erase deleted messages from Pmail file and summary buffer."
   (interactive)
   (when (pmail-expunge-confirmed)
+    (let ((old-total pmail-total-messages)
+         (opoint (with-current-buffer pmail-buffer
+                   (when pmail-buffers-swapped-p
+                     (point)))))
     (pmail-only-expunge dont-show)
     (if (pmail-summary-exists)
-       (pmail-select-summary (pmail-update-summary)))))
+         (pmail-select-summary (pmail-update-summary))
+       (pmail-show-message pmail-current-message)
+       (if (and (eq old-total pmail-total-messages) opoint)
+           (goto-char opoint))))))
 
 ;;;; *** Pmail Mailing Commands ***