Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.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 c53a95d3c46d
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
417 :group 'gnus-article-signature) 417 :group 'gnus-article-signature)
418 418
419 (defface gnus-header-from-face 419 (defface gnus-header-from-face
420 '((((class color) 420 '((((class color)
421 (background dark)) 421 (background dark))
422 (:foreground "spring green" :bold t :italic t)) 422 (:foreground "spring green" :bold t))
423 (((class color) 423 (((class color)
424 (background light)) 424 (background light))
425 (:foreground "indianred" :bold t :italic t)) 425 (:foreground "red3" :bold t))
426 (t 426 (t
427 (:bold t :italic t))) 427 (:bold t :italic t)))
428 "Face used for displaying from headers." 428 "Face used for displaying from headers."
429 :group 'gnus-article-headers 429 :group 'gnus-article-headers
430 :group 'gnus-article-highlight) 430 :group 'gnus-article-highlight)
431 431
432 (defface gnus-header-subject-face 432 (defface gnus-header-subject-face
433 '((((class color) 433 '((((class color)
434 (background dark)) 434 (background dark))
435 (:foreground "SeaGreen3" :bold t :italic t)) 435 (:foreground "SeaGreen3" :bold t))
436 (((class color) 436 (((class color)
437 (background light)) 437 (background light))
438 (:foreground "firebrick" :bold t :italic t)) 438 (:foreground "red4" :bold t))
439 (t 439 (t
440 (:bold t :italic t))) 440 (:bold t :italic t)))
441 "Face used for displaying subject headers." 441 "Face used for displaying subject headers."
442 :group 'gnus-article-headers 442 :group 'gnus-article-headers
443 :group 'gnus-article-highlight) 443 :group 'gnus-article-highlight)
508 508
509 ;;; Internal variables 509 ;;; Internal variables
510 510
511 (defvar gnus-article-mode-syntax-table 511 (defvar gnus-article-mode-syntax-table
512 (let ((table (copy-syntax-table text-mode-syntax-table))) 512 (let ((table (copy-syntax-table text-mode-syntax-table)))
513 ;;(modify-syntax-entry ?_ "w" table) 513 (modify-syntax-entry ?- "w" table)
514 table) 514 table)
515 "Syntax table used in article mode buffers. 515 "Syntax table used in article mode buffers.
516 Initialized from `text-mode-syntax-table.") 516 Initialized from `text-mode-syntax-table.")
517 517
518 (defvar gnus-save-article-buffer nil) 518 (defvar gnus-save-article-buffer nil)
2037 2037
2038 (defun gnus-article-goto-next-page () 2038 (defun gnus-article-goto-next-page ()
2039 "Show the next page of the article." 2039 "Show the next page of the article."
2040 (interactive) 2040 (interactive)
2041 (when (gnus-article-next-page) 2041 (when (gnus-article-next-page)
2042 (goto-char (point-min))
2042 (gnus-article-read-summary-keys nil (gnus-character-to-event ?n)))) 2043 (gnus-article-read-summary-keys nil (gnus-character-to-event ?n))))
2043 2044
2044 (defun gnus-article-goto-prev-page () 2045 (defun gnus-article-goto-prev-page ()
2045 "Show the next page of the article." 2046 "Show the next page of the article."
2046 (interactive) 2047 (interactive)