[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e554c0c 1/2: Quieten without-x gnus compilation
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master e554c0c 1/2: Quieten without-x gnus compilation |
Date: |
Tue, 27 Feb 2018 18:44:46 -0500 (EST) |
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))