emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: fix mu4e-action-add-org-contact for new format 

The sexp address format changed, but mu4e-action-add-org-contact wasn't.

Fixes #2306.
This commit is contained in:
Dirk-Jan C. Binnema 2022-07-28 07:29:31 +03:00
parent c4388b78b6
commit a4b8471ba6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mu4e/mu4e-actions.el
View File

@ -32,7 +32,7 @@
(require 'mu4e-helpers) (require 'mu4e-helpers)
(require 'mu4e-message) (require 'mu4e-message)
(require 'mu4e-search) (require 'mu4e-search)
(require 'mu4e-contacts)
;;; Count lines ;;; Count lines
@ -78,7 +78,8 @@ file where you store your org-contacts."
(unless mu4e-org-contacts-file (unless mu4e-org-contacts-file
(mu4e-error "Variable `mu4e-org-contacts-file' is nil")) (mu4e-error "Variable `mu4e-org-contacts-file' is nil"))
(let* ((sender (car-safe (mu4e-message-field msg :from))) (let* ((sender (car-safe (mu4e-message-field msg :from)))
(name (car-safe sender)) (email (cdr-safe sender)) (name (mu4e-contact-name sender))
(email (mu4e-contact-email sender))
(blurb (blurb
(format (format
(concat (concat
@ -95,7 +96,6 @@ file where you store your org-contacts."
(append org-capture-templates (append org-capture-templates
(list (list key "contacts" 'entry (list (list key "contacts" 'entry
(list 'file mu4e-org-contacts-file) blurb))))) (list 'file mu4e-org-contacts-file) blurb)))))
(message "%S" org-capture-templates)
(when (fboundp 'org-capture) (when (fboundp 'org-capture)
(org-capture nil key)))) (org-capture nil key))))