org-contacts.el (org-contacts-format-name): New function
authorDaniel Clemente <n142857@gmail.com>
Wed, 2 Jan 2013 09:22:25 +0000 (10:22 +0100)
committerBastien Guerry <bzg@altern.org>
Wed, 2 Jan 2013 09:22:25 +0000 (10:22 +0100)
* org-contacts.el (org-contacts-format-name): New function.
(org-contacts-format-email): Use the new function.

TINYCHANGE

contrib/lisp/org-contacts.el

index a567a9b..8a8140c 100644 (file)
@@ -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)