# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 974357533 0
# Node ID ac44722a4f196b42c433880522ce6bf6773c3a65
# Parent  3def5b3d02552cfd291651fc2ba53328e8c7bd93
(ange-ftp-file-modtime): Don't use `caddr'.

diff -r 3def5b3d0255 -r ac44722a4f19 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Thu Nov 16 06:36:21 2000 +0000
+++ b/lisp/net/ange-ftp.el	Thu Nov 16 06:52:13 2000 +0000
@@ -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 @@
 (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))