Mercurial > emacs
changeset 87229:e4e336c0677e
Add declare-function compatibility definition.
(mail-header-parse-content-type, message-narrow-to-head): Autoload.
(message-fetch-field): Declare as a function.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 11 Dec 2007 05:22:04 +0000 |
| parents | 9b1073650b18 |
| children | 3b4311ae0926 |
| files | lisp/gnus/rfc1843.el |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/rfc1843.el Tue Dec 11 05:21:18 2007 +0000 +++ b/lisp/gnus/rfc1843.el Tue Dec 11 05:22:04 2007 +0000 @@ -34,6 +34,10 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (eval-when-compile (require 'cl)) (require 'mm-util) @@ -139,6 +143,10 @@ (aset s (incf i) (+ v (if (< v 63) 64 98)))))) 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 () "Decode HZ encoded text in the article body." (if (string-match (concat "\\<\\(" rfc1843-newsgroups-regexp "\\)\\>")