From 23af13f11a9b1763d645244c75252405b535bc97 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Jadi?= Date: Mon, 11 Mar 2013 10:17:10 +0100 Subject: [PATCH] contrib/lisp/org-contacts.el: Silence byte-compiler --- org-contacts.el | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/org-contacts.el b/org-contacts.el index 0c5a9cf..e78b9da 100644 --- a/org-contacts.el +++ b/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))