X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=notmuch-emacs-mua;h=b51d8d0e2c5be5000371e00337d9c9941322547b;hp=e33aa955d6b559faf7e618a14b27717a9dd5928c;hb=b69201da5ddac5fc17935d39d8cca162716a6dd9;hpb=0aa74d3241687ff70819981bbecad96b204886e7 diff --git a/notmuch-emacs-mua b/notmuch-emacs-mua index e33aa955..b51d8d0e 100755 --- a/notmuch-emacs-mua +++ b/notmuch-emacs-mua @@ -36,11 +36,11 @@ EMACSCLIENT=${EMACSCLIENT-emacsclient} PRINT_ONLY= NO_WINDOW= USE_EMACSCLIENT= -CREATE_FRAME="-c" +AUTO_DAEMON= +CREATE_FRAME= # The crux of it all: construct an elisp progn and eval it. ELISP="(prog1 'done (require 'notmuch) (notmuch-mua-new-mail)" -ELISP="${ELISP} (setq message-exit-actions (list #'save-buffers-kill-terminal))" # Short options compatible with mutt(1). while getopts :s:c:b:i:h opt; do @@ -64,7 +64,7 @@ while getopts :s:c:b:i:h opt; do opt=${opt%%=*} ;; # Long options without arguments. - --help|--print|--no-window-system|--client) + --help|--print|--no-window-system|--client|--auto-daemon|--create-frame) ;; *) echo "$0: unknown long option ${opt}, or argument mismatch." >&2 @@ -82,9 +82,6 @@ while getopts :s:c:b:i:h opt; do --help|h) exec man notmuch-emacs-mua ;; - --client) - USE_EMACSCLIENT="yes" - ;; --subject|s) ELISP="${ELISP} (message-goto-subject) (insert \"${OPTARG}\")" ;; @@ -105,7 +102,15 @@ while getopts :s:c:b:i:h opt; do ;; --no-window-system) NO_WINDOW="-nw" - CREATE_FRAME= + ;; + --client) + USE_EMACSCLIENT="yes" + ;; + --auto-daemon) + AUTO_DAEMON="--alternate-editor=" + ;; + --create-frame) + CREATE_FRAME="-c" ;; *) # We should never end up here. @@ -124,6 +129,11 @@ for arg; do ELISP="${ELISP} (message-goto-to) (insert \"${arg}, \")" done +# Kill the terminal/frame if we're creating one. +if [ -z "$USE_EMACSCLIENT" -o -n "$CREATE_FRAME" -o -n "$NO_WINDOW" ]; then + ELISP="${ELISP} (setq message-exit-actions (list #'save-buffers-kill-terminal))" +fi + # End progn. ELISP="${ELISP})" @@ -134,7 +144,7 @@ fi if [ -n "$USE_EMACSCLIENT" ]; then # Evaluate the progn. - exec ${EMACSCLIENT} ${NO_WINDOW} ${CREATE_FRAME} -a '' --eval "${ELISP}" + exec ${EMACSCLIENT} ${NO_WINDOW} ${CREATE_FRAME} ${AUTO_DAEMON} --eval "${ELISP}" else exec ${EMACS} ${NO_WINDOW} --eval "${ELISP}" fi