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

Merge branch 'maint'

Browse source
This commit is contained in:
David Maus 2012-03-14 06:00:49 +01:00
commit c297cb009f
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 ()