[Emacs-diffs] /srv/bzr/emacs/trunk r104766: * lisp/net/ange-ftp.el: Allow loading .gz files (Bug#6923).

[Chong Yidong]

------------------------------------------------------------
revno: 104766
author: Katsumi Yamaoka <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2011-06-27 17:30:37 -0400
message:
  * lisp/net/ange-ftp.el: Allow loading .gz files (Bug#6923).
  (ange-ftp-make-tmp-name): New arg.
  (ange-ftp-file-local-copy): Use it.
modified:
  lisp/ChangeLog
  lisp/net/ange-ftp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-27 21:15:35 +0000
+++ b/lisp/ChangeLog    2011-06-27 21:30:37 +0000
@@ -1,3 +1,9 @@
+2011-06-27  Katsumi Yamaoka  <address@hidden>
+
+       * net/ange-ftp.el: Allow loading .gz files (Bug#6923).
+       (ange-ftp-make-tmp-name): New arg.
+       (ange-ftp-file-local-copy): Use it.
+
 2011-06-27  Jambunathan K  <address@hidden>
 
        * tar-mode.el (tar-untar-buffer): Set coding-system-for-write to

=== modified file 'lisp/net/ange-ftp.el'
--- a/lisp/net/ange-ftp.el      2011-06-25 18:21:00 +0000
+++ b/lisp/net/ange-ftp.el      2011-06-27 21:30:37 +0000
@@ -1723,11 +1723,12 @@
 ;;; Temporary file location and deletion...
 ;;; ------------------------------------------------------------
 
-(defun ange-ftp-make-tmp-name (host)
+(defun ange-ftp-make-tmp-name (host &optional suffix)
   "This routine will return the name of a new file."
   (make-temp-file (if (ange-ftp-use-gateway-p host)
                      ange-ftp-gateway-tmp-name-template
-                   ange-ftp-tmp-name-template)))
+                   ange-ftp-tmp-name-template)
+                 nil suffix))
 
 (defun ange-ftp-del-tmp-name (filename)
   "Force to delete temporary file."
@@ -4139,7 +4140,8 @@
   (let* ((fn1 (expand-file-name file))
         (pa1 (ange-ftp-ftp-name fn1)))
     (if pa1
-       (let ((tmp1 (ange-ftp-make-tmp-name (car pa1))))
+       (let ((tmp1 (ange-ftp-make-tmp-name (car pa1)
+                                           (file-name-extension file t))))
          (ange-ftp-copy-file-internal fn1 tmp1 t nil
                                       (format "Getting %s" fn1))
          tmp1))))