From 88bfa2e405c457e05f6a481344c511fdfde2ebba Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 9 Dec 2007 02:08:47 +0000 Subject: [PATCH] (declare-function): Add compatibility declaration. (mm-append-to-file, w32-focus-frame): Declare as functions. --- lisp/gnus/gnus-util.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index de01fb2db11..8a6e8fa71cb 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -35,6 +35,9 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) (eval-when-compile (require 'cl)) ;; Fixme: this should be a gnus variable, not nnmail-. @@ -987,6 +990,9 @@ with potentially long computations." (defvar rmail-default-rmail-file) (defvar mm-text-coding-system) +(declare-function mm-append-to-file "mm-util" + (start end filename &optional codesys inhibit)) + (defun gnus-output-to-rmail (filename &optional ask) "Append the current article to an Rmail file named FILENAME." (require 'rmail) @@ -1515,6 +1521,8 @@ CHOICE is a list of the choice char and help message at IDX." (kill-buffer buf)) tchar)) +(declare-function w32-focus-frame "../term/w32-win" (frame)) + (defun gnus-select-frame-set-input-focus (frame) "Select FRAME, raise it, and set input focus, if possible." (cond ((featurep 'xemacs) -- 2.39.2