+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
\e,Bm
\e(Bk <Pavel@Janik.cz>
* gnus-mlspl.el (gnus-group-split-fancy): Doc fix (add reference
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.
* 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.
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.
;;; 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>
: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)
"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)
(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)
(background light))
(:foreground "red3"))
(t
- (:italic t)))
+ (:slant italic)))
"Face used for displaying from headers."
:group 'gnus-article-headers
:group 'gnus-article-highlight)
(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)
(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)
(background light))
(:foreground "maroon"))
(t
- (:bold t)))
+ (:weight bold)))
"Face used for displaying header names."
:group 'gnus-article-headers
:group 'gnus-article-highlight)
(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)
;;; 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
: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
(background light))
(:foreground "MidnightBlue"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-2 '((((class color)
(background light))
(:foreground "firebrick"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-3 '((((class color)
(background light))
(:foreground "dark green"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-4 '((((class color)
(background light))
(:foreground "OrangeRed"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-5 '((((class color)
(background light))
(:foreground "dark khaki"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-6 '((((class color)
(background light))
(:foreground "dark violet"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-7 '((((class color)
(background light))
(:foreground "SteelBlue4"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-8 '((((class color)
(background light))
(:foreground "magenta"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-9 '((((class color)
(background light))
(:foreground "violet"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-10 '((((class color)
(background light))
(:foreground "medium purple"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defface gnus-cite-face-11 '((((class color)
(background light))
(:foreground "turquoise"))
(t
- (:italic t)))
+ (:slant italic)))
"Citation face.")
(defcustom gnus-cite-face-list
;;; 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>
(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.")
(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.")
(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.")
(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.")
(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.")
(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.")
(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.")
(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
(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
(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
(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
(background light))
(:foreground "DeepPink4"))
(t
- (:bold t)))
+ (:weight bold)))
"Low level empty mailgroup face.")
;; Summary mode faces.
(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
(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
(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
'((((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
;;; 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>
(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)
(: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)
(background light))
(:foreground "steel blue"))
(t
- (:bold t :italic t)))
+ (:weight bold :slant italic)))
"Face used for displaying newsgroups headers."
:group 'message-faces)
(background light))
(:foreground "cornflower blue"))
(t
- (:bold t)))
+ (:weight bold)))
"Face used for displaying header names."
:group 'message-faces)
(background light))
(:foreground "blue"))
(t
- (:bold t)))
+ (:weight bold)))
"Face used for displaying X-Header headers."
:group 'message-faces)
(background light))
(:foreground "brown"))
(t
- (:bold t)))
+ (:weight bold)))
"Face used for displaying the separator."
:group 'message-faces)
(background light))
(:foreground "red"))
(t
- (:bold t)))
+ (:weight bold)))
"Face used for displaying cited text names."
:group 'message-faces)
(background light))
(:foreground "ForestGreen"))
(t
- (:bold t)))
+ (:weight bold)))
"Face used for displaying MML."
:group 'message-faces)
projects / emacs.git / commitdiff