# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1231621638 0
# Node ID cc1abbe3dfe51cacdc17d72874a6bbf70a42d446
# Parent  013f683ecc4a191f9f709c8adc900e25fdc7a6ff
(pmail-ignored-headers): Hide more fields.
(pmail-next-undeleted-message): If we stay on same message,
don't change anything.

diff -r 013f683ecc4a -r cc1abbe3dfe5 lisp/mail/pmail.el
--- a/lisp/mail/pmail.el	Sat Jan 10 20:19:25 2009 +0000
+++ b/lisp/mail/pmail.el	Sat Jan 10 21:07:18 2009 +0000
@@ -61,17 +61,17 @@
 can be written."
   (if (not buffer-swapped-with)
       (progn
-;;	(if (and (string= "PMAIL" (buffer-name))
-;;		 (< (buffer-size) 1000000))
-;;	    (debug))
+;;;	(if (and (string= "PMAIL" (buffer-name))
+;;;		 (< (buffer-size) 1000000))
+;;;	    (debug))
 	ad-do-it)
     (unwind-protect
 	(let ((modp (buffer-modified-p)))
-;;	  (save-match-data
-;;	    (let ((case-fold-search nil))
-;;	      (unless (or (string-match "PMAIL" (buffer-name))
-;;			  (string-match "xmail" (buffer-name)))
-;;		(debug))))
+;;;	  (save-match-data
+;;;	    (let ((case-fold-search nil))
+;;;	      (unless (or (string-match "PMAIL" (buffer-name))
+;;;			  (string-match "xmail" (buffer-name)))
+;;;		(debug))))
 	  (buffer-swap-text buffer-swapped-with)
 	  (set-buffer-modified-p modp)
 	  ad-do-it)
@@ -375,11 +375,13 @@
 	  "\\|^x-mailer:\\|^delivered-to:\\|^lines:"
 	  "\\|^content-transfer-encoding:\\|^x-coding-system:"
 	  "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:"
-	  "\\|^precedence:\\|^list-help:\\|^list-post:\\|^list-subscribe:"
+	  "\\|^precedence:\\|^mime-version:"
+	  "\\|^list-owner:\\|^list-help:\\|^list-post:\\|^list-subscribe:"
 	  "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:"
 	  "\\|^content-length:\\|^nntp-posting-date:\\|^user-agent"
 	  "\\|^importance:\\|^envelope-to:\\|^delivery-date\\|^openpgp:"
-	  "\\|^mbox-line:\\|^cancel-lock:\\|^DomainKey-Signature:"
+	  "\\|^mbox-line:\\|^cancel-lock:"
+	  "\\|^DomainKey-Signature:\\|^dkim-signature:"
 	  "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization:\\|^resent-openpgp:"
 	  "\\|^x-.*:")
   "*Regexp to match header fields that Pmail should normally hide.
@@ -2800,7 +2802,6 @@
 	  (message "No previous nondeleted message"))
       (if (> n 0)
 	  (message "No following nondeleted message"))
-      (pmail-show-message-maybe pmail-current-message)
       nil)))
 
 (defun pmail-previous-undeleted-message (n)