(define-key message-mode-map "\C-cs" 'message-templ-select)

(setq message-templ-config-alist '(("^To:.*notmuch@notmuchmail.org"
                                    (lambda ()
                                      (message-templ-apply "alternate"))
				    ("X-List-To" . "notmuch"))))

(setq message-templ-config-alist '(("^To:.*notmuch@notmuchmail.org" my-func)))

(defun do-stuff ()
  (setq notmuch-draft-folder "Sekrit.draft")
  (message "hello world"))

(setq message-templ-alist '(("alternate"
			     ("From" . "David Bremner <david@example.com>")
			     ("Bcc" . "david@example.com"))
			    ("student-inquiry"
			     ("Subject" . "Your inquiry about foo")
			     (body-file . "~/config/dat/student09.txt"))
			    ("course-marks"
			     ("Subject" . "Marks for CSXXXX")
			     ("Bcc" . "david@example.com")
			     (top-file . "~/teaching/csXXXX/marks-top.msg")
			     (bottom-file . "~/teaching/csXXXX/marks-bottom.msg")
			     )
                            ("Agent Smith"
                             ("From" . "smith@example.com")
                             do-stuff)))