X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnheaderxm.el;h=2cd0916f48c6738d7c2dc103a002e9498e7f2067;hb=c0d7674c3cb02a31d3d2c0f240e44fb48827d3ab;hp=0a5fc998d9d49ec1d17ba3876208076e38ce8533;hpb=7ebbcbb06bab7d80b94f9df6164cbcd37ab07c91;p=gnus diff --git a/lisp/nnheaderxm.el b/lisp/nnheaderxm.el index 0a5fc998d..2cd0916f4 100644 --- a/lisp/nnheaderxm.el +++ b/lisp/nnheaderxm.el @@ -1,7 +1,9 @@ ;;; nnheaderxm.el --- making Gnus backends work under XEmacs -;; Copyright (C) 1996,97 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003 +;; Free Software Foundation, Inc. + +;; Author: Lars Magne Ingebrigtsen ;; Keywords: news ;; This file is part of GNU Emacs. @@ -18,24 +20,19 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: ;;; Code: -(defun nnheader-xmas-run-at-time (time repeat function &rest args) - (start-itimer - "nnheader-run-at-time" - `(lambda () - (,function ,@args)) - time repeat)) +(require 'timer-funcs) -(fset 'nnheader-run-at-time 'nnheader-xmas-run-at-time) -(fset 'nnheader-cancel-timer 'delete-itimer) -(fset 'nnheader-cancel-function-timers 'ignore) +(defalias 'nnheader-cancel-timer 'delete-itimer) +(defalias 'nnheader-string-as-multibyte 'identity) (provide 'nnheaderxm) -;;; nnheaderxm.el ends here. +;;; arch-tag: ee2b3387-d3ca-4de6-9b64-304d838706dd +;;; nnheaderxm.el ends here