*** fill.el	Sun Jun 21 12:38:06 2009
--- fill-modified.el	Sun May 16 15:11:00 2010
***************
*** 1036,1042 ****
  	  (fill-forward-paragraph -1))
  	(if (< (point) beg)
  	    (goto-char beg))
! 	(if (>= (point) initial)
  	    (setq fill-pfx
  		  (fill-region-as-paragraph (point) end justify nosqueeze))
  	  (goto-char end))))
--- 1036,1042 ----
  	  (fill-forward-paragraph -1))
  	(if (< (point) beg)
  	    (goto-char beg))
! 	(if (and (>= (point) initial) (< (point) end))
  	    (setq fill-pfx
  		  (fill-region-as-paragraph (point) end justify nosqueeze))
  	  (goto-char end))))