From af7422480399d1b58e778c5d25891b70cb1f43ed Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 22 May 2013 00:30:44 -0700 Subject: [PATCH] Add some declarations to url-handlers.el * lisp/url/url-handlers.el (mm-save-part-to-file, mm-destroy-parts) (mm-decode-string, mail-content-type-get): Declare. --- lisp/url/ChangeLog | 5 +++++ lisp/url/url-handlers.el | 12 ++++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index f72f465792b..0735c738f16 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2013-05-22 Glenn Morris + + * url-handlers.el (mm-save-part-to-file, mm-destroy-parts) + (mm-decode-string, mail-content-type-get): Declare. + 2013-05-21 Glenn Morris * url-dav.el (url-http): Require it. diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el index 67d72bcfb61..ae807d6eab9 100644 --- a/lisp/url/url-handlers.el +++ b/lisp/url/url-handlers.el @@ -28,16 +28,20 @@ ;; (require 'url-util) (eval-when-compile (require 'mm-decode)) ;; (require 'mailcap) -;; The following functions in the byte compiler's warnings are known not -;; to cause any real problem for the following reasons: -;; - mm-save-part-to-file, mm-destroy-parts: always used -;; after mm-dissect-buffer and defined in the same file. ;; The following are autoloaded instead of `require'd to avoid eagerly ;; loading all of URL when turning on url-handler-mode in the .emacs. (autoload 'url-expand-file-name "url-expand" "Convert url to a fully specified url, and canonicalize it.") (autoload 'mm-dissect-buffer "mm-decode" "Dissect the current buffer and return a list of MIME handles.") (autoload 'url-scheme-get-property "url-methods" "Get property of a URL SCHEME.") +;; Always used after mm-dissect-buffer and defined in the same file. +(declare-function mm-save-part-to-file "mm-decode" (handle file)) +(declare-function mm-destroy-parts "mm-decode" (handles)) +;; mm-decode loads mm-bodies. +(declare-function mm-decode-string "mm-bodies" (string charset)) +;; mm-decode loads mail-parse. +(declare-function mail-content-type-get "mail-parse" (ct attribute)) + ;; Implementation status ;; --------------------- ;; Function Status -- 2.39.2