[PATCH] emacs: Suppress window creation when replying
David Edmondson
dme at dme.org
Mon Apr 26 04:19:10 PDT 2010
The buffer used to edit a reply should overlay the original
message. Encourage this by setting `same-window-regexps' locally.
---
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 305275e..b69e31c 100644
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -73,12 +73,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
--
1.7.0
More information about the notmuch
mailing list