[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el, v [EMACS_22_BASE]

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Michael Albinus <albinus>       07/08/06 07:23:39

Index: ange-ftp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/ange-ftp.el,v
retrieving revision 1.84.2.2
retrieving revision 1.84.2.3
diff -u -b -r1.84.2.2 -r1.84.2.3
--- ange-ftp.el 6 Aug 2007 06:57:31 -0000       1.84.2.2
+++ ange-ftp.el 6 Aug 2007 07:23:39 -0000       1.84.2.3
@@ -4279,7 +4279,7 @@
        (condition-case err
            (let ((debug-on-error t))
              (save-match-data (apply fn args)))
-         (error (error (error-message-string err))))
+         (error (signal (car err) (cdr err))))
       (ange-ftp-run-real-handler operation args))))
 
 ;; The following code is commented out because Tramp now deals with