161 |
"\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:" |
"\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:" |
162 |
"\\|^content-type:\\|^content-length:" |
"\\|^content-type:\\|^content-length:" |
163 |
"\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:" |
"\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:" |
164 |
"\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent:") |
"\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent" |
165 |
|
"\\|^importance:\\|^envelope-to:\\|^delivery-date" |
166 |
|
"\\|^x.*-priority:\\|^x-mimeole:") |
167 |
"*Regexp to match header fields that Rmail should normally hide. |
"*Regexp to match header fields that Rmail should normally hide. |
168 |
This variable is used for reformatting the message header, |
This variable is used for reformatting the message header, |
169 |
which normally happens once for each message, |
which normally happens once for each message, |
281 |
;; files). |
;; files). |
282 |
|
|
283 |
(defvar rmail-mmdf-delim1 "^\001\001\001\001\n" |
(defvar rmail-mmdf-delim1 "^\001\001\001\001\n" |
284 |
"Regexp marking the start of an mmdf message") |
"Regexp marking the start of an mmdf message.") |
285 |
(defvar rmail-mmdf-delim2 "^\001\001\001\001\n" |
(defvar rmail-mmdf-delim2 "^\001\001\001\001\n" |
286 |
"Regexp marking the end of an mmdf message") |
"Regexp marking the end of an mmdf message.") |
287 |
|
|
288 |
(defcustom rmail-message-filter nil |
(defcustom rmail-message-filter nil |
289 |
"If non-nil, a filter function for new messages in RMAIL. |
"If non-nil, a filter function for new messages in RMAIL. |
459 |
(defvar rmail-search-mime-header-function nil |
(defvar rmail-search-mime-header-function nil |
460 |
"Function to check if a regexp matches a header of MIME message. |
"Function to check if a regexp matches a header of MIME message. |
461 |
This function is called if `rmail-enable-mime' is non-nil. |
This function is called if `rmail-enable-mime' is non-nil. |
462 |
It is called with four arguments MSG, REGEXP, and LIMIT, where |
It is called with three arguments MSG, REGEXP, and LIMIT, where |
463 |
MSG is the message number, |
MSG is the message number, |
464 |
REGEXP is the regular expression, |
REGEXP is the regular expression, |
465 |
LIMIT is the position specifying the end of header.") |
LIMIT is the position specifying the end of header.") |
544 |
nil) |
nil) |
545 |
|
|
546 |
(defvar rmail-font-lock-keywords |
(defvar rmail-font-lock-keywords |
547 |
|
;; These are all matched case-insensitively. |
548 |
(eval-when-compile |
(eval-when-compile |
549 |
(let* ((cite-chars "[>|}]") |
(let* ((cite-chars "[>|}]") |
550 |
(cite-prefix "A-Za-z") |
(cite-prefix "a-z") |
551 |
(cite-suffix (concat cite-prefix "0-9_.@-`'\""))) |
(cite-suffix (concat cite-prefix "0-9_.@-`'\""))) |
552 |
(list '("^\\(From\\|Sender\\|Resent-[Ff]rom\\):" . font-lock-function-name-face) |
(list '("^\\(From\\|Sender\\|Resent-From\\):" |
553 |
|
. font-lock-function-name-face) |
554 |
'("^Reply-To:.*$" . font-lock-function-name-face) |
'("^Reply-To:.*$" . font-lock-function-name-face) |
555 |
'("^Subject:" . font-lock-comment-face) |
'("^Subject:" . font-lock-comment-face) |
556 |
'("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):" |
'("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):" |
564 |
(beginning-of-line) (end-of-line) |
(beginning-of-line) (end-of-line) |
565 |
(2 font-lock-constant-face nil t) |
(2 font-lock-constant-face nil t) |
566 |
(4 font-lock-comment-face nil t))) |
(4 font-lock-comment-face nil t))) |
567 |
'("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\|Date\\):.*$" |
'("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$" |
568 |
. font-lock-string-face)))) |
. font-lock-string-face)))) |
569 |
"Additional expressions to highlight in Rmail mode.") |
"Additional expressions to highlight in Rmail mode.") |
570 |
|
|
767 |
Note: If you are seeing it in rmail, |
Note: If you are seeing it in rmail, |
768 |
Note: it means the file has no messages in it.\n\^_"))) |
Note: it means the file has no messages in it.\n\^_"))) |
769 |
|
|
770 |
;; Decode Babyl formated part at the head of current buffer by |
;; Decode Babyl formatted part at the head of current buffer by |
771 |
;; rmail-file-coding-system, or if it is nil, do auto conversion. |
;; rmail-file-coding-system, or if it is nil, do auto conversion. |
772 |
|
|
773 |
(defun rmail-decode-babyl-format () |
(defun rmail-decode-babyl-format () |
1125 |
(make-local-variable 'font-lock-defaults) |
(make-local-variable 'font-lock-defaults) |
1126 |
(setq font-lock-defaults |
(setq font-lock-defaults |
1127 |
'(rmail-font-lock-keywords |
'(rmail-font-lock-keywords |
1128 |
t nil nil nil |
t t nil nil |
1129 |
(font-lock-maximum-size . nil) |
(font-lock-maximum-size . nil) |
1130 |
(font-lock-fontify-buffer-function . rmail-fontify-buffer-function) |
(font-lock-fontify-buffer-function . rmail-fontify-buffer-function) |
1131 |
(font-lock-unfontify-buffer-function . rmail-unfontify-buffer-function) |
(font-lock-unfontify-buffer-function . rmail-unfontify-buffer-function) |
1507 |
(if rmail-pop-password-required |
(if rmail-pop-password-required |
1508 |
(progn (setq got-password (not (rmail-have-password))) |
(progn (setq got-password (not (rmail-have-password))) |
1509 |
(setq password (rmail-get-pop-password)))) |
(setq password (rmail-get-pop-password)))) |
1510 |
(if (eq system-type 'windows-nt) |
(if (memq system-type '(windows-nt cygwin)) |
1511 |
;; cannot have "po:" in file name |
;; cannot have "po:" in file name |
1512 |
(setq tofile |
(setq tofile |
1513 |
(expand-file-name |
(expand-file-name |
1744 |
(goto-char (+ header-end size)) |
(goto-char (+ header-end size)) |
1745 |
(message "Ignoring invalid Content-Length field") |
(message "Ignoring invalid Content-Length field") |
1746 |
(sit-for 1 0 t))) |
(sit-for 1 0 t))) |
1747 |
(if (re-search-forward |
(if (let ((case-fold-search nil)) |
1748 |
(concat "^[\^_]?\\(" |
(re-search-forward |
1749 |
rmail-unix-mail-delimiter |
(concat "^[\^_]?\\(" |
1750 |
"\\|" |
rmail-unix-mail-delimiter |
1751 |
rmail-mmdf-delim1 "\\|" |
"\\|" |
1752 |
"^BABYL OPTIONS:\\|" |
rmail-mmdf-delim1 "\\|" |
1753 |
"\^L\n[01],\\)") nil t) |
"^BABYL OPTIONS:\\|" |
1754 |
|
"\^L\n[01],\\)") nil t)) |
1755 |
(goto-char (match-beginning 1)) |
(goto-char (match-beginning 1)) |
1756 |
(goto-char (point-max))) |
(goto-char (point-max))) |
1757 |
(setq count (1+ count)) |
(setq count (1+ count)) |
2400 |
(progn |
(progn |
2401 |
(check-coding-system coding-system) |
(check-coding-system coding-system) |
2402 |
(setq buffer-file-coding-system coding-system)) |
(setq buffer-file-coding-system coding-system)) |
2403 |
(error |
(error |
2404 |
(setq buffer-file-coding-system nil)))) |
(setq buffer-file-coding-system nil)))) |
2405 |
(setq buffer-file-coding-system nil))))) |
(setq buffer-file-coding-system nil))))) |
2406 |
;; Clear the "unseen" attribute when we show a message. |
;; Clear the "unseen" attribute when we show a message. |
3149 |
;; since they can handle the names unstripped. |
;; since they can handle the names unstripped. |
3150 |
;; I don't know whether there are other mailers that still |
;; I don't know whether there are other mailers that still |
3151 |
;; need the names to be stripped. |
;; need the names to be stripped. |
3152 |
(mail-strip-quoted-names reply-to) |
;;; (mail-strip-quoted-names reply-to) |
3153 |
|
reply-to |
3154 |
subject |
subject |
3155 |
(rmail-make-in-reply-to-field from date message-id) |
(rmail-make-in-reply-to-field from date message-id) |
3156 |
(if just-sender |
(if just-sender |
3603 |
(eval-when-compile (require 'speedbar)) |
(eval-when-compile (require 'speedbar)) |
3604 |
|
|
3605 |
(defvar rmail-speedbar-match-folder-regexp "^[A-Z0-9]+\\(\\.[A-Z0-9]+\\)?$" |
(defvar rmail-speedbar-match-folder-regexp "^[A-Z0-9]+\\(\\.[A-Z0-9]+\\)?$" |
3606 |
"*This regex us used to match folder names to be displayed in speedbar. |
"*This regex is used to match folder names to be displayed in speedbar. |
3607 |
Enabling this will permit speedbar to display your folders for easy |
Enabling this will permit speedbar to display your folders for easy |
3608 |
browsing, and moving of messages.") |
browsing, and moving of messages.") |
3609 |
|
|