--- a/lisp/gnus/gnus-xmas.el	Mon Aug 13 08:51:05 2007 +0200
+++ b/lisp/gnus/gnus-xmas.el	Mon Aug 13 08:51:32 2007 +0200
@@ -137,10 +137,13 @@
     (set-extent-face gnus-newsgroup-selected-overlay
 		     gnus-summary-selected-face)))
 
-(defvar gnus-xmas-force-redisplay t
+(defvar gnus-xmas-force-redisplay nil
   "If non-nil, force a redisplay before recentering the summary buffer.
 This is ugly, but it works around a bug in `window-displayed-height'.")
 
+(defun gnus-xmas-switch-horizontal-scrollbar-off ()
+  (set-specifier scrollbar-height (cons (current-buffer) 0)))
+
 (defun gnus-xmas-summary-recenter ()
   "\"Center\" point in the summary window.
 If `gnus-auto-center-summary' is nil, or the article buffer isn't
@@ -476,6 +479,8 @@
   (add-hook 'gnus-group-mode-hook 'gnus-xmas-setup-group-toolbar)
   (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar)
 
+  (add-hook 'gnus-summary-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off)
+
   (when (and (<= emacs-major-version 19)
 	     (<= emacs-minor-version 13))
     (setq gnus-article-x-face-too-ugly (when (eq (device-type) 'tty)