debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 03:48:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Autoload notmuch-user-agent related functions

Browse source 
With this change, users with mail-user-agent set to
'notmuch-user-agent can start composing emails without having to
require 'notmuch-mua first.
This commit is contained in:
Jelle Licht 2024-03-19 22:31:00 +01:00 committed by David Bremner
parent d1ba5d6342
commit 8d06dfce17
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
emacs/notmuch-mua.el
View file

@ -401,6 +401,7 @@ instead of `message-mode' and SWITCH-FUNCTION is mandatory."
(addr (and good-tokens (mapconcat #'identity good-tokens ", ")))) (addr (and good-tokens (mapconcat #'identity good-tokens ", "))))
(message-replace-header header addr)))))) (message-replace-header header addr))))))
;;;#autoload
(defun notmuch-mua-mail (&optional to subject other-headers _continue (defun notmuch-mua-mail (&optional to subject other-headers _continue
switch-function yank-action send-actions switch-function yank-action send-actions
return-action &rest _ignored) return-action &rest _ignored)
@ -622,20 +623,24 @@ unencrypted. Really send? "))))
(message-send-and-exit arg) (message-send-and-exit arg)
(message-send arg))))) (message-send arg)))))
;;;#autoload
(defun notmuch-mua-send-and-exit (&optional arg) (defun notmuch-mua-send-and-exit (&optional arg)
(interactive "P") (interactive "P")
(notmuch-mua-send-common arg t)) (notmuch-mua-send-common arg t))
;;;#autoload
(defun notmuch-mua-send (&optional arg) (defun notmuch-mua-send (&optional arg)
(interactive "P") (interactive "P")
(notmuch-mua-send-common arg)) (notmuch-mua-send-common arg))
;;;#autoload
(defun notmuch-mua-kill-buffer () (defun notmuch-mua-kill-buffer ()
(interactive) (interactive)
(message-kill-buffer)) (message-kill-buffer))
;;; _ ;;; _
;;;#autoload
(define-mail-user-agent 'notmuch-user-agent (define-mail-user-agent 'notmuch-user-agent
'notmuch-mua-mail 'notmuch-mua-mail
'notmuch-mua-send-and-exit 'notmuch-mua-send-and-exit