diff options
author | Carl Worth <cworth@cworth.org> | 2010-10-27 16:58:44 -0700 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2010-10-27 17:04:48 -0700 |
commit | 36dcbdeff6de2612e70fe58bdbc6c5b979b0eafa (patch) | |
tree | 840cd377ad6982cb5c28105f9f7c90ff193262b5 /emacs/notmuch-lib.el | |
parent | a3883a7e17171381b8b495ce6efd931c8f420c90 (diff) |
emacs: Explicitly set the From address when composing a new message.
Previously, underlying emacs code was setting this header. Now, we do the
right thing and query the notmuch configuration for the default value here.
Diffstat (limited to 'emacs/notmuch-lib.el')
-rw-r--r-- | emacs/notmuch-lib.el | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 91132b50..abcbfa1f 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -68,13 +68,25 @@ the user hasn't set this variable with the old or new value." (match-string 2 long-string) "unknown"))) -(defun notmuch-database-path () - "Return the database.path value from the notmuch configuration." +(defun notmuch-config-get (item) + "Return a value from the notmuch configuration." ;; Trim off the trailing newline (substring (shell-command-to-string - (concat notmuch-command " config get database.path")) + (concat notmuch-command " config get " item)) 0 -1)) +(defun notmuch-database-path () + "Return the database.path value from the notmuch configuration." + (notmuch-config-get "database.path")) + +(defun notmuch-user-name () + "Return the user.name value from the notmuch configuration." + (notmuch-config-get "user.name")) + +(defun notmuch-user-primary-email () + "Return the user.primary_email value from the notmuch configuration." + (notmuch-config-get "user.primary_email")) + ;; ;; XXX: This should be a generic function in emacs somewhere, not |