Mercurial > hg > xemacs-beta
diff lisp/gnus/gnus-art.el @ 32:e04119814345 r19-15b99
Import from CVS: tag r19-15b99
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:52:56 +0200 |
parents | ec9a17fef872 |
children | c53a95d3c46d |
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el Mon Aug 13 08:52:30 2007 +0200 +++ b/lisp/gnus/gnus-art.el Mon Aug 13 08:52:56 2007 +0200 @@ -419,10 +419,10 @@ (defface gnus-header-from-face '((((class color) (background dark)) - (:foreground "spring green" :bold t :italic t)) + (:foreground "spring green" :bold t)) (((class color) (background light)) - (:foreground "indianred" :bold t :italic t)) + (:foreground "red3" :bold t)) (t (:bold t :italic t))) "Face used for displaying from headers." @@ -432,10 +432,10 @@ (defface gnus-header-subject-face '((((class color) (background dark)) - (:foreground "SeaGreen3" :bold t :italic t)) + (:foreground "SeaGreen3" :bold t)) (((class color) (background light)) - (:foreground "firebrick" :bold t :italic t)) + (:foreground "red4" :bold t)) (t (:bold t :italic t))) "Face used for displaying subject headers." @@ -510,7 +510,7 @@ (defvar gnus-article-mode-syntax-table (let ((table (copy-syntax-table text-mode-syntax-table))) - ;;(modify-syntax-entry ?_ "w" table) + (modify-syntax-entry ?- "w" table) table) "Syntax table used in article mode buffers. Initialized from `text-mode-syntax-table.") @@ -2039,6 +2039,7 @@ "Show the next page of the article." (interactive) (when (gnus-article-next-page) + (goto-char (point-min)) (gnus-article-read-summary-keys nil (gnus-character-to-event ?n)))) (defun gnus-article-goto-prev-page ()