comparison lisp/mail/pmail.el @ 101074:cc1abbe3dfe5

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

101073:013f683ecc4a

temporarily unswap in order to save the real contents.  This
advice is temporarily used by pmail until a satisfactory solution
can be written."
  (if (not buffer-swapped-with)
      (progn
;;	(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))))
	  (buffer-swap-text buffer-swapped-with)
	  (set-buffer-modified-p modp)
	  ad-do-it)
      (buffer-swap-text buffer-swapped-with)
      (set-buffer-modified-p nil))))

	  "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:"
	  "\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:\\|^face:"
	  "\\|^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:"
	  "\\|^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:"
	  "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization:\\|^resent-openpgp:"
	  "\\|^x-.*:")
  "*Regexp to match header fields that Pmail should normally hide.
\(See also `pmail-nonignored-headers', which overrides this regexp.)
This variable is used for reformatting the message header,

 	       t)
      (if (< n 0)
	  (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)
  "Show previous non-deleted message.
With prefix argument N, moves backward N non-deleted messages,

101074:cc1abbe3dfe5

temporarily unswap in order to save the real contents.  This
advice is temporarily used by pmail until a satisfactory solution
can be written."
  (if (not buffer-swapped-with)
      (progn
;;;	(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))))
	  (buffer-swap-text buffer-swapped-with)
	  (set-buffer-modified-p modp)
	  ad-do-it)
      (buffer-swap-text buffer-swapped-with)
      (set-buffer-modified-p nil))))

	  "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:"
	  "\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:\\|^face:"
	  "\\|^x-mailer:\\|^delivered-to:\\|^lines:"
	  "\\|^content-transfer-encoding:\\|^x-coding-system:"
	  "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:"
	  "\\|^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:\\|^dkim-signature:"
	  "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization:\\|^resent-openpgp:"
	  "\\|^x-.*:")
  "*Regexp to match header fields that Pmail should normally hide.
\(See also `pmail-nonignored-headers', which overrides this regexp.)
This variable is used for reformatting the message header,

 	       t)
      (if (< n 0)
	  (message "No previous nondeleted message"))
      (if (> n 0)
	  (message "No following nondeleted message"))
      nil)))

(defun pmail-previous-undeleted-message (n)
  "Show previous non-deleted message.
With prefix argument N, moves backward N non-deleted messages,