Function: gnus-article-set-window-start

gnus-article-set-window-start is an autoloaded and byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-article-set-window-start &optional LINE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
;; Set article window start at LINE, where LINE is the number of lines
;; from the head of the article.
(defun gnus-article-set-window-start (&optional line)
  (let ((article-window (gnus-get-buffer-window gnus-article-buffer t)))
    (when article-window
      (set-window-start
       article-window
       (with-current-buffer gnus-article-buffer
	 (goto-char (point-min))
	 (if (not line)
	     (point-min)
	   (gnus-message 6 "Moved to bookmark")
	   (search-forward "\n\n" nil t)
	   (forward-line line)
	   (point)))))))