alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mu4e: add support for composing in a new frame

Browse Source 
Adds the variable mu4e-compose-in-new-frame and when set to t, message
are composed in a new frame rather than the current one.
This commit is contained in:
Pan Jie
2014-09-24 22:06:26 +08:00
committed by djcb
parent 976711c16c
commit 64959382b9
3 changed files with 25 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-draft.el
View File

@ -73,6 +73,12 @@ message; if nil, only do so when sending the message."
:type 'boolean
:group 'mu4e-compose)
(defcustom mu4e-compose-in-new-frame nil
"Whether to compose messages in a new frame instead of the
current window."
:type 'boolean
:group 'mu4e-compose)
(defun mu4e~draft-user-agent-construct ()
"Return the User-Agent string for mu4e.
This is either the value of `mu4e-user-agent', or, if not set, a
@ -414,7 +420,9 @@ from either `mu4e~draft-reply-construct', or
;; path, but we cannot really know 'drafts folder'... we make a guess
(progn
(setq draft-dir (mu4e~guess-maildir (mu4e-message-field msg :path)))
(find-file (mu4e-message-field msg :path)))
(if (and mu4e-compose-in-new-frame (window-system))
(find-file-other-frame (mu4e-message-field msg :path))
(find-file (mu4e-message-field msg :path))))
;; case-2: creating a new message; in this case, we can determing
;; mu4e-get-drafts-folder
(progn
@ -424,7 +432,9 @@ from either `mu4e~draft-reply-construct', or
mu4e-maildir
draft-dir
(mu4e~draft-message-filename-construct "DS"))))
(find-file draft-path))
(if (and mu4e-compose-in-new-frame (window-system))
(find-file-other-frame draft-path)
(find-file draft-path)))
(insert
(case compose-type
(reply (mu4e~draft-reply-construct msg))