diff --git a/config.org b/config.org
index a8f128e..a336e0c 100644
--- a/config.org
+++ b/config.org
@@ -5079,12 +5079,12 @@ We also want to define ~mu4e-compose-from-mailto~.
 #+begin_src emacs-lisp
 (defun mu4e-compose-from-mailto (mailto-string &optional quit-frame-after)
   (require 'mu4e)
-  (unless mu4e~server-props (mu4e t) (sleep-for 0.1))
+  (unless mu4e--server-props (mu4e t) (sleep-for 0.1))
   (let* ((mailto (message-parse-mailto-url mailto-string))
-         (to (cdr (assoc "To" mailto)))
-         (subject (or (cdr (assoc "Subject" mailto)) ""))
-         (body (cdr (assoc "Body" mailto)))
-         (headers (-filter (lambda (spec) (not (-contains-p '("To" "Subject" "Body") (car spec)))) mailto)))
+         (to (cadr (assoc "to" mailto)))
+         (subject (or (cadr (assoc "subject" mailto)) ""))
+         (body (cadr (assoc "body" mailto)))
+         (headers (-filter (lambda (spec) (not (-contains-p '("to" "subject" "body") (car spec)))) mailto)))
     (when-let ((mu4e-main (get-buffer mu4e-main-buffer-name)))
       (switch-to-buffer mu4e-main))
     (mu4e~compose-mail to subject headers)