Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-ftp.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents d95e72db5c07
children 131b0175ea99
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp> 5 ;; Author: MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
6 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> 6 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;; Created: 1994/11/5 7 ;; Created: 1994/11/5
8 ;; Version: $Id: tm-ftp.el,v 1.4 1997/02/04 02:36:06 steve Exp $ 8 ;; Version: $Id: tm-ftp.el,v 1.5 1997/02/16 01:29:33 steve Exp $
9 ;; Keywords: anonymous ftp, MIME, multimedia, mail, news 9 ;; Keywords: anonymous ftp, MIME, multimedia, mail, news
10 10
11 ;; This file is part of tm (Tools for MIME). 11 ;; This file is part of tm (Tools for MIME).
12 12
13 ;; This program is free software; you can redistribute it and/or 13 ;; This program is free software; you can redistribute it and/or
26 ;; Boston, MA 02111-1307, USA. 26 ;; Boston, MA 02111-1307, USA.
27 27
28 ;;; Code: 28 ;;; Code:
29 29
30 (require 'tm-view) 30 (require 'tm-view)
31 (require 'ange-ftp) 31
32 (defvar mime-view-ftp-module
33 (if (< emacs-major-version 19)
34 'ange-ftp)
35 "*Module for ftp file access.")
36
37 (and mime-view-ftp-module
38 (require mime-view-ftp-module)
39 )
32 40
33 (defvar mime-article/dired-function 41 (defvar mime-article/dired-function
34 (if mime/use-multi-frame 42 (if mime/use-multi-frame
35 (function dired-other-frame) 43 (function dired-other-frame)
36 (function mime-article/dired-function-for-one-frame) 44 (function mime-article/dired-function-for-one-frame)