Commit 5ec7fe1b authored by Glenn Morris's avatar Glenn Morris

(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.
parent 0fef26e3
......@@ -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):
......
......@@ -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."
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment