# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1008979040 0
# Node ID d2e8e0db66663ba24a92b24cba1ead47f4e18e26
# Parent  bfee4533db2c1022c1e8c5edfdbb077bfd374469
(ange-ftp-file-modtime): Use save-match-data.

diff -r bfee4533db2c -r d2e8e0db6666 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Fri Dec 21 23:57:08 2001 +0000
+++ b/lisp/net/ange-ftp.el	Fri Dec 21 23:57:20 2001 +0000
@@ -3454,7 +3454,7 @@
     ;; Bob@rattlesnake.com reports that is returns something different
     ;; for at least one FTP server.  So, let's use the response only
     ;; if it matches the Internet draft.
-    (when (string-match "^213 [0-9]\\{14\\}$" line)
+    (when (save-match-data (string-match "^213 [0-9]\\{14\\}$" line))
       (setq modtime
 	    (encode-time
 	     (string-to-number (substring line 16 18))