diff --git a/NEWS b/NEWS index c18d63d3..44551b82 100644 --- a/NEWS +++ b/NEWS @@ -1,3 +1,12 @@ +Notmuch 0.37 (UNRELEASED) +========================= + +Emacs +----- + +The function `notmuch-mua-mail` now moves point depending on the +provided arguments. + Notmuch 0.36 (2022-04-25) ========================= diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index 60801f4b..0ae33127 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -385,7 +385,13 @@ instead of `message-mode' and SWITCH-FUNCTION is mandatory." (defun notmuch-mua-mail (&optional to subject other-headers _continue switch-function yank-action send-actions return-action &rest ignored) - "Invoke the notmuch mail composition window." + "Invoke the notmuch mail composition window. + +The position of point when the function returns differs depending +on the values of TO and SUBJECT. If both are non-nil, point is +moved to the message's body. If SUBJECT is nil but TO isn't, +point is moved to the \"Subject:\" header. Otherwise, point is +moved to the \"To:\" header." (interactive) (when notmuch-mua-user-agent-function (let ((user-agent (funcall notmuch-mua-user-agent-function))) @@ -420,7 +426,10 @@ instead of `message-mode' and SWITCH-FUNCTION is mandatory." (message-hide-headers) (set-buffer-modified-p nil) (notmuch-mua-maybe-set-window-dedicated) - (message-goto-to)) + (cond + ((and to subject) (message-goto-body)) + (to (message-goto-subject)) + (t (message-goto-to)))) (defvar notmuch-mua-sender-history nil)