diff options
author | David Edmondson <dme@dme.org> | 2010-04-26 12:19:10 +0100 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-04-26 07:15:42 -0700 |
commit | 47f5871aff404990cb059b3da9976971da922b00 (patch) | |
tree | 84fd6edc2fe6d77d43db9d5a375ba19427c2f471 /emacs/notmuch-mua.el | |
parent | 8af8b6f8de968c3920df9ab0f910f4be7366449a (diff) |
emacs: Suppress window creation when replying
The buffer used to edit a reply should overlay the original
message. Encourage this by setting `same-window-regexps' locally.
Diffstat (limited to 'emacs/notmuch-mua.el')
-rw-r--r-- | emacs/notmuch-mua.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index acb7dbf0..e9b76f10 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -72,12 +72,16 @@ (setq headers (mail-header-extract))))) (forward-line 1) (setq body (buffer-substring (point) (point-max)))) - (notmuch-mua-mail (mail-header 'to headers) - (mail-header 'subject headers) - (loop for header in headers - if (not (or (eq 'to (car header)) - (eq 'subject (car header)))) - collect header)) + (let + ;; Overlay the composition window on that being used to read + ;; the original message. + ((same-window-regexps '("\\*mail .*"))) + (notmuch-mua-mail (mail-header 'to headers) + (mail-header 'subject headers) + (loop for header in headers + if (not (or (eq 'to (car header)) + (eq 'subject (car header)))) + collect header))) (message-sort-headers) (message-hide-headers) (save-excursion |