On Mon, 23 Jan 2012 00:34:23 -0800, Jameson Graef Rollins <jrollins@finestructure.net> wrote:
> -(defun notmuch-show-next-open-message ()
> +(defun notmuch-show-next-open-message (&optional pop-at-end)
>    "Show the next message."
> -  (interactive)
> -  (let (r)
> +  (interactive "P")
> +  (let ((parent-buffer notmuch-show-parent-buffer)
> +	(r))

Extra brackets around 'r' are unnecessary. Otherwise, +1.