debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 10:58:10 +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

6
emacs/notmuch-mua.el
View file

@ -72,12 +72,16 @@
(setq headers (mail-header-extract))))) (setq headers (mail-header-extract)))))
(forward-line 1) (forward-line 1)
(setq body (buffer-substring (point) (point-max)))) (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) (notmuch-mua-mail (mail-header 'to headers)
(mail-header 'subject headers) (mail-header 'subject headers)
(loop for header in headers (loop for header in headers
if (not (or (eq 'to (car header)) if (not (or (eq 'to (car header))
(eq 'subject (car header)))) (eq 'subject (car header))))
collect header)) collect header)))
(message-sort-headers) (message-sort-headers)
(message-hide-headers) (message-hide-headers)
(save-excursion (save-excursion