martin/emacs-doom
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix(org-caldav): correct url-digest-auth-storage format to (realm user ha1)

Browse Source 
CDR of realm-entry must be a list (user ha1), not a bare string.
url-digest-auth-build-response calls (car key)/(cadr key) on this.
This commit is contained in:
Daneel
2026-02-24 19:49:50 +01:00
parent f8c0c74531
commit 37fb7802e8
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
config.el
View File

@@ -1759,11 +1759,13 @@ Baikal uses Digest auth. url-digest-auth-storage stores HA1 = MD5(user:realm:pas
(realm "BaikalDAV") (realm "BaikalDAV")
(server "cal.apps.sukany.cz:443")) (server "cal.apps.sukany.cz:443"))
(when pass (when pass
;; url-digest-auth-storage format: (("server:port" ("realm" user ha1) ...) ...)
;; (cdr realm-entry) must be a list (user ha1), NOT a bare string.
(let ((ha1 (md5 (concat user ":" realm ":" pass))) (let ((ha1 (md5 (concat user ":" realm ":" pass)))
(existing (assoc server url-digest-auth-storage))) (existing (assoc server url-digest-auth-storage)))
(if existing (if existing
(setcdr existing (list (cons realm ha1))) (setcdr existing (list (list realm user ha1)))
(push (list server (cons realm ha1)) (push (list server (list realm user ha1))
url-digest-auth-storage)))))) url-digest-auth-storage))))))
(defun my/org-caldav-sync () (defun my/org-caldav-sync ()