Commit 88bfa2e4 authored by Glenn Morris's avatar Glenn Morris
Browse files

(declare-function): Add compatibility declaration.

(mm-append-to-file, w32-focus-frame): Declare as functions.
parent d09ae6ca
......@@ -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)
......
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