(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)))))
(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)))))
;; This is the actual filling loop.
(let ((prefixcol 0) linebeg
(re-break-point (if (featurep 'mule)
;; This is the actual filling loop.
(let ((prefixcol 0) linebeg
(re-break-point (if (featurep 'mule)