Mercurial > emacs
changeset 42475:1e4516b1d514
2002-01-01 ShengHuo ZHU <zsh@cs.rochester.edu>
* message.el, gnus-art.el, gnus.el, gnus-cite.el:
Adapt face definitions to use :weight and :slant.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Wed, 02 Jan 2002 03:36:29 +0000 |
| parents | 270e55bf2adb |
| children | fe0b84badbb1 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/gnus-cite.el lisp/gnus/gnus.el lisp/gnus/message.el |
| diffstat | 5 files changed, 136 insertions(+), 103 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Jan 01 22:14:32 2002 +0000 +++ b/lisp/gnus/ChangeLog Wed Jan 02 03:36:29 2002 +0000 @@ -1,3 +1,8 @@ +2002-01-01 ShengHuo ZHU <zsh@cs.rochester.edu> + + * message.el, gnus-art.el, gnus.el, gnus-cite.el: + Adapt face definitions to use :weight and :slant. + 2001-12-12 Pavel Jan,Bm(Bk <Pavel@Janik.cz> * gnus-mlspl.el (gnus-group-split-fancy): Doc fix (add reference @@ -5,7 +10,11 @@ 2001-12-05 ShengHuo ZHU <zsh@cs.rochester.edu> - * mm-view.el: Partially sync with the Gnus CVS. + * mm-view.el (mm-inline-text): w3-coding-system-for-mime-charset + may not defined. From: Raja R Harinath <harinath@cs.umn.edu>. + + * mm-view.el (mm-inline-message): Insert a newline unless bolp. + * gnus-sum.el (gnus-summary-save-article): Nix gnus-display-mime-function and gnus-article-prepare-hook. @@ -40,8 +49,23 @@ * gnus-util.el (gnus-directory-sep-char-regexp): New variable. * gnus-score.el (gnus-score-find-bnews): Use it. - * mm-util.el: Sync. Read ChangeLog in Gnus CVS. - + * mm-util.el (mm-iso-8859-x-to-15-region): Use + insert-before-markers. + From Jesper Harder <harder@ifa.au.dk> + * mm-util.el (mm-coding-system-priorities): Add backslash in the doc. + * mm-util.el (mm-coding-system-priorities): New variable. + (mm-sort-coding-systems-predicate): New function. + (mm-find-mime-charset-region): Resort coding systems if needed. + Suggested by Katsumi Yamaoka <yamaoka@jpl.org>. + + * mm-util.el (mm-iso-8859-15-compatible): Fix doc. + (mm-hack-charsets): Fix doc. + + * mm-util.el (mm-iso-8859-15-compatible): Add inconvertible chars. + (mm-iso-8859-x-to-15-table): Ditto. + (mm-iso-8859-x-to-15-region): Ditto. + (mm-find-mime-charset-region): Ditto. + * gnus-sum.el (gnus-summary-limit-to-subject): An exclusion version. (gnus-summary-limit-to-author): Ditto. (gnus-summary-limit-to-extra): Ditto. @@ -75,8 +99,17 @@ 2001-10-30 ShengHuo ZHU <zsh@cs.rochester.edu> - * mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with - the Gnus CVS. + * mm-util.el (mm-iso-8859-x-to-15-region): New function. + (mm-hack-charsets): New variable. + (mm-iso-8859-15-compatible): New variable. + (mm-iso-8859-x-to-15-table): New variable. + (mm-find-mime-charset-region): Add parameter hack-charsets. + + * mm-util.el (mm-charset-to-coding-system): Return nil, if charset + is nil. + + * nnultimate.el, nnweb.el, nnslashdot.el: Update, because the web + pages are changed. * mm-util.el (mm-mime-mule-charset-alist): Move down and call mm-coding-system-p. Don't correct it only in XEmacs.
--- a/lisp/gnus/gnus-art.el Tue Jan 01 22:14:32 2002 +0000 +++ b/lisp/gnus/gnus-art.el Wed Jan 02 03:36:29 2002 +0000 @@ -1,6 +1,6 @@ ;;; gnus-art.el --- article mode commands for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -278,11 +278,11 @@ :group 'gnus-article-emphasis :type 'regexp) -(defface gnus-emphasis-bold '((t (:bold t))) +(defface gnus-emphasis-bold '((t (:weight bold))) "Face used for displaying strong emphasized text (*word*)." :group 'gnus-article-emphasis) -(defface gnus-emphasis-italic '((t (:italic t))) +(defface gnus-emphasis-italic '((t (:slant italic))) "Face used for displaying italic emphasized text (/word/)." :group 'gnus-article-emphasis) @@ -290,20 +290,20 @@ "Face used for displaying underlined emphasized text (_word_)." :group 'gnus-article-emphasis) -(defface gnus-emphasis-underline-bold '((t (:bold t :underline t))) +(defface gnus-emphasis-underline-bold '((t (:weight bold :underline t))) "Face used for displaying underlined bold emphasized text (_*word*_)." :group 'gnus-article-emphasis) -(defface gnus-emphasis-underline-italic '((t (:italic t :underline t))) +(defface gnus-emphasis-underline-italic '((t (:slant italic :underline t))) "Face used for displaying underlined italic emphasized text (_/word/_)." :group 'gnus-article-emphasis) -(defface gnus-emphasis-bold-italic '((t (:bold t :italic t))) +(defface gnus-emphasis-bold-italic '((t (:weight bold :slant italic))) "Face used for displaying bold italic emphasized text (/*word*/)." :group 'gnus-article-emphasis) (defface gnus-emphasis-underline-bold-italic - '((t (:bold t :italic t :underline t))) + '((t (:weight bold :slant italic :underline t))) "Face used for displaying underlined bold italic emphasized text. Esample: (_/*word*/_)." :group 'gnus-article-emphasis) @@ -489,7 +489,7 @@ (defface gnus-signature-face '((t - (:italic t))) + (:slant italic))) "Face used for highlighting a signature in the article buffer." :group 'gnus-article-highlight :group 'gnus-article-signature) @@ -502,7 +502,7 @@ (background light)) (:foreground "red3")) (t - (:italic t))) + (:slant italic))) "Face used for displaying from headers." :group 'gnus-article-headers :group 'gnus-article-highlight) @@ -515,7 +515,7 @@ (background light)) (:foreground "red4")) (t - (:bold t :italic t))) + (:weight bold :slant italic))) "Face used for displaying subject headers." :group 'gnus-article-headers :group 'gnus-article-highlight) @@ -523,12 +523,12 @@ (defface gnus-header-newsgroups-face '((((class color) (background dark)) - (:foreground "yellow" :italic t)) + (:foreground "yellow" :slant italic)) (((class color) (background light)) - (:foreground "MidnightBlue" :italic t)) + (:foreground "MidnightBlue" :slant italic)) (t - (:italic t))) + (:slant italic))) "Face used for displaying newsgroups headers." :group 'gnus-article-headers :group 'gnus-article-highlight) @@ -541,7 +541,7 @@ (background light)) (:foreground "maroon")) (t - (:bold t))) + (:weight bold))) "Face used for displaying header names." :group 'gnus-article-headers :group 'gnus-article-highlight) @@ -549,12 +549,12 @@ (defface gnus-header-content-face '((((class color) (background dark)) - (:foreground "forest green" :italic t)) + (:foreground "forest green" :slant italic)) (((class color) (background light)) - (:foreground "indianred4" :italic t)) + (:foreground "indianred4" :slant italic)) (t - (:italic t))) "Face used for displaying header content." + (:slant italic))) "Face used for displaying header content." :group 'gnus-article-headers :group 'gnus-article-highlight)
--- a/lisp/gnus/gnus-cite.el Tue Jan 01 22:14:32 2002 +0000 +++ b/lisp/gnus/gnus-cite.el Wed Jan 02 03:36:29 2002 +0000 @@ -1,6 +1,6 @@ ;;; gnus-cite.el --- parse citations in articles for Gnus -*- coding: iso-latin-1 -*- -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002 ;; Free Software Foundation, Inc. ;; Author: Per Abhiddenware @@ -124,7 +124,7 @@ :type 'regexp) (defface gnus-cite-attribution-face '((t - (:italic t))) + (:slant italic))) "Face used for attribution lines.") (defcustom gnus-cite-attribution-face 'gnus-cite-attribution-face @@ -140,7 +140,7 @@ (background light)) (:foreground "MidnightBlue")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-2 '((((class color) @@ -150,7 +150,7 @@ (background light)) (:foreground "firebrick")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-3 '((((class color) @@ -160,7 +160,7 @@ (background light)) (:foreground "dark green")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-4 '((((class color) @@ -170,7 +170,7 @@ (background light)) (:foreground "OrangeRed")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-5 '((((class color) @@ -180,7 +180,7 @@ (background light)) (:foreground "dark khaki")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-6 '((((class color) @@ -190,7 +190,7 @@ (background light)) (:foreground "dark violet")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-7 '((((class color) @@ -200,7 +200,7 @@ (background light)) (:foreground "SteelBlue4")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-8 '((((class color) @@ -210,7 +210,7 @@ (background light)) (:foreground "magenta")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-9 '((((class color) @@ -220,7 +220,7 @@ (background light)) (:foreground "violet")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-10 '((((class color) @@ -230,7 +230,7 @@ (background light)) (:foreground "medium purple")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defface gnus-cite-face-11 '((((class color) @@ -240,7 +240,7 @@ (background light)) (:foreground "turquoise")) (t - (:italic t))) + (:slant italic))) "Citation face.") (defcustom gnus-cite-face-list
--- a/lisp/gnus/gnus.el Tue Jan 01 22:14:32 2002 +0000 +++ b/lisp/gnus/gnus.el Wed Jan 02 03:36:29 2002 +0000 @@ -1,6 +1,6 @@ ;;; gnus.el --- a newsreader for GNU Emacs -;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, -;; 1997, 1998, 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, +;; 1998, 2000, 2001, 2002 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -325,10 +325,10 @@ (defface gnus-group-news-1-face '((((class color) (background dark)) - (:foreground "PaleTurquoise" :bold t)) + (:foreground "PaleTurquoise" :weight bold)) (((class color) (background light)) - (:foreground "ForestGreen" :bold t)) + (:foreground "ForestGreen" :weight bold)) (t ())) "Level 1 newsgroup face.") @@ -347,10 +347,10 @@ (defface gnus-group-news-2-face '((((class color) (background dark)) - (:foreground "turquoise" :bold t)) + (:foreground "turquoise" :weight bold)) (((class color) (background light)) - (:foreground "CadetBlue4" :bold t)) + (:foreground "CadetBlue4" :weight bold)) (t ())) "Level 2 newsgroup face.") @@ -369,10 +369,10 @@ (defface gnus-group-news-3-face '((((class color) (background dark)) - (:bold t)) + (:weight bold)) (((class color) (background light)) - (:bold t)) + (:weight bold)) (t ())) "Level 3 newsgroup face.") @@ -391,10 +391,10 @@ (defface gnus-group-news-4-face '((((class color) (background dark)) - (:bold t)) + (:weight bold)) (((class color) (background light)) - (:bold t)) + (:weight bold)) (t ())) "Level 4 newsgroup face.") @@ -413,10 +413,10 @@ (defface gnus-group-news-5-face '((((class color) (background dark)) - (:bold t)) + (:weight bold)) (((class color) (background light)) - (:bold t)) + (:weight bold)) (t ())) "Level 5 newsgroup face.") @@ -435,10 +435,10 @@ (defface gnus-group-news-6-face '((((class color) (background dark)) - (:bold t)) + (:weight bold)) (((class color) (background light)) - (:bold t)) + (:weight bold)) (t ())) "Level 6 newsgroup face.") @@ -457,10 +457,10 @@ (defface gnus-group-news-low-face '((((class color) (background dark)) - (:foreground "DarkTurquoise" :bold t)) + (:foreground "DarkTurquoise" :weight bold)) (((class color) (background light)) - (:foreground "DarkGreen" :bold t)) + (:foreground "DarkGreen" :weight bold)) (t ())) "Low level newsgroup face.") @@ -479,12 +479,12 @@ (defface gnus-group-mail-1-face '((((class color) (background dark)) - (:foreground "aquamarine1" :bold t)) + (:foreground "aquamarine1" :weight bold)) (((class color) (background light)) - (:foreground "DeepPink3" :bold t)) + (:foreground "DeepPink3" :weight bold)) (t - (:bold t))) + (:weight bold))) "Level 1 mailgroup face.") (defface gnus-group-mail-1-empty-face @@ -495,18 +495,18 @@ (background light)) (:foreground "DeepPink3")) (t - (:italic t :bold t))) + (:slant italic :weight bold))) "Level 1 empty mailgroup face.") (defface gnus-group-mail-2-face '((((class color) (background dark)) - (:foreground "aquamarine2" :bold t)) + (:foreground "aquamarine2" :weight bold)) (((class color) (background light)) - (:foreground "HotPink3" :bold t)) + (:foreground "HotPink3" :weight bold)) (t - (:bold t))) + (:weight bold))) "Level 2 mailgroup face.") (defface gnus-group-mail-2-empty-face @@ -517,18 +517,18 @@ (background light)) (:foreground "HotPink3")) (t - (:bold t))) + (:weight bold))) "Level 2 empty mailgroup face.") (defface gnus-group-mail-3-face '((((class color) (background dark)) - (:foreground "aquamarine3" :bold t)) + (:foreground "aquamarine3" :weight bold)) (((class color) (background light)) - (:foreground "magenta4" :bold t)) + (:foreground "magenta4" :weight bold)) (t - (:bold t))) + (:weight bold))) "Level 3 mailgroup face.") (defface gnus-group-mail-3-empty-face @@ -545,12 +545,12 @@ (defface gnus-group-mail-low-face '((((class color) (background dark)) - (:foreground "aquamarine4" :bold t)) + (:foreground "aquamarine4" :weight bold)) (((class color) (background light)) - (:foreground "DeepPink4" :bold t)) + (:foreground "DeepPink4" :weight bold)) (t - (:bold t))) + (:weight bold))) "Low level mailgroup face.") (defface gnus-group-mail-low-empty-face @@ -561,7 +561,7 @@ (background light)) (:foreground "DeepPink4")) (t - (:bold t))) + (:weight bold))) "Low level empty mailgroup face.") ;; Summary mode faces. @@ -578,23 +578,23 @@ (defface gnus-summary-high-ticked-face '((((class color) (background dark)) - (:foreground "pink" :bold t)) + (:foreground "pink" :weight bold)) (((class color) (background light)) - (:foreground "firebrick" :bold t)) + (:foreground "firebrick" :weight bold)) (t - (:bold t))) + (:weight bold))) "Face used for high interest ticked articles.") (defface gnus-summary-low-ticked-face '((((class color) (background dark)) - (:foreground "pink" :italic t)) + (:foreground "pink" :slant italic)) (((class color) (background light)) - (:foreground "firebrick" :italic t)) + (:foreground "firebrick" :slant italic)) (t - (:italic t))) + (:slant italic))) "Face used for low interest ticked articles.") (defface gnus-summary-normal-ticked-face @@ -611,23 +611,23 @@ (defface gnus-summary-high-ancient-face '((((class color) (background dark)) - (:foreground "SkyBlue" :bold t)) + (:foreground "SkyBlue" :weight bold)) (((class color) (background light)) - (:foreground "RoyalBlue" :bold t)) + (:foreground "RoyalBlue" :weight bold)) (t - (:bold t))) + (:weight bold))) "Face used for high interest ancient articles.") (defface gnus-summary-low-ancient-face '((((class color) (background dark)) - (:foreground "SkyBlue" :italic t)) + (:foreground "SkyBlue" :slant italic)) (((class color) (background light)) - (:foreground "RoyalBlue" :italic t)) + (:foreground "RoyalBlue" :slant italic)) (t - (:italic t))) + (:slant italic))) "Face used for low interest ancient articles.") (defface gnus-summary-normal-ancient-face @@ -643,12 +643,12 @@ (defface gnus-summary-high-unread-face '((t - (:bold t))) + (:weight bold))) "Face used for high interest unread articles.") (defface gnus-summary-low-unread-face '((t - (:italic t))) + (:slant italic))) "Face used for low interest unread articles.") (defface gnus-summary-normal-unread-face @@ -660,26 +660,26 @@ '((((class color) (background dark)) (:foreground "PaleGreen" - :bold t)) + :weight bold)) (((class color) (background light)) (:foreground "DarkGreen" - :bold t)) + :weight bold)) (t - (:bold t))) + (:weight bold))) "Face used for high interest read articles.") (defface gnus-summary-low-read-face '((((class color) (background dark)) (:foreground "PaleGreen" - :italic t)) + :slant italic)) (((class color) (background light)) (:foreground "DarkGreen" - :italic t)) + :slant italic)) (t - (:italic t))) + (:slant italic))) "Face used for low interest read articles.") (defface gnus-summary-normal-read-face
--- a/lisp/gnus/message.el Tue Jan 01 22:14:32 2002 +0000 +++ b/lisp/gnus/message.el Wed Jan 02 03:36:29 2002 +0000 @@ -1,5 +1,5 @@ ;;; message.el --- composing mail and news messages -*- coding: iso-latin-1 -*- -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -716,24 +716,24 @@ (defface message-header-to-face '((((class color) (background dark)) - (:foreground "green2" :bold t)) + (:foreground "green2" :weight bold)) (((class color) (background light)) - (:foreground "MidnightBlue" :bold t)) + (:foreground "MidnightBlue" :weight bold)) (t - (:bold t :italic t))) + (:weight bold :slant italic))) "Face used for displaying From headers." :group 'message-faces) (defface message-header-cc-face '((((class color) (background dark)) - (:foreground "green4" :bold t)) + (:foreground "green4" :weight bold)) (((class color) (background light)) (:foreground "MidnightBlue")) (t - (:bold t))) + (:weight bold))) "Face used for displaying Cc headers." :group 'message-faces) @@ -743,21 +743,21 @@ (:foreground "green3")) (((class color) (background light)) - (:foreground "navy blue" :bold t)) + (:foreground "navy blue" :weight bold)) (t - (:bold t))) + (:weight bold))) "Face used for displaying subject headers." :group 'message-faces) (defface message-header-newsgroups-face '((((class color) (background dark)) - (:foreground "yellow" :bold t :italic t)) + (:foreground "yellow" :weight bold :slant italic)) (((class color) (background light)) - (:foreground "blue4" :bold t :italic t)) + (:foreground "blue4" :weight bold :slant italic)) (t - (:bold t :italic t))) + (:weight bold :slant italic))) "Face used for displaying newsgroups headers." :group 'message-faces) @@ -769,7 +769,7 @@ (background light)) (:foreground "steel blue")) (t - (:bold t :italic t))) + (:weight bold :slant italic))) "Face used for displaying newsgroups headers." :group 'message-faces) @@ -781,7 +781,7 @@ (background light)) (:foreground "cornflower blue")) (t - (:bold t))) + (:weight bold))) "Face used for displaying header names." :group 'message-faces) @@ -793,7 +793,7 @@ (background light)) (:foreground "blue")) (t - (:bold t))) + (:weight bold))) "Face used for displaying X-Header headers." :group 'message-faces) @@ -805,7 +805,7 @@ (background light)) (:foreground "brown")) (t - (:bold t))) + (:weight bold))) "Face used for displaying the separator." :group 'message-faces) @@ -817,7 +817,7 @@ (background light)) (:foreground "red")) (t - (:bold t))) + (:weight bold))) "Face used for displaying cited text names." :group 'message-faces) @@ -829,7 +829,7 @@ (background light)) (:foreground "ForestGreen")) (t - (:bold t))) + (:weight bold))) "Face used for displaying MML." :group 'message-faces)