# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1138832805 0
# Node ID e66f443e6371cceb7831078cc63a8c656360a8d6
# Parent  728253cae438f85f99b6d01540f692a695cd85f7
* net/tramp.el (tramp-convert-file-attributes): Set file's gid
change bit only when id-format is 'integer.  Reported by Matt
Hodges <M.P.Hodges@rl.ac.uk>.

diff -r 728253cae438 -r e66f443e6371 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Feb 01 17:01:03 2006 +0000
+++ b/lisp/ChangeLog	Wed Feb 01 22:26:45 2006 +0000
@@ -1,3 +1,9 @@
+2006-02-01  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/tramp.el (tramp-convert-file-attributes): Set file's gid
+	change bit only when id-format is 'integer.  Reported by Matt
+	Hodges <M.P.Hodges@rl.ac.uk>.
+
 2006-02-01  Juanma Barranquero  <lekktu@gmail.com>
 
 	* hilit-chg.el (highlight-changes-initial-state)
diff -r 728253cae438 -r e66f443e6371 lisp/net/tramp.el
--- a/lisp/net/tramp.el	Wed Feb 01 17:01:03 2006 +0000
+++ b/lisp/net/tramp.el	Wed Feb 01 22:26:45 2006 +0000
@@ -6766,13 +6766,14 @@
   "Convert file-attributes ATTR generated by perl script or ls.
 Convert file mode bits to string and set virtual device number.
 Return ATTR."
+  ;; Convert file mode bits to string.
   (unless (stringp (nth 8 attr))
-    ;; Convert file mode bits to string.
     (setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr))))
-  ;; Set file's gid change bit.
-  (setcar (nthcdr 9 attr)
-	  (not (= (nth 3 attr)
-		  (tramp-get-remote-gid multi-method method user host))))
+  ;; Set file's gid change bit.  Possible only when id-format is 'integer.
+  (when (numberp (nth 3 attr))
+    (setcar (nthcdr 9 attr)
+	    (not (= (nth 3 attr)
+		    (tramp-get-remote-gid multi-method method user host)))))
   ;; Set virtual device number.
   (setcar (nthcdr 11 attr)
           (tramp-get-device multi-method method user host))