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

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d7d5faff1cd..2cdbe2e1de2 100644
--- 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 a6b986ceba0..e307a7dbfd4 100644
--- 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))