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

org-contacts.el: Let the users decide if they want to use `org-contacts' to complete mail addresses

Browse source 
* contrib/lisp/org-contacts.el (org-contacts-enable-completion): A
  custom boolean variable to enable the completion with
  `org-contacts'. Enabled by default.
This commit is contained in:
Grégoire Jadi 2013-02-27 12:41:08 +01:00
parent 680dc1f24d
commit 1313bd7bb0
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
org-contacts.el
View file

@ -133,6 +133,11 @@ This overrides `org-email-link-description-format' if set."
:group 'org-contacts :group 'org-contacts
:type 'file) :type 'file)
(defcustom org-contacts-enable-completion t
"Enable or not the completion in `message-mode' with `org-contacts'."
:group 'org-contacts
:type 'boolean)
;; Decalre external functions and variables ;; Decalre external functions and variables
(declare-function wl-summary-message-number "ext:wl-summary" ()) (declare-function wl-summary-message-number "ext:wl-summary" ())
(declare-function wl-address-header-extract-address "ext:wl-address") (declare-function wl-address-header-extract-address "ext:wl-address")
@ -642,7 +647,8 @@ This adds `org-contacts-gnus-check-mail-address' and
(add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-check-mail-address) (add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-check-mail-address)
(add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-store-last-mail)) (add-hook 'gnus-article-prepare-hook 'org-contacts-gnus-store-last-mail))
(when (boundp 'completion-at-point-functions) (when (and org-contacts-enable-completion
(boundp 'completion-at-point-functions))
(add-hook 'message-mode-hook (add-hook 'message-mode-hook
(lambda () (lambda ()
(add-to-list 'completion-at-point-functions (add-to-list 'completion-at-point-functions