diff options
| author | Grégoire Jadi <gregoire.jadi@gmail.com> | 2013-03-11 10:17:10 +0100 |
|---|---|---|
| committer | Grégoire Jadi <gregoire.jadi@gmail.com> | 2013-03-11 10:20:04 +0100 |
| commit | 5fd7bb0862672eaeb121ddbf381ccf8d7796138a (patch) | |
| tree | 9f4c225b5bdcb1945f5a5e7e1d326437d4eb9be1 | |
| parent | 02fd5d1c22089eaf2ee423694f3c8e6370c18f0f (diff) | |
| download | org-mode-5fd7bb0862672eaeb121ddbf381ccf8d7796138a.tar.gz | |
contrib/lisp/org-contacts.el: Silence byte-compiler
| -rw-r--r-- | contrib/lisp/org-contacts.el | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index 0c5a9cf..e78b9da 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/org-contacts.el @@ -39,8 +39,7 @@ (eval-when-compile (require 'cl)) -(eval-and-compile - (require 'org)) +(require 'org) (require 'gnus-util) (require 'gnus-art) (require 'mail-utils) @@ -141,9 +140,18 @@ This overrides `org-email-link-description-format' if set." :type 'boolean) ;; Decalre external functions and variables -(declare-function wl-summary-message-number "ext:wl-summary" ()) +(declare-function org-reverse-string "org") +(declare-function org-install-letbind "org-exp") +(declare-function diary-ordinal-suffix "ext:diary-lib") +(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-realname "ext:wl-address") +(declare-function erc-buffer-list "ext:erc") +(declare-function erc-get-channel-user-list "ext:erc") +(declare-function google-maps-static-show "ext:google-maps-static") +(declare-function elmo-message-field "ext:elmo-pipe") +(declare-function std11-narrow-to-header "ext:std11") +(declare-function std11-fetch-field "ext:std11") (defvar org-contacts-keymap (let ((map (make-sparse-keymap))) @@ -779,11 +787,10 @@ address." (defun erc-nicknames-list () "Return all nicknames of all ERC buffers." - (if (fboundp 'erc-buffer-list) - (loop for buffer in (erc-buffer-list) - nconc (with-current-buffer buffer - (loop for user-entry in (mapcar 'car (erc-get-channel-user-list)) - collect (elt user-entry 1)))))) + (loop for buffer in (erc-buffer-list) + nconc (with-current-buffer buffer + (loop for user-entry in (mapcar 'car (erc-get-channel-user-list)) + collect (elt user-entry 1))))) (add-to-list 'org-property-set-functions-alist `(,org-contacts-nickname-property . org-contacts-completing-read-nickname)) |