From 444f6b28fac106730e052322a6291470959c7db2 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:22:04 +0000 Subject: [PATCH] Add declare-function compatibility definition. (mail-header-parse-content-type, message-narrow-to-head): Autoload. (message-fetch-field): Declare as a function. --- lisp/gnus/rfc1843.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/gnus/rfc1843.el b/lisp/gnus/rfc1843.el index f27825b6d74..4820184d21a 100644 --- a/lisp/gnus/rfc1843.el +++ b/lisp/gnus/rfc1843.el @@ -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 @@ ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc" (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 "\\)\\>") -- 2.39.2