Mercurial > emacs
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.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 10 Jan 2009 21:07:18 +0000 |
parents | c2069bd311e6 |
children | 22a55aabcdba |
comparison
equal
deleted
inserted
replaced
101073:013f683ecc4a | 101074:cc1abbe3dfe5 |
---|---|
59 temporarily unswap in order to save the real contents. This | 59 temporarily unswap in order to save the real contents. This |
60 advice is temporarily used by pmail until a satisfactory solution | 60 advice is temporarily used by pmail until a satisfactory solution |
61 can be written." | 61 can be written." |
62 (if (not buffer-swapped-with) | 62 (if (not buffer-swapped-with) |
63 (progn | 63 (progn |
64 ;; (if (and (string= "PMAIL" (buffer-name)) | 64 ;;; (if (and (string= "PMAIL" (buffer-name)) |
65 ;; (< (buffer-size) 1000000)) | 65 ;;; (< (buffer-size) 1000000)) |
66 ;; (debug)) | 66 ;;; (debug)) |
67 ad-do-it) | 67 ad-do-it) |
68 (unwind-protect | 68 (unwind-protect |
69 (let ((modp (buffer-modified-p))) | 69 (let ((modp (buffer-modified-p))) |
70 ;; (save-match-data | 70 ;;; (save-match-data |
71 ;; (let ((case-fold-search nil)) | 71 ;;; (let ((case-fold-search nil)) |
72 ;; (unless (or (string-match "PMAIL" (buffer-name)) | 72 ;;; (unless (or (string-match "PMAIL" (buffer-name)) |
73 ;; (string-match "xmail" (buffer-name))) | 73 ;;; (string-match "xmail" (buffer-name))) |
74 ;; (debug)))) | 74 ;;; (debug)))) |
75 (buffer-swap-text buffer-swapped-with) | 75 (buffer-swap-text buffer-swapped-with) |
76 (set-buffer-modified-p modp) | 76 (set-buffer-modified-p modp) |
77 ad-do-it) | 77 ad-do-it) |
78 (buffer-swap-text buffer-swapped-with) | 78 (buffer-swap-text buffer-swapped-with) |
79 (set-buffer-modified-p nil)))) | 79 (set-buffer-modified-p nil)))) |
373 "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:" | 373 "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:" |
374 "\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:\\|^face:" | 374 "\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:\\|^face:" |
375 "\\|^x-mailer:\\|^delivered-to:\\|^lines:" | 375 "\\|^x-mailer:\\|^delivered-to:\\|^lines:" |
376 "\\|^content-transfer-encoding:\\|^x-coding-system:" | 376 "\\|^content-transfer-encoding:\\|^x-coding-system:" |
377 "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:" | 377 "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:" |
378 "\\|^precedence:\\|^list-help:\\|^list-post:\\|^list-subscribe:" | 378 "\\|^precedence:\\|^mime-version:" |
379 "\\|^list-owner:\\|^list-help:\\|^list-post:\\|^list-subscribe:" | |
379 "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:" | 380 "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:" |
380 "\\|^content-length:\\|^nntp-posting-date:\\|^user-agent" | 381 "\\|^content-length:\\|^nntp-posting-date:\\|^user-agent" |
381 "\\|^importance:\\|^envelope-to:\\|^delivery-date\\|^openpgp:" | 382 "\\|^importance:\\|^envelope-to:\\|^delivery-date\\|^openpgp:" |
382 "\\|^mbox-line:\\|^cancel-lock:\\|^DomainKey-Signature:" | 383 "\\|^mbox-line:\\|^cancel-lock:" |
384 "\\|^DomainKey-Signature:\\|^dkim-signature:" | |
383 "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization:\\|^resent-openpgp:" | 385 "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization:\\|^resent-openpgp:" |
384 "\\|^x-.*:") | 386 "\\|^x-.*:") |
385 "*Regexp to match header fields that Pmail should normally hide. | 387 "*Regexp to match header fields that Pmail should normally hide. |
386 \(See also `pmail-nonignored-headers', which overrides this regexp.) | 388 \(See also `pmail-nonignored-headers', which overrides this regexp.) |
387 This variable is used for reformatting the message header, | 389 This variable is used for reformatting the message header, |
2798 t) | 2800 t) |
2799 (if (< n 0) | 2801 (if (< n 0) |
2800 (message "No previous nondeleted message")) | 2802 (message "No previous nondeleted message")) |
2801 (if (> n 0) | 2803 (if (> n 0) |
2802 (message "No following nondeleted message")) | 2804 (message "No following nondeleted message")) |
2803 (pmail-show-message-maybe pmail-current-message) | |
2804 nil))) | 2805 nil))) |
2805 | 2806 |
2806 (defun pmail-previous-undeleted-message (n) | 2807 (defun pmail-previous-undeleted-message (n) |
2807 "Show previous non-deleted message. | 2808 "Show previous non-deleted message. |
2808 With prefix argument N, moves backward N non-deleted messages, | 2809 With prefix argument N, moves backward N non-deleted messages, |