--- a/lisp/fill.el	Mon Aug 13 11:01:58 2007 +0200
+++ b/lisp/fill.el	Mon Aug 13 11:03:08 2007 +0200
@@ -226,10 +226,9 @@
       ;; XEmacs change
       (if (not dont-skip-first)
 	  (forward-line 1))
-      (cond ((>= (point) to)
-	     (goto-char firstline))
-	    ((/= (point) from)
-	     (setq at-second t)))
+      (if (>= (point) to)
+	  (goto-char firstline)
+	(setq at-second t))
       (move-to-left-margin)
       ;; XEmacs change
       (let ((start (point))
@@ -237,7 +236,7 @@
 	    ;(eol (save-excursion (end-of-line) (point)))
 	    )
 	(setq result
-	      (if (or dont-skip-first (not (looking-at paragraph-start)))
+	      (if (not (looking-at paragraph-start))
 		  (cond ((and adaptive-fill-regexp (looking-at adaptive-fill-regexp))
 			 (buffer-substring-no-properties start (match-end 0)))
 			(adaptive-fill-function (funcall adaptive-fill-function)))))