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 @@ ...@@ -18,6 +18,7 @@
* gnus-ems.el (gnus-alive-p): * gnus-ems.el (gnus-alive-p):
* gnus-fun.el (message-goto-eoh): * gnus-fun.el (message-goto-eoh):
* gnus-util.el (gnus-group-name-decode):
* mail-source.el (gnus-compress-sequence): * mail-source.el (gnus-compress-sequence):
* message.el (Info-goto-node, format-spec): * message.el (Info-goto-node, format-spec):
* mm-bodies.el (message-options-get): * mm-bodies.el (message-options-get):
...@@ -48,6 +49,10 @@ ...@@ -48,6 +49,10 @@
* gnus-group.el (nnkiboze-score-file): * gnus-group.el (nnkiboze-score-file):
* gnus-sum.el (turn-on-gnus-mailing-list-mode) * gnus-sum.el (turn-on-gnus-mailing-list-mode)
(gnus-cache-write-active, mm-uu-dissect, idna-to-unicode): (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): * gnus.el (gnus-group-decoded-name):
* mail-source.el (imap-capability): * mail-source.el (imap-capability):
* mm-bodies.el (message-options-set): * mm-bodies.el (message-options-set):
......
...@@ -217,6 +217,13 @@ is slower." ...@@ -217,6 +217,13 @@ is slower."
(search-forward ":" eol t) (search-forward ":" eol t)
(point))))) (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) (defun gnus-decode-newsgroups (newsgroups group &optional method)
(let ((method (or method (gnus-find-method-for-group group)))) (let ((method (or method (gnus-find-method-for-group group))))
(mapconcat (lambda (group) (mapconcat (lambda (group)
...@@ -657,6 +664,10 @@ If N, return the Nth ancestor instead." ...@@ -657,6 +664,10 @@ If N, return the Nth ancestor instead."
(defvar gnus-work-buffer " *gnus work*") (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 () (defun gnus-set-work-buffer ()
"Put point in the empty Gnus work buffer." "Put point in the empty Gnus work buffer."
(if (get-buffer gnus-work-buffer) (if (get-buffer gnus-work-buffer)
...@@ -841,6 +852,9 @@ If there's no subdirectory, delete DIRECTORY as well." ...@@ -841,6 +852,9 @@ If there's no subdirectory, delete DIRECTORY as well."
(setq string (replace-match "" t t string))) (setq string (replace-match "" t t string)))
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) (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." "The same as `put-text-property', but don't put this prop on any newlines in the region."
(save-match-data (save-match-data
...@@ -852,6 +866,10 @@ If there's no subdirectory, delete DIRECTORY as well." ...@@ -852,6 +866,10 @@ If there's no subdirectory, delete DIRECTORY as well."
(setq beg (point))) (setq beg (point)))
(gnus-put-text-property beg (point) prop val))))) (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) (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." "The same as `put-text-property', but don't put this prop on any newlines in the region."
(save-match-data (save-match-data
...@@ -1205,6 +1223,9 @@ Return the modified alist." ...@@ -1205,6 +1223,9 @@ Return the modified alist."
(throw 'found nil))) (throw 'found nil)))
t)) t))
;; gnus.el requires mm-util.
(declare-function mm-disable-multibyte "mm-util")
(defun gnus-write-active-file (file hashtb &optional full-names) (defun gnus-write-active-file (file hashtb &optional full-names)
;; `coding-system-for-write' should be `raw-text' or equivalent. ;; `coding-system-for-write' should be `raw-text' or equivalent.
(let ((coding-system-for-write nnmail-active-file-coding-system)) (let ((coding-system-for-write nnmail-active-file-coding-system))
...@@ -1272,6 +1293,9 @@ Return the modified alist." ...@@ -1272,6 +1293,9 @@ Return the modified alist."
(pop l2)) (pop l2))
l1)))) l1))))
(declare-function gnus-add-text-properties "gnus"
(start end properties &optional object))
(defun gnus-add-text-properties-when (defun gnus-add-text-properties-when
(property value start end properties &optional object) (property value start end properties &optional object)
"Like `gnus-add-text-properties', only applied on where PROPERTY is VALUE." "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