(gnus-group-name-decode): Autoload.

(gnus-find-method-for-group, gnus-group-name-charset)
(message-tokenize-header, gnus-get-buffer-create)
(mm-enable-multibyte, gnus-put-text-property, gnus-overlay-put)
(gnus-make-overlay, mm-disable-multibyte, gnus-add-text-properties):
Declare as functions.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index a09d3da95c075ceb1e9c43c674cb7140d0a16678..cda28979cb16312f7acae7b7115958eb9881f88e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -18,6 +18,7 @@
 
        * gnus-ems.el (gnus-alive-p):
        * gnus-fun.el (message-goto-eoh):
+       * gnus-util.el (gnus-group-name-decode):
        * mail-source.el (gnus-compress-sequence):
        * message.el (Info-goto-node, format-spec):
        * mm-bodies.el (message-options-get):
@@ -48,6 +49,10 @@
        * gnus-group.el (nnkiboze-score-file):
        * gnus-sum.el (turn-on-gnus-mailing-list-mode)
        (gnus-cache-write-active, mm-uu-dissect, idna-to-unicode):
+       * gnus-util.el (gnus-find-method-for-group, gnus-group-name-charset)
+       (message-tokenize-header, gnus-get-buffer-create)
+       (mm-enable-multibyte, gnus-put-text-property, gnus-overlay-put)
+       (gnus-make-overlay, mm-disable-multibyte, gnus-add-text-properties):
        * gnus.el (gnus-group-decoded-name):
        * mail-source.el (imap-capability):
        * mm-bodies.el (message-options-set):

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 8a6e8fa71cb005b624542d02964bd34791991ba5..7b36c07da62610aa8c200ef7197e5e131abef358 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -217,6 +217,13 @@ is slower."
                   (search-forward ":" eol t)
                   (point)))))
 
+(declare-function gnus-find-method-for-group "gnus" (group &optional info))
+(autoload 'gnus-group-name-decode "gnus-group")
+(declare-function gnus-group-name-charset "gnus-group" (method group))
+;; gnus-group requires gnus-int which requires message.
+(declare-function message-tokenize-header "message"
+                  (header &optional separator))
+
 (defun gnus-decode-newsgroups (newsgroups group &optional method)
   (let ((method (or method (gnus-find-method-for-group group))))
     (mapconcat (lambda (group)
@@ -657,6 +664,10 @@ If N, return the Nth ancestor instead."
 
 (defvar gnus-work-buffer " *gnus work*")
 
+(declare-function gnus-get-buffer-create "gnus" (name))
+;; gnus.el requires mm-util.
+(declare-function mm-enable-multibyte "mm-util")
+
 (defun gnus-set-work-buffer ()
   "Put point in the empty Gnus work buffer."
   (if (get-buffer gnus-work-buffer)
@@ -841,6 +852,9 @@ If there's no subdirectory, delete DIRECTORY as well."
     (setq string (replace-match "" t t string)))
   string)
 
+(declare-function gnus-put-text-property "gnus"
+                  (start end property value &optional object))
+
 (defsubst gnus-put-text-property-excluding-newlines (beg end prop val)
   "The same as `put-text-property', but don't put this prop on any newlines in the region."
   (save-match-data
@@ -852,6 +866,10 @@ If there's no subdirectory, delete DIRECTORY as well."
          (setq beg (point)))
        (gnus-put-text-property beg (point) prop val)))))
 
+(declare-function gnus-overlay-put  "gnus" (overlay prop value))
+(declare-function gnus-make-overlay "gnus"
+                  (beg end &optional buffer front-advance rear-advance))
+
 (defsubst gnus-put-overlay-excluding-newlines (beg end prop val)
   "The same as `put-text-property', but don't put this prop on any newlines in the region."
   (save-match-data
@@ -1205,6 +1223,9 @@ Return the modified alist."
        (throw 'found nil)))
     t))
 
+;; gnus.el requires mm-util.
+(declare-function mm-disable-multibyte "mm-util")
+
 (defun gnus-write-active-file (file hashtb &optional full-names)
   ;; `coding-system-for-write' should be `raw-text' or equivalent.
   (let ((coding-system-for-write nnmail-active-file-coding-system))
@@ -1272,6 +1293,9 @@ Return the modified alist."
             (pop l2))
           l1))))
 
+(declare-function gnus-add-text-properties "gnus"
+                  (start end properties &optional object))
+
 (defun gnus-add-text-properties-when
   (property value start end properties &optional object)
   "Like `gnus-add-text-properties', only applied on where PROPERTY is VALUE."