Re: New mail-related routines

[Stefan Monnier]

> +  (let ((from (or from (point-min)))
> +     (to (or to (point-max))))

I'd recommend

  (unless from (setq from (point-min)))
  (unless to (setq to (point-max)))

it saves a bit of indentation and is marginally more efficient.

> +     (if (or (search-forward (concat "\n" mail-header-separator "\n") to t)
> +             (search-forward "\n\n" to t))

This is less robust than what rfc822-goto-eoh uses, in the case where the
mail-header-separator is modified.

> +         (point)
> +       ;; TODO: Shouldn't we return nil instead?
> +       (message "This entity has no body")
> +       to)))))

I'd argue we should return `to' because the whole thing is the header.


        Stefan