mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

Add declare-function compatibility definition.

Browse Source 
(mail-header-parse-content-type, message-narrow-to-head): Autoload.
(message-fetch-field): Declare as a function.
This commit is contained in:
Glenn Morris 2007-12-11 05:22:04 +00:00
parent 48fd267576
commit 444f6b28fa
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/gnus/rfc1843.el
View File

@ -34,6 +34,10 @@
;;; Code: ;;; Code:
;; For Emacs < 22.2.
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(eval-when-compile (require 'cl)) (eval-when-compile (require 'cl))
(require 'mm-util) (require 'mm-util)
@ -139,6 +143,10 @@ ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc"
(aset s (incf i) (+ v (if (< v 63) 64 98)))))) (aset s (incf i) (+ v (if (< v 63) 64 98))))))
s)) s))
(autoload 'mail-header-parse-content-type "mail-parse")
(autoload 'message-narrow-to-head "message")
(declare-function message-fetch-field "message" (header &optional not-all))
(defun rfc1843-decode-article-body () (defun rfc1843-decode-article-body ()
"Decode HZ encoded text in the article body." "Decode HZ encoded text in the article body."
(if (string-match (concat "\\<\\(" rfc1843-newsgroups-regexp "\\)\\>") (if (string-match (concat "\\<\\(" rfc1843-newsgroups-regexp "\\)\\>")