(ange-ftp-file-modtime): Don't use `caddr'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7d5faff1cd1ea52d98d88eb886f742e91a887aa..2cdbe2e1de2730e878720199e6d39012346a54ea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-16  Miles Bader  <miles@lsi.nec.co.jp>
+
+       * net/ange-ftp.el (ange-ftp-file-modtime): Don't use `caddr'.
+
 2000-11-16  Kenichi Handa  <handa@etl.go.jp>
 
        * window.el (fit-window-to-buffer): Be sure to acquire at least

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index a6b986ceba08604bd0e08932b49295388e612304..e307a7dbfd4f8967b703e583abc769d11334ce4c 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -1,6 +1,6 @@
 ;;; ange-ftp.el --- transparent FTP support for GNU Emacs
 
-;; Copyright (C) 1989,90,91,92,93,94,95,96,98  Free Software Foundation, Inc.
+;; Copyright (C) 1989,90,91,92,93,94,95,96,98, 00  Free Software Foundation, Inc.
 
 ;; Author: Andy Norman (ange@hplb.hpl.hp.com)
 ;; Maintainer: FSF
@@ -3418,7 +3418,7 @@ system TYPE.")
 (defun ange-ftp-file-modtime (file)
   (let* ((parsed (ange-ftp-ftp-name file))
          (res (ange-ftp-send-cmd (car parsed) (cadr parsed)
-                                 (list 'quote "mdtm" (caddr parsed)))))
+                                 (list 'quote "mdtm" (cadr (cdr parsed))))))
     (if (= ?5 (aref (cdr res) 0)) '(0 0)
       (encode-time              ; MDTM returns "YYYYMMDDHHMMSS" GMT
        (string-to-number (substring (cdr res) 16 18))