Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-xmas.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 1917ad0d78d7
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
135 (setq gnus-newsgroup-selected-overlay 135 (setq gnus-newsgroup-selected-overlay
136 (make-extent (gnus-point-at-bol) (gnus-point-at-eol))) 136 (make-extent (gnus-point-at-bol) (gnus-point-at-eol)))
137 (set-extent-face gnus-newsgroup-selected-overlay 137 (set-extent-face gnus-newsgroup-selected-overlay
138 gnus-summary-selected-face))) 138 gnus-summary-selected-face)))
139 139
140 (defvar gnus-xmas-force-redisplay t 140 (defvar gnus-xmas-force-redisplay nil
141 "If non-nil, force a redisplay before recentering the summary buffer. 141 "If non-nil, force a redisplay before recentering the summary buffer.
142 This is ugly, but it works around a bug in `window-displayed-height'.") 142 This is ugly, but it works around a bug in `window-displayed-height'.")
143
144 (defun gnus-xmas-switch-horizontal-scrollbar-off ()
145 (set-specifier scrollbar-height (cons (current-buffer) 0)))
143 146
144 (defun gnus-xmas-summary-recenter () 147 (defun gnus-xmas-summary-recenter ()
145 "\"Center\" point in the summary window. 148 "\"Center\" point in the summary window.
146 If `gnus-auto-center-summary' is nil, or the article buffer isn't 149 If `gnus-auto-center-summary' is nil, or the article buffer isn't
147 displayed, no centering will be performed." 150 displayed, no centering will be performed."
474 (add-hook 'gnus-browse-mode-hook 'gnus-xmas-browse-menu-add) 477 (add-hook 'gnus-browse-mode-hook 'gnus-xmas-browse-menu-add)
475 478
476 (add-hook 'gnus-group-mode-hook 'gnus-xmas-setup-group-toolbar) 479 (add-hook 'gnus-group-mode-hook 'gnus-xmas-setup-group-toolbar)
477 (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar) 480 (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar)
478 481
482 (add-hook 'gnus-summary-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off)
483
479 (when (and (<= emacs-major-version 19) 484 (when (and (<= emacs-major-version 19)
480 (<= emacs-minor-version 13)) 485 (<= emacs-minor-version 13))
481 (setq gnus-article-x-face-too-ugly (when (eq (device-type) 'tty) 486 (setq gnus-article-x-face-too-ugly (when (eq (device-type) 'tty)
482 ".")) 487 "."))
483 (fset 'gnus-highlight-selected-summary 488 (fset 'gnus-highlight-selected-summary