From d8ad57d4f73e8e6c81c1cc4527aa01d19631dd82 Mon Sep 17 00:00:00 2001 From: Daniel Clemente Date: Wed, 2 Jan 2013 10:22:25 +0100 Subject: [PATCH] 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 --- contrib/lisp/org-contacts.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index a567a9b7c..8a8140c8f 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/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) -- 2.11.4.GIT