diff options
Diffstat (limited to 'lisp/srht.el')
| -rw-r--r-- | lisp/srht.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/srht.el b/lisp/srht.el index 1312269..09e2bc0 100644 --- a/lisp/srht.el +++ b/lisp/srht.el @@ -70,7 +70,11 @@ an error. HOST - DNS name of the service." (if srht-token srht-token (let ((token (when-let ((f (plist-get - (car (auth-source-search :host host)) + (car + (if srht-username + (auth-source-search :host host + :user srht-username) + (auth-source-search :host host))) :secret))) (funcall f)))) (unless token |