[PATCH 4/6] emacs: add option to notmuch-show-next-open-message to pop out to parent buffer if at end
David Edmondson
dme at dme.org
Wed Jan 18 00:12:27 PST 2012
On Tue, 17 Jan 2012 10:05:29 -0800, Jameson Graef Rollins <jrollins at 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)
> + (let ((r)
> + (parent-buffer notmuch-show-parent-buffer))
No need for brackets around `r'. Please put initialised local variables
before uninitialised.
> (while (and (setq r (notmuch-show-goto-message-next))
> (not (notmuch-show-message-visible-p))))
> (if r
> (progn
> (notmuch-show-mark-read)
> (notmuch-show-message-adjust))
> - (goto-char (point-max)))))
> + (if (and parent-buffer pop-at-end)
> + (progn
> + (kill-this-buffer)
> + (switch-to-buffer parent-buffer)
> + (forward-line 1))
> + (goto-char (point-max))))))
Can you explain in words how this is expected to behave please?
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: not available
URL: <http://notmuchmail.org/pipermail/notmuch/attachments/20120118/3adc8311/attachment.pgp>
More information about the notmuch
mailing list