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

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/01/10 21:07:19

Modified files:
        lisp/mail      : pmail.el 

Log message:
        (pmail-ignored-headers): Hide more fields.
        (pmail-next-undeleted-message): If we stay on same message,
        don't change anything.

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

Patches:
Index: pmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- pmail.el    5 Jan 2009 15:49:50 -0000       1.45
+++ pmail.el    10 Jan 2009 21:07:18 -0000      1.46
@@ -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)