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.
This commit is contained in:
David Edmondson 2010-04-26 12:19:10 +01:00 committed by Carl Worth
parent 8af8b6f8de
commit 47f5871aff

View file

@ -72,12 +72,16 @@
(setq headers (mail-header-extract)))))
(forward-line 1)
(setq body (buffer-substring (point) (point-max))))
(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))
collect header)))
(message-sort-headers)
(message-hide-headers)
(save-excursion