[Emacs-diffs] master e554c0c 1/2: Quieten without-x gnus compilation

[Glenn Morris]

branch: master
commit e554c0c02b4ca77f0b3aa97ecec0243b19e23320
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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.
---
 lisp/gnus/gnus-cloud.el | 2 ++
 lisp/gnus/gnus-group.el | 2 ++
 lisp/gnus/gnus-sum.el   | 2 ++
 lisp/gnus/message.el    | 2 ++
 lisp/gnus/mml.el        | 3 +++
 5 files changed, 11 insertions(+)

diff --git a/lisp/gnus/gnus-cloud.el b/lisp/gnus/gnus-cloud.el
index 2693c01..ac5ff7d 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 48dbc82..3e655cc 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 b6e9ea9..a28c00b 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 4f4ec3b..e452c80 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 3c94763..38be0dc 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))