tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Fix/update compose from mailto function

This commit is contained in:
TEC 2022-08-14 19:14:01 +08:00
parent 2b567d568e
commit d3a79d5d3f
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
config.org
View File

@ -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)