From: Glenn Morris <rgm@gnu.org>
Date: Tue, 27 Feb 2018 23:43:23 +0000 (-0500)
Subject: Quieten without-x gnus compilation
X-Git-Tag: emacs-27.0.90~5606
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e554c0c02b4ca77f0b3aa97ecec0243b19e23320;p=emacs.git

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 2693c01dcba..ac5ff7d47cf 100644
--- 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 48dbc82889e..3e655cc56cd 100644
--- 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 b6e9ea91b62..a28c00be946 100644
--- 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 4f4ec3b4081..e452c80e262 100644
--- 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 3c9476333fa..38be0dc4e4c 100644
--- 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))