*** /usr/local/share/emacs/21.3.50/lisp/outline.el	2004-09-13 12:28:12.000000000 +0100
--- outline.el	2004-10-22 21:24:18.000000000 +0100
***************
*** 723,729 ****
  			 (progn (outline-next-preface) (point)) nil)))
  
  (defun hide-body ()
!   "Hide all of buffer except headings."
    (interactive)
    (hide-region-body (point-min) (point-max)))
  
--- 723,729 ----
  			 (progn (outline-next-preface) (point)) nil)))
  
  (defun hide-body ()
!   "Hide all body lines in buffer, leaving all headings visible."
    (interactive)
    (hide-region-body (point-min) (point-max)))
  
***************
*** 738,744 ****
  	(narrow-to-region start end)
  	(goto-char (point-min))
  	(if (outline-on-heading-p)
! 	    (outline-end-of-heading))
  	(while (not (eobp))
  	  (outline-flag-region (point)
  			       (progn (outline-next-preface) (point)) t)
--- 738,745 ----
  	(narrow-to-region start end)
  	(goto-char (point-min))
  	(if (outline-on-heading-p)
! 	    (outline-end-of-heading)
! 	  (outline-next-preface))
  	(while (not (eobp))
  	  (outline-flag-region (point)
  			       (progn (outline-next-preface) (point)) t)