Mercurial > emacs

comparison lisp/mail/rmail.el @ 91795:bfe257ff864c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2008-02-11 Drew Adams <drew.adams@oracle.com> * help.el (describe-key): Joined some split lines to facilitate filling. * help-fns.el (describe-function-1): Fill text of overlong lines.
author Bastien Guerry <bzg@altern.org>
date Tue, 12 Feb 2008 07:10:49 +0000
parents 119a8eeef82f
children 132b386a2c8b
comparison
equal deleted inserted replaced
91794:9eba563b95d7 91795:bfe257ff864c
339 :version "22.1") 339 :version "22.1")
340 340
341 ;;;###autoload 341 ;;;###autoload
342 (defcustom rmail-highlight-face 'rmail-highlight "\ 342 (defcustom rmail-highlight-face 'rmail-highlight "\
343 *Face used by Rmail for highlighting headers." 343 *Face used by Rmail for highlighting headers."
344 :type '(choice (const :tag "Default" nil)
345 face)
346 :group 'rmail-headers)
347
348 (defface rmail-header-name
349 '((t (:inherit font-lock-function-name-face)))
350 "Face to use for highlighting the header names."
351 :group 'rmail-headers
352 :version "23.1")
353
354 ;;;###autoload
355 (defcustom rmail-header-name-face 'rmail-header-name "\
356 *Face to use for highlighting the header names."
344 :type '(choice (const :tag "Default" nil) 357 :type '(choice (const :tag "Default" nil)
345 face) 358 face)
346 :group 'rmail-headers) 359 :group 'rmail-headers)
347 360
348 ;;;###autoload 361 ;;;###autoload
696 "\\(remote from .*\\)?" 709 "\\(remote from .*\\)?"
697 710
698 "\n")) 711 "\n"))
699 nil) 712 nil)
700 713
701 (defvar rmail-font-lock-keywords 714 (setq rmail-font-lock-keywords
702 ;; These are all matched case-insensitively. 715 ;; These are all matched case-insensitively.
703 (eval-when-compile 716 ;;(eval-when-compile
704 (let* ((cite-chars "[>|}]") 717 (let* ((cite-chars "[>|}]")
705 (cite-prefix "a-z") 718 (cite-prefix "a-z")
706 (cite-suffix (concat cite-prefix "0-9_.@-`'\""))) 719 (cite-suffix (concat cite-prefix "0-9_.@-`'\"")))
707 (list '("^\\(From\\|Sender\\|Resent-From\\):" 720 (list '("^\\(From\\|Sender\\|Resent-From\\):"
708 . font-lock-function-name-face) 721 . 'rmail-header-name)
709 '("^Reply-To:.*$" . font-lock-function-name-face) 722 '("^Reply-To:.*$" . 'rmail-header-name)
710 '("^Subject:" . font-lock-comment-face) 723 '("^Subject:" . 'rmail-header-name)
711 '("^X-Spam-Status:" . font-lock-keyword-face) 724 '("^X-Spam-Status:" . 'rmail-header-name)
712 '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):" 725 '("^\\(To\\|Apparently-To\\|Cc\\|Newsgroups\\):"
713 . font-lock-keyword-face) 726 . 'rmail-header-name)
714 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. 727 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
715 `(,cite-chars 728 `(,cite-chars
716 (,(concat "\\=[ \t]*" 729 (,(concat "\\=[ \t]*"
717 "\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" 730 "\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
718 "\\(" cite-chars "[ \t]*\\)\\)+\\)" 731 "\\(" cite-chars "[ \t]*\\)\\)+\\)"
719 "\\(.*\\)") 732 "\\(.*\\)")
720 (beginning-of-line) (end-of-line) 733 (beginning-of-line) (end-of-line)
721 (1 font-lock-comment-delimiter-face nil t) 734 (1 font-lock-comment-delimiter-face nil t)
722 (5 font-lock-comment-face nil t))) 735 (5 font-lock-comment-face nil t)))
723 '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$" 736 '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$"
724 . font-lock-string-face)))) 737 . 'rmail-header-name))))
725 "Additional expressions to highlight in Rmail mode.") 738 ;;)
739 ;; "Additional expressions to highlight in Rmail mode.")
726 740
727 ;; Perform BODY in the summary buffer 741 ;; Perform BODY in the summary buffer
728 ;; in such a way that its cursor is properly updated in its own window. 742 ;; in such a way that its cursor is properly updated in its own window.
729 (defmacro rmail-select-summary (&rest body) 743 (defmacro rmail-select-summary (&rest body)
730 `(let ((total rmail-total-messages)) 744 `(let ((total rmail-total-messages))