mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

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 e4cebbe40e
commit aecccc10d0
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/org-contacts.el
View File

@ -133,6 +133,11 @@ This overrides `org-email-link-description-format' if set."
:group 'org-contacts
: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
(declare-function wl-summary-message-number "ext:wl-summary" ())
(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-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
(lambda ()
(add-to-list 'completion-at-point-functions