From: Glenn Morris <rgm@gnu.org>
Date: Tue, 11 Dec 2007 08:28:49 +0000 (+0000)
Subject: (gnus-group-name-decode): Autoload.
X-Git-Tag: emacs-pretest-23.0.90~8941
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ec7fe1bff1362d0bb58d0bbc854ca815c1bc81d;p=emacs.git

(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 a09d3da95c0..cda28979cb1 100644
--- 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 8a6e8fa71cb..7b36c07da62 100644
--- 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."