# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1231170785 0
# Node ID de45b6b07aa74bdb29207009ab3737de9b89762a
# Parent  c2069bd311e60dd1c37db68028c5f6ed897b6430
(mail-bury): Treat pmail-mode like rmail-mode.

diff -r c2069bd311e6 -r de45b6b07aa7 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Mon Jan 05 15:49:50 2009 +0000
+++ b/lisp/mail/sendmail.el	Mon Jan 05 15:53:05 2009 +0000
@@ -791,7 +791,7 @@
 	     (not (one-window-p))
 	     (with-current-buffer
                  (window-buffer (next-window (selected-window) 'not))
-	       (setq rmail-flag (eq major-mode 'rmail-mode))
+	       (setq rmail-flag (memq major-mode '(rmail-mode pmail-mode)))
 	       (setq summary-buffer
 		     (and mail-bury-selects-summary
 			  (boundp 'rmail-summary-buffer)