branch: externals/org-contacts
commit 8ea9719549582cb7ddd3037447f2c65240bbfc65
Author: stardiviner <numbch...@gmail.com>
Commit: stardiviner <numbch...@gmail.com>
separate general nickname with IRC nickname property
---
org-contacts.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 51ba4a327f..a67dd0a9d0 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -140,7 +140,7 @@ The following replacements are available:
:type 'string)
(defcustom org-contacts-nickname-property "NICKNAME"
- "Name of the property for IRC nickname match."
+ "Name of the property for nickname match."
:type 'string)
(defcustom org-contacts-icon-size 64
@@ -194,6 +194,10 @@ This overrides `org-email-link-description-format' if set."
"List of functions used to complete contacts in `message-mode'."
:type 'hook)
+(defcustom org-contacts-irc-nickname-property "IRC_NICKNAME"
+ "Name of the property for IRC nickname match."
+ :type 'string)
+
;; Decalre external functions and variables
(declare-function org-reverse-string "org")
(declare-function diary-ordinal-suffix "ext:diary-lib")
@@ -1292,7 +1296,7 @@ address."
(defun org-contacts-irc-buffer (&optional pom)
"Get the IRC buffer associated with the entry at POM."
(setq pom (or pom (point)))
- (let ((nick (org-entry-get pom org-contacts-nickname-property)))
+ (let ((nick (org-entry-get pom org-contacts-irc-nickname-property)))
(when nick
(let ((buffer (get-buffer nick)))
(when buffer
