-(defun gnus-beginning-of-window ()
- "Move point to the beginning of the window."
- (move-to-window-line
- (if (featurep 'xemacs)
- 0
- (min scroll-margin
- (max 1 (- (window-height)
- (if mode-line-format 1 0)
- (if header-line-format 1 0)))))))
-
-(defun gnus-end-of-window ()
- "Move point to the end of the window."
- (move-to-window-line
- (if (featurep 'xemacs)
- -1
- (max (- -1 scroll-margin)
- (- -1 (max 1 (- (window-height)
- (if mode-line-format 1 0)
- (if header-line-format 1 0))))))))
-