debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-12-22 17:34:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Suppress window creation when replying

Browse source 
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
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
emacs/notmuch-mua.el
View file

@ -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