mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-22 02:48:08 +01:00
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:
parent
8af8b6f8de
commit
47f5871aff
1 changed files with 10 additions and 6 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue