Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children d620409f5eb8
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
90 :group 'message) 90 :group 'message)
91 91
92 (defgroup message-mail nil 92 (defgroup message-mail nil
93 "Composing Mail Messages" 93 "Composing Mail Messages"
94 :group 'message) 94 :group 'message)
95
96 (defgroup message-faces nil
97 "Faces used for message composing."
98 :group 'message
99 :group 'faces)
95 100
96 (defcustom message-directory "~/Mail/" 101 (defcustom message-directory "~/Mail/"
97 "*Directory from which all other mail file variables are derived." 102 "*Directory from which all other mail file variables are derived."
98 :group 'message-various 103 :group 'message-various
99 :type 'directory) 104 :type 'directory)
396 ((boundp 'gnus-select-method) 401 ((boundp 'gnus-select-method)
397 gnus-select-method) 402 gnus-select-method)
398 (t '(nnspool ""))) 403 (t '(nnspool "")))
399 "Method used to post news." 404 "Method used to post news."
400 :group 'message-news 405 :group 'message-news
401 :group 'mesage-sending 406 :group 'message-sending
402 ;; This should be the `gnus-select-method' widget, but that might 407 ;; This should be the `gnus-select-method' widget, but that might
403 ;; create a dependence to `gnus.el'. 408 ;; create a dependence to `gnus.el'.
404 :type 'sexp) 409 :type 'sexp)
405 410
406 (defcustom message-generate-headers-first nil 411 (defcustom message-generate-headers-first nil
612 (background light)) 617 (background light))
613 (:foreground "MidnightBlue" :bold t)) 618 (:foreground "MidnightBlue" :bold t))
614 (t 619 (t
615 (:bold t :italic t))) 620 (:bold t :italic t)))
616 "Face used for displaying From headers." 621 "Face used for displaying From headers."
617 :group 'message-headers) 622 :group 'message-faces)
618 623
619 (defface message-header-cc-face 624 (defface message-header-cc-face
620 '((((class color) 625 '((((class color)
621 (background dark)) 626 (background dark))
622 (:foreground "green4" :bold t)) 627 (:foreground "green4" :bold t))
624 (background light)) 629 (background light))
625 (:foreground "MidnightBlue")) 630 (:foreground "MidnightBlue"))
626 (t 631 (t
627 (:bold t))) 632 (:bold t)))
628 "Face used for displaying Cc headers." 633 "Face used for displaying Cc headers."
629 :group 'message-headers) 634 :group 'message-faces)
630 635
631 (defface message-header-subject-face 636 (defface message-header-subject-face
632 '((((class color) 637 '((((class color)
633 (background dark)) 638 (background dark))
634 (:foreground "green3")) 639 (:foreground "green3"))
636 (background light)) 641 (background light))
637 (:foreground "navy blue" :bold t)) 642 (:foreground "navy blue" :bold t))
638 (t 643 (t
639 (:bold t))) 644 (:bold t)))
640 "Face used for displaying subject headers." 645 "Face used for displaying subject headers."
641 :group 'message-headers) 646 :group 'message-faces)
642 647
643 (defface message-header-newsgroups-face 648 (defface message-header-newsgroups-face
644 '((((class color) 649 '((((class color)
645 (background dark)) 650 (background dark))
646 (:foreground "yellow" :bold t :italic t)) 651 (:foreground "yellow" :bold t :italic t))
648 (background light)) 653 (background light))
649 (:foreground "blue4" :bold t :italic t)) 654 (:foreground "blue4" :bold t :italic t))
650 (t 655 (t
651 (:bold t :italic t))) 656 (:bold t :italic t)))
652 "Face used for displaying newsgroups headers." 657 "Face used for displaying newsgroups headers."
653 :group 'message-headers) 658 :group 'message-faces)
654 659
655 (defface message-header-other-face 660 (defface message-header-other-face
656 '((((class color) 661 '((((class color)
657 (background dark)) 662 (background dark))
658 (:foreground "red4")) 663 (:foreground "red4"))
660 (background light)) 665 (background light))
661 (:foreground "steel blue")) 666 (:foreground "steel blue"))
662 (t 667 (t
663 (:bold t :italic t))) 668 (:bold t :italic t)))
664 "Face used for displaying newsgroups headers." 669 "Face used for displaying newsgroups headers."
665 :group 'message-headers) 670 :group 'message-faces)
666 671
667 (defface message-header-name-face 672 (defface message-header-name-face
668 '((((class color) 673 '((((class color)
669 (background dark)) 674 (background dark))
670 (:foreground "DarkGreen")) 675 (:foreground "DarkGreen"))
672 (background light)) 677 (background light))
673 (:foreground "cornflower blue")) 678 (:foreground "cornflower blue"))
674 (t 679 (t
675 (:bold t))) 680 (:bold t)))
676 "Face used for displaying header names." 681 "Face used for displaying header names."
677 :group 'message-headers) 682 :group 'message-faces)
678 683
679 (defface message-header-xheader-face 684 (defface message-header-xheader-face
680 '((((class color) 685 '((((class color)
681 (background dark)) 686 (background dark))
682 (:foreground "blue")) 687 (:foreground "blue"))
684 (background light)) 689 (background light))
685 (:foreground "blue")) 690 (:foreground "blue"))
686 (t 691 (t
687 (:bold t))) 692 (:bold t)))
688 "Face used for displaying X-Header headers." 693 "Face used for displaying X-Header headers."
689 :group 'message-headers) 694 :group 'message-faces)
690 695
691 (defface message-separator-face 696 (defface message-separator-face
692 '((((class color) 697 '((((class color)
693 (background dark)) 698 (background dark))
694 (:foreground "blue4")) 699 (:foreground "blue4"))
696 (background light)) 701 (background light))
697 (:foreground "brown")) 702 (:foreground "brown"))
698 (t 703 (t
699 (:bold t))) 704 (:bold t)))
700 "Face used for displaying the separator." 705 "Face used for displaying the separator."
701 :group 'message-headers) 706 :group 'message-faces)
702 707
703 (defface message-cited-text-face 708 (defface message-cited-text-face
704 '((((class color) 709 '((((class color)
705 (background dark)) 710 (background dark))
706 (:foreground "red")) 711 (:foreground "red"))
708 (background light)) 713 (background light))
709 (:foreground "red")) 714 (:foreground "red"))
710 (t 715 (t
711 (:bold t))) 716 (:bold t)))
712 "Face used for displaying cited text names." 717 "Face used for displaying cited text names."
713 :group 'message-headers) 718 :group 'message-faces)
714 719
715 (defvar message-font-lock-keywords 720 (defvar message-font-lock-keywords
716 (let* ((cite-prefix "A-Za-z") 721 (let* ((cite-prefix "A-Za-z")
717 (cite-suffix (concat cite-prefix "0-9_.@-")) 722 (cite-suffix (concat cite-prefix "0-9_.@-"))
718 (content "[ \t]*\\(.+\\(\n[ \t].*\\)*\\)")) 723 (content "[ \t]*\\(.+\\(\n[ \t].*\\)*\\)"))