X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-mua.el;h=bbf059a22cb5487f669497631363a7c924b1d3d8;hp=e4b7e9d17848ce08c71bf245869e85234f9ad711;hb=HEAD;hpb=b49377e5093e1c8af801e1065ef086a0cd15625a diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index e4b7e9d1..bf62b656 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -401,6 +401,7 @@ instead of `message-mode' and SWITCH-FUNCTION is mandatory." (addr (and good-tokens (mapconcat #'identity good-tokens ", ")))) (message-replace-header header addr)))))) +;;;#autoload (defun notmuch-mua-mail (&optional to subject other-headers _continue switch-function yank-action send-actions return-action &rest _ignored) @@ -622,20 +623,24 @@ unencrypted. Really send? ")))) (message-send-and-exit arg) (message-send arg))))) +;;;#autoload (defun notmuch-mua-send-and-exit (&optional arg) (interactive "P") (notmuch-mua-send-common arg t)) +;;;#autoload (defun notmuch-mua-send (&optional arg) (interactive "P") (notmuch-mua-send-common arg)) +;;;#autoload (defun notmuch-mua-kill-buffer () (interactive) (message-kill-buffer)) ;;; _ +;;;#autoload (define-mail-user-agent 'notmuch-user-agent 'notmuch-mua-mail 'notmuch-mua-send-and-exit