[gnus git] branch master updated: m0-13-5-g46b3b77 =1= Replace instances of "(eval-when-compile (autoload ...))"
Katsumi Yamaoka <[email protected]> Tue, 05 May 2015 12:20:01 +0200
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 46b3b7764209d8d2a79c4620ed3fbf6316453f18 (commit)
from 585ce63470b33b1f54c0ff555e2ff1dbd393aace (commit)
- Log -----------------------------------------------------------------
commit 46b3b7764209d8d2a79c4620ed3fbf6316453f18
Author: Glenn Morris <[email protected]>
Date: Tue May 5 10:19:34 2015 +0000
Replace instances of "(eval-when-compile (autoload ...))"
* gnus-art.el (nneething-get-file-name): Declare rather than autoload.
* gnus-async.el (gnus-html-prefetch-images): Remove pointless autoload.
* gnus-sync.el (gnus-group-topic): Autoload at run-time.
(gnus-topic-create-topic, gnus-topic-enter-dribble):
Declare rather than autoload.
* mm-archive.el (gnus-recursive-directory-files)
(mailcap-extension-to-mime): Autoload at run-time.
* mm-util.el (latin-unity-massage-name)
(latin-unity-maybe-remap, latin-unity-representations-feasible-region)
(latin-unity-representations-present-region):
Declare rather than autoload.
* mml-smime.el (epg-make-context, epg-passphrase-callback-function):
Autoload at run-time.
(epg-context-set-signers, epg-context-result-for)
(epg-new-signature-digest-algorithm, epg-verify-result-to-string)
(epg-list-keys, epg-verify-string, epg-sign-string, epg-encrypt-string)
(epg-context-set-passphrase-callback, epg-sub-key-fingerprint)
(epg-configuration, epg-expand-group, epa-select-keys):
Declare rather than autoload.
* nnir.el (nnimap-change-group, nnimap-make-thread-query):
Autoload at run-time.
(gnus-group-topic-name, nnimap-buffer, nnimap-command)
(gnus-registry-get-id-key, gnus-registry-action):
Declare rather than autoload.
* nnmail.el (mail-send-and-exit): Autoload at run-time.
* spam.el (spam-stat-buffer-change-to-non-spam)
(spam-stat-buffer-change-to-spam, spam-stat-buffer-is-non-spam)
(spam-stat-buffer-is-spam, spam-stat-load, spam-stat-save)
(spam-stat-split-fancy): Remove pointless autoloads.
* mm-view.el (epg-decrypt-string): Autoload.
* mml-smime.el (epg-key-sub-key-list, epg-sub-key-capability)
(epg-sub-key-validity): Fix declarations.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b65f490..3e48594 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,47 @@
+2015-05-04 Glenn Morris <[email protected]>
+
+ * gnus-art.el (nneething-get-file-name): Declare rather than autoload.
+
+ * gnus-async.el (gnus-html-prefetch-images): Remove pointless autoload.
+
+ * gnus-sync.el (gnus-group-topic): Autoload at run-time.
+ (gnus-topic-create-topic, gnus-topic-enter-dribble):
+ Declare rather than autoload.
+
+ * mm-archive.el (gnus-recursive-directory-files)
+ (mailcap-extension-to-mime): Autoload at run-time.
+
+ * mm-util.el (latin-unity-massage-name)
+ (latin-unity-maybe-remap, latin-unity-representations-feasible-region)
+ (latin-unity-representations-present-region):
+ Declare rather than autoload.
+
+ * mml-smime.el (epg-make-context, epg-passphrase-callback-function):
+ Autoload at run-time.
+ (epg-context-set-signers, epg-context-result-for)
+ (epg-new-signature-digest-algorithm, epg-verify-result-to-string)
+ (epg-list-keys, epg-verify-string, epg-sign-string, epg-encrypt-string)
+ (epg-context-set-passphrase-callback, epg-sub-key-fingerprint)
+ (epg-configuration, epg-expand-group, epa-select-keys):
+ Declare rather than autoload.
+
+ * nnir.el (nnimap-change-group, nnimap-make-thread-query):
+ Autoload at run-time.
+ (gnus-group-topic-name, nnimap-buffer, nnimap-command)
+ (gnus-registry-get-id-key, gnus-registry-action):
+ Declare rather than autoload.
+
+ * nnmail.el (mail-send-and-exit): Autoload at run-time.
+
+ * spam.el (spam-stat-buffer-change-to-non-spam)
+ (spam-stat-buffer-change-to-spam, spam-stat-buffer-is-non-spam)
+ (spam-stat-buffer-is-spam, spam-stat-load, spam-stat-save)
+ (spam-stat-split-fancy): Remove pointless autoloads.
+
+ * mm-view.el (epg-decrypt-string): Autoload.
+ * mml-smime.el (epg-key-sub-key-list, epg-sub-key-capability)
+ (epg-sub-key-validity): Fix declarations.
+
2015-05-01 Lars Magne Ingebrigtsen <[email protected]>
* gnus.el: Ma Gnus v0.13 is released.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 44b026a..70f2f08 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -7028,8 +7028,7 @@ If given a prefix, show the hidden text instead."
(gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name))
(gnus-request-group gnus-newsgroup-name t)))
-(eval-when-compile
- (autoload 'nneething-get-file-name "nneething"))
+(declare-function nneething-get-file-name "nneething" (id))
(defun gnus-request-article-this-buffer (article group)
"Get an article and insert it into this buffer."
diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index b1b3af9..d4d3dba 100644
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -226,9 +226,6 @@ that was fetched."
`(lambda (arg)
(gnus-async-article-callback arg ,group ,article ,mark ,summary ,next)))
-(eval-when-compile
- (autoload 'gnus-html-prefetch-images "gnus-html"))
-
(defun gnus-async-article-callback (arg group article mark summary next)
"Function called when an async article is done being fetched."
(save-excursion
diff --git a/lisp/gnus-sync.el b/lisp/gnus-sync.el
index 058724e..6f857e2 100644
--- a/lisp/gnus-sync.el
+++ b/lisp/gnus-sync.el
@@ -102,10 +102,7 @@
(require 'gmm-utils)
(defvar gnus-topic-alist) ;; gnus-group.el
-(eval-when-compile
- (autoload 'gnus-group-topic "gnus-topic")
- (autoload 'gnus-topic-create-topic "gnus-topic" nil t)
- (autoload 'gnus-topic-enter-dribble "gnus-topic"))
+(autoload 'gnus-group-topic "gnus-topic")
(defgroup gnus-sync nil
"The Gnus synchronization facility."
@@ -618,6 +615,10 @@ unwanted groups via the LeSync URL."
loc name gnus-sync-lesync-name (or sources "")))
nil)))
+(declare-function gnus-topic-create-topic "gnus-topic"
+ (topic parent &optional previous full-topic))
+(declare-function gnus-topic-enter-dribble "gnus-topic" ())
+
(defun gnus-sync-lesync-install-group-entry (name)
(let* ((master (assoc name gnus-newsrc-alist))
(old-topic-name (gnus-group-topic name))
diff --git a/lisp/mm-archive.el b/lisp/mm-archive.el
index d88e159..9c86c4a 100644
--- a/lisp/mm-archive.el
+++ b/lisp/mm-archive.el
@@ -23,9 +23,8 @@
;;; Code:
(require 'mm-decode)
-(eval-when-compile
- (autoload 'gnus-recursive-directory-files "gnus-util")
- (autoload 'mailcap-extension-to-mime "mailcap"))
+(autoload 'gnus-recursive-directory-files "gnus-util")
+(autoload 'mailcap-extension-to-mime "mailcap")
(defvar mm-archive-decoders
'(("application/ms-tnef" t "tnef" "-f" "-" "-C")
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 0b75901..ab9145f 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -1058,11 +1058,10 @@ This affects whether coding conversion should be attempted generally."
(length (memq (coding-system-base b) priorities)))
t))))
-(eval-when-compile
- (autoload 'latin-unity-massage-name "latin-unity")
- (autoload 'latin-unity-maybe-remap "latin-unity")
- (autoload 'latin-unity-representations-feasible-region "latin-unity")
- (autoload 'latin-unity-representations-present-region "latin-unity"))
+(declare-function latin-unity-massage-name "ext:latin-unity")
+(declare-function latin-unity-maybe-remap "ext:latin-unity")
+(declare-function latin-unity-representations-feasible-region "ext:latin-unity")
+(declare-function latin-unity-representations-present-region "ext:latin-unity")
(defvar latin-unity-coding-systems)
(defvar latin-unity-ucs-list)
diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index a3d6e74..edc2d39 100644
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -629,6 +629,8 @@ If MODE is not set, try to find mode automatically."
(replace-match "\n"))
t)
+(autoload 'epg-decrypt-string "epg")
+
(defun mm-view-pkcs7-decrypt (handle &optional from)
(insert-buffer-substring (mm-handle-buffer handle))
(goto-char (point-min))
diff --git a/lisp/mml-smime.el b/lisp/mml-smime.el
index 58d3b46..3f0809e 100644
--- a/lisp/mml-smime.el
+++ b/lisp/mml-smime.el
@@ -317,24 +317,25 @@ Whether the passphrase is cached at all is controlled by
(defvar inhibit-redisplay)
(defvar password-cache-expiry)
-(eval-when-compile
- (autoload 'epg-make-context "epg")
- (autoload 'epg-context-set-armor "epg")
- (autoload 'epg-context-set-signers "epg")
- (autoload 'epg-context-result-for "epg")
- (autoload 'epg-new-signature-digest-algorithm "epg")
- (autoload 'epg-verify-result-to-string "epg")
- (autoload 'epg-list-keys "epg")
- (autoload 'epg-decrypt-string "epg")
- (autoload 'epg-verify-string "epg")
- (autoload 'epg-sign-string "epg")
- (autoload 'epg-encrypt-string "epg")
- (autoload 'epg-passphrase-callback-function "epg")
- (autoload 'epg-context-set-passphrase-callback "epg")
- (autoload 'epg-sub-key-fingerprint "epg")
- (autoload 'epg-configuration "epg-config")
- (autoload 'epg-expand-group "epg-config")
- (autoload 'epa-select-keys "epa"))
+(autoload 'epg-make-context "epg")
+(autoload 'epg-passphrase-callback-function "epg")
+(declare-function epg-context-set-signers "epg" (context signers))
+(declare-function epg-context-result-for "epg" (context name))
+(declare-function epg-new-signature-digest-algorithm "epg" (cl-x) t)
+(declare-function epg-verify-result-to-string "epg" (verify-result))
+(declare-function epg-list-keys "epg" (context &optional name mode))
+(declare-function epg-verify-string "epg"
+ (context signature &optional signed-text))
+(declare-function epg-sign-string "epg" (context plain &optional mode))
+(declare-function epg-encrypt-string "epg"
+ (context plain recipients &optional sign always-trust))
+(declare-function epg-context-set-passphrase-callback "epg"
+ (context passphrase-callback))
+(declare-function epg-sub-key-fingerprint "epg" (cl-x) t)
+(declare-function epg-configuration "epg-config" ())
+(declare-function epg-expand-group "epg-config" (config group))
+(declare-function epa-select-keys "epa"
+ (context prompt &optional names secret))
(defvar mml-smime-epg-secret-key-id-list nil)
@@ -359,9 +360,9 @@ Whether the passphrase is cached at all is controlled by
(cons key-id mml-smime-epg-secret-key-id-list))
(copy-sequence passphrase)))))
-(declare-function epg-key-sub-key-list "ext:epg" (key))
-(declare-function epg-sub-key-capability "ext:epg" (sub-key))
-(declare-function epg-sub-key-validity "ext:epg" (sub-key))
+(declare-function epg-key-sub-key-list "epg" (key) t)
+(declare-function epg-sub-key-capability "epg" (sub-key) t)
+(declare-function epg-sub-key-validity "epg" (sub-key) t)
(defun mml-smime-epg-find-usable-key (keys usage)
(catch 'found
diff --git a/lisp/nnir.el b/lisp/nnir.el
index 08ca7c7..15ccc47 100644
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -281,16 +281,6 @@ is `(valuefunc member)'."
(require 'gnus-sum)
-(eval-when-compile
- (autoload 'nnimap-buffer "nnimap")
- (autoload 'nnimap-command "nnimap")
- (autoload 'nnimap-change-group "nnimap")
- (autoload 'nnimap-make-thread-query "nnimap")
- (autoload 'gnus-registry-action "gnus-registry")
- (autoload 'gnus-registry-get-id-key "gnus-registry")
- (autoload 'gnus-group-topic-name "gnus-topic"))
-
-
(nnoo-declare nnir)
(nnoo-define-basics nnir)
@@ -586,6 +576,8 @@ Add an entry here when adding a new search engine.")
;; Gnus glue.
+(declare-function gnus-group-topic-name "gnus-topic" ())
+
(defun gnus-group-make-nnir-group (nnir-extra-parms &optional specs)
"Create an nnir group. Prompt for a search query and determine
the groups to search as follows: if called from the *Server*
@@ -948,6 +940,10 @@ ready to be added to the list of search results."
;;; Search Engine Interfaces:
+(autoload 'nnimap-change-group "nnimap")
+(declare-function nnimap-buffer "nnimap" ())
+(declare-function nnimap-command "nnimap" (&rest args))
+
;; imap interface
(defun nnir-run-imap (query srv &optional groups)
"Run a search against an IMAP back-end server.
@@ -1774,6 +1770,9 @@ environment unless `not-global' is non-nil."
(let ((backend (car (gnus-server-to-method server))))
(nnoo-current-server-p (or backend 'nnir) server)))
+(autoload 'nnimap-make-thread-query "nnimap")
+(declare-function gnus-registry-get-id-key "gnus-registry" (id key))
+
(defun nnir-search-thread (header)
"Make an nnir group based on the thread containing the article
header. The current server will be searched. If the registry is
@@ -1841,6 +1840,10 @@ article came from is also searched."
(forward-line)))))
groups))
+;; Behind gnus-registry-enabled test.
+(declare-function gnus-registry-action "gnus-registry"
+ (action data-header from &optional to method))
+
(defun nnir-registry-action (action data-header from &optional to method)
"Call `gnus-registry-action' with the original article group."
(gnus-registry-action
diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 5c54810..71bc916 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -36,8 +36,7 @@
(autoload 'gnus-add-buffer "gnus")
(autoload 'gnus-kill-buffer "gnus")
-(eval-when-compile
- (autoload 'mail-send-and-exit "sendmail" nil t))
+(autoload 'mail-send-and-exit "sendmail" nil t)
(defgroup nnmail nil
"Reading mail with Gnus."
diff --git a/lisp/spam.el b/lisp/spam.el
index 500f341..02ec695 100644
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -2232,15 +2232,6 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
;;{{{ spam-stat
-(eval-when-compile
- (autoload 'spam-stat-buffer-change-to-non-spam "spam-stat")
- (autoload 'spam-stat-buffer-change-to-spam "spam-stat")
- (autoload 'spam-stat-buffer-is-non-spam "spam-stat")
- (autoload 'spam-stat-buffer-is-spam "spam-stat")
- (autoload 'spam-stat-load "spam-stat")
- (autoload 'spam-stat-save "spam-stat")
- (autoload 'spam-stat-split-fancy "spam-stat"))
-
(require 'spam-stat)
(defun spam-check-stat ()
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 44 ++++++++++++++++++++++++++++++++++++++++++++
lisp/gnus-art.el | 3 +--
lisp/gnus-async.el | 3 ---
lisp/gnus-sync.el | 9 +++++----
lisp/mm-archive.el | 5 ++---
lisp/mm-util.el | 9 ++++-----
lisp/mm-view.el | 2 ++
lisp/mml-smime.el | 43 ++++++++++++++++++++++---------------------
lisp/nnir.el | 23 +++++++++++++----------
lisp/nnmail.el | 3 +--
lisp/spam.el | 9 ---------
11 files changed, 94 insertions(+), 59 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project