[elpa] externals/org-contacts 010b2ec38a 029/154: org-contacts.el (org-contacts-format-name): New function

[ELPA Syncer]

branch: externals/org-contacts
commit 010b2ec38aedcca8b527baca890461c6cc1c3aff
Author: Daniel Clemente <n142857@gmail.com>
Commit: Bastien Guerry <bzg@altern.org>

    org-contacts.el (org-contacts-format-name): New function
    
    * org-contacts.el (org-contacts-format-name): New function.
    (org-contacts-format-email): Use the new function.
    
    TINYCHANGE
---
 org-contacts.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/org-contacts.el b/org-contacts.el
index a567a9b7c1..8a8140c8f4 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -388,12 +388,17 @@ This function should be called from 
`gnus-article-prepare-hook'."
   (org-completing-read
    prompt (org-contacts-filter) predicate t initial-input hist def 
inherit-input-method))
 
+(defun org-contacts-format-name (name)
+  "Trim any local formatting to get a bare name."
+  ;; Remove radio targets characters
+  (replace-regexp-in-string org-radio-target-regexp "\\1" name))
+
 (defun org-contacts-format-email (name email)
   "Format a mail address."
   (unless email
     (error "`email' cannot be nul"))
   (if name
-      (concat name " <" email ">")
+      (concat (org-contacts-format-name name) " <" email ">")
     email))
 
 (defun org-contacts-check-mail-address (mail)