[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-util.el
diff -c emacs/lisp/gnus/gnus-util.el:1.29 emacs/lisp/gnus/gnus-util.el:1.30
*** emacs/lisp/gnus/gnus-util.el:1.29   Mon Jul  4 17:55:14 2005
--- emacs/lisp/gnus/gnus-util.el        Fri Jul 22 08:22:40 2005
***************
*** 1,5 ****
  ;;; gnus-util.el --- utility functions for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; gnus-util.el --- utility functions for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 1576,1581 ****
--- 1576,1605 ----
        'set-process-query-on-exit-flag)
    (defalias 'gnus-set-process-query-on-exit-flag
      'process-kill-without-query))
+ 
+ (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 (and (boundp 'header-line-format)
+                            (symbol-value '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 (and (boundp 'header-line-format)
+                                  (symbol-value 'header-line-format))
+                             1 0))))))))
  
  (provide 'gnus-util)