[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el,v |
Date: |
Sun, 09 Dec 2007 02:08:48 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/12/09 02:08:48
Index: gnus-util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-util.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- gnus-util.el 16 Nov 2007 16:50:33 -0000 1.51
+++ gnus-util.el 9 Dec 2007 02:08:47 -0000 1.52
@@ -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 @@
(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 @@
(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)
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-util.el,v,
Glenn Morris <=