Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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)
2087 (gnus-narrow-to-page -1) ;Go to previous page. 2088 (gnus-narrow-to-page -1) ;Go to previous page.
2088 (goto-char (point-max)) 2089 (goto-char (point-max))
2089 (recenter -1)) 2090 (recenter -1))
2090 (let ((scroll-in-place nil)) 2091 (let ((scroll-in-place nil))
2091 (prog1 2092 (prog1
2092 (ignore-errors 2093 (condition-case ()
2093 (scroll-down lines)) 2094 (scroll-down lines)
2095 (beginning-of-buffer
2096 (goto-char (point-min))))
2094 (move-to-window-line 0))))) 2097 (move-to-window-line 0)))))
2095 2098
2096 (defun gnus-article-refer-article () 2099 (defun gnus-article-refer-article ()
2097 "Read article specified by message-id around point." 2100 "Read article specified by message-id around point."
2098 (interactive) 2101 (interactive)