From: Dirk Hohndel <hohndel@infradead.org>
To: David Edmondson <dme@dme.org>, notmuch@notmuchmail.org
Subject: Re: [PATCH] emacs: More DWIM when editing messages
Date: Mon, 26 Apr 2010 09:31:49 -0700 [thread overview]
Message-ID: <m3vdbejhu2.fsf@x200.gr8dns.org> (raw)
In-Reply-To: <1272290485-14217-1-git-send-email-dme@dme.org>
On Mon, 26 Apr 2010 15:01:25 +0100, David Edmondson <dme@dme.org> wrote:
> For composing new messages and forwarding, leave the cursor on the
> 'To:' field. For replies, leave the cursor at the start of the
> body. In all cases, mark the buffer as not modified so that the user
> is not prompted if she decides to immediately kill the buffer.
YES! Brilliant. I didn't realize how much I wanted it till you sent
this. Carl, please include in 0.3
/D
> ---
> emacs/notmuch-mua.el | 32 +++++++++++++++++++-------------
> 1 files changed, 19 insertions(+), 13 deletions(-)
>
> diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
> index bca20db..c7a9aee 100644
> --- a/emacs/notmuch-mua.el
> +++ b/emacs/notmuch-mua.el
> @@ -98,21 +98,24 @@ list."
> collect header)))
> (message-sort-headers)
> (message-hide-headers)
> - (save-excursion
> - (goto-char (point-max))
> - (insert body))
> - (set-buffer-modified-p nil)))
> + (goto-char (point-max))
> + (insert body))
> + (set-buffer-modified-p nil)
> +
> + (message-goto-body))
>
> (defun notmuch-mua-forward-message ()
> (message-forward)
> - (save-excursion
> - (when notmuch-mua-user-agent-function
> - (let ((user-agent (funcall notmuch-mua-user-agent-function)))
> - (when (not (string= "" user-agent))
> - (message-add-header (format "User-Agent: %s" user-agent)))))
> - (message-sort-headers)
> - (message-hide-headers))
> - (set-buffer-modified-p nil))
> +
> + (when notmuch-mua-user-agent-function
> + (let ((user-agent (funcall notmuch-mua-user-agent-function)))
> + (when (not (string= "" user-agent))
> + (message-add-header (format "User-Agent: %s" user-agent)))))
> + (message-sort-headers)
> + (message-hide-headers)
> + (set-buffer-modified-p nil)
> +
> + (message-goto-to))
>
> (defun notmuch-mua-mail (&optional to subject other-headers continue
> switch-function yank-action send-actions)
> @@ -126,7 +129,10 @@ list."
> (message-mail to subject other-headers continue
> switch-function yank-action send-actions)
> (message-sort-headers)
> - (message-hide-headers))
> + (message-hide-headers)
> + (set-buffer-modified-p nil)
> +
> + (message-goto-to))
>
> (defun notmuch-mua-send-and-exit (&optional arg)
> (interactive "P")
> --
> 1.7.0
>
> _______________________________________________
> notmuch mailing list
> notmuch@notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch
--
Dirk Hohndel
Intel Open Source Technology Center
next prev parent reply other threads:[~2010-04-26 16:31 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-04-26 14:01 [PATCH] emacs: More DWIM when editing messages David Edmondson
2010-04-26 16:31 ` Dirk Hohndel [this message]
2010-04-26 17:28 ` Carl Worth
2010-04-26 17:46 ` Dirk Hohndel
2010-04-26 22:28 ` Dirk Hohndel
2010-04-26 23:39 ` Carl Worth
2010-04-27 1:52 ` Dirk Hohndel
2010-04-27 5:34 ` David Edmondson
2010-04-27 6:14 ` Carl Worth
2010-04-27 15:22 ` Dirk Hohndel
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://notmuchmail.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m3vdbejhu2.fsf@x200.gr8dns.org \
--to=hohndel@infradead.org \
--cc=dme@dme.org \
--cc=notmuch@notmuchmail.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://yhetil.org/notmuch.git/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).