Function: gnus-article-beginning-of-window

gnus-article-beginning-of-window is a byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-article-beginning-of-window)

Documentation

Move point to the beginning of the window.

The point is placed at the line number which scroll-margin specifies.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-article-beginning-of-window ()
  "Move point to the beginning of the window.
The point is placed at the line number which `scroll-margin'
specifies."
  ;; There is an obscure bug in Emacs that makes it impossible to
  ;; scroll past big pictures in the article buffer.  Try to fix
  ;; this by adding a sanity check by counting the lines visible.
  (when (> (count-lines (window-start) (window-end)) 30)
    (move-to-window-line
     (min (max 0 scroll-margin)
	  (max 1 (- (window-height)
		    (if mode-line-format 1 0)
		    (if header-line-format 1 0)
		    2))))))