aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add missing word to org-contacts y-or-n-p question

Browse source 
* org-contacts.el (org-contacts-check-mail-address): Add missing word
to y-or-n-p question.
This commit is contained in:
Tassilo Horn 2012-03-13 12:19:39 +00:00 committed by David Maus
parent 2e77024e89
commit 938ca34558
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
org-contacts.el
View file

@ -388,7 +388,7 @@ This function should be called from `gnus-article-prepare-hook'."
(let ((mails (org-entry-get (point) org-contacts-email-property))) (let ((mails (org-entry-get (point) org-contacts-email-property)))
(unless (member mail (split-string mails)) (unless (member mail (split-string mails))
(when (yes-or-no-p (when (yes-or-no-p
(format "Do you want to this address to %s?" (org-get-heading t))) (format "Do you want to add this address to %s?" (org-get-heading t)))
(org-set-property org-contacts-email-property (concat mails " " mail)))))) (org-set-property org-contacts-email-property (concat mails " " mail))))))
(defun org-contacts-gnus-check-mail-address () (defun org-contacts-gnus-check-mail-address ()