Quieten without-x gnus compilation

* lisp/gnus/gnus-group.el (image-load-path-for-library):
* lisp/gnus/gnus-sum.el (image-load-path-for-library):
* lisp/gnus/message.el (image-load-path-for-library): Declare.
* lisp/gnus/gnus-cloud.el (gnus-group-refresh-group):
* lisp/gnus/mml.el (image-property): Autoload.

diff --git a/lisp/gnus/gnus-cloud.el b/lisp/gnus/gnus-cloud.el
index 2693c01dcba004008200fbec068e3c3eb0420f22..ac5ff7d47cfdf5ab4c77aeba940924a28a7805da 100644 (file)
--- a/lisp/gnus/gnus-cloud.el
+++ b/lisp/gnus/gnus-cloud.el
@@ -362,6 +362,8 @@ Use old data if FORCE-OLDER is not nil."
   (interactive)
   (gnus-cloud-upload-data t))
 
+(autoload 'gnus-group-refresh-group "gnus-group")
+
 (defun gnus-cloud-upload-data (&optional full)
   "Upload data (newsrc and files) to the Gnus Cloud.
 When FULL is t, upload everything, not just a difference from the last full."

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 48dbc82889e835447f60b099c99b8a9d1f535a25..3e655cc56cdf90e844be71458993d9d8cf72047f 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -1086,6 +1086,8 @@ See `gmm-tool-bar-from-list' for the format of the list."
 
 (defvar image-load-path)
 (defvar tool-bar-map)
+(declare-function image-load-path-for-library "image"
+                 (library image &optional path no-error))
 
 (defun gnus-group-make-tool-bar (&optional force)
   "Make a group mode tool bar from `gnus-group-tool-bar'.

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index b6e9ea91b620ec784d3409e404b5a6c771fe48b0..a28c00be946f7a5b7bf2846e07dbcb75b2187035 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -2944,6 +2944,8 @@ See `gmm-tool-bar-from-list' for the format of the list."
 
 (defvar image-load-path)
 (defvar tool-bar-map)
+(declare-function image-load-path-for-library "image"
+                 (library image &optional path no-error))
 
 (defun gnus-summary-make-tool-bar (&optional force)
   "Make a summary mode tool bar from `gnus-summary-tool-bar'.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 4f4ec3b4081f2fffa9316c9d4a9187d8e52e0d8b..e452c80e26202e739a2f6eddd912e89c571d4297 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -7854,6 +7854,8 @@ See `gmm-tool-bar-from-list' for the format of the list."
   :group 'message)
 
 (defvar image-load-path)
+(declare-function image-load-path-for-library "image"
+                 (library image &optional path no-error))
 
 (defun message-make-tool-bar (&optional force)
   "Make a message mode tool bar from `message-tool-bar-list'.

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 3c9476333fa87b16077d233414812bb39a7d2b3c..38be0dc4e4cdf67e82e1c7f7dd69d2d3aa9510aa 100644 (file)
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -548,6 +548,9 @@ be \"related\" or \"alternate\"."
                                                   ">")))))))
        cont))))
 
+(autoload 'image-property "image")
+
+;; FIXME presumably (built-in) ImageMagick could replace exiftool?
 (defun mml--possibly-alter-image (file-name image)
   (if (or (null image)
          (not (consp image))