[Emacs-diffs] /srv/bzr/emacs/trunk r112666: Add some declarations to url-handlers.el

[Glenn Morris]

------------------------------------------------------------
revno: 112666
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2013-05-22 00:30:44 -0700
message:
  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.
modified:
  lisp/url/ChangeLog
  lisp/url/url-handlers.el

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2013-05-21 07:25:14 +0000
+++ b/lisp/url/ChangeLog        2013-05-22 07:30:44 +0000
@@ -1,3 +1,8 @@
+2013-05-22  Glenn Morris  <address@hidden>
+
+       * url-handlers.el (mm-save-part-to-file, mm-destroy-parts)
+       (mm-decode-string, mail-content-type-get): Declare.
+
 2013-05-21  Glenn Morris  <address@hidden>
 
        * url-dav.el (url-http): Require it.

=== modified file 'lisp/url/url-handlers.el'
--- a/lisp/url/url-handlers.el  2013-01-01 09:11:05 +0000
+++ b/lisp/url/url-handlers.el  2013-05-22 07:30:44 +0000
@@ -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