tramp and RCS files.

[Matt Hodges]

In GNU Emacs 22.0.50.17 (i686-pc-linux-gnu, GTK+ Version 2.8.10)
 of 2006-01-31 on escpc40
X server distributor `The X.Org Foundation', version 11.0.60900000
configured using `configure '--with-gtk''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

I tried to access via TRAMP a remote file that was under version
control (RCS).  I got an error like:

    Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p 
"root")
      tramp-convert-file-attributes(nil "sudo" nil "" (nil 1 "root" "root" 
(17375 30202) (17375 30099) (17375 30118) 0 "-rw-r--r--" t (0 . 12064) -1))
      tramp-handle-file-attributes("/sudo::/tmp/test" string)
      apply(tramp-handle-file-attributes ("/sudo::/tmp/test" string))
      tramp-sh-file-name-handler(file-attributes "/sudo::/tmp/test" string)
      apply(tramp-sh-file-name-handler file-attributes ("/sudo::/tmp/test" 
string))
      tramp-file-name-handler(file-attributes "/sudo::/tmp/test" string)
      file-attributes("/sudo::/tmp/test" string)
      vc-rcs-state-heuristic("/sudo::/tmp/test")
      apply(vc-rcs-state-heuristic "/sudo::/tmp/test")
      vc-call-backend(RCS state-heuristic "/sudo::/tmp/test")
      vc-state("/sudo::/tmp/test")
      vc-default-mode-line-string(RCS "/sudo::/tmp/test")
      apply(vc-default-mode-line-string RCS "/sudo::/tmp/test")
      vc-call-backend(RCS mode-line-string "/sudo::/tmp/test")
      vc-mode-line("/sudo::/tmp/test")
      vc-find-file-hook()
      run-hooks(find-file-hook)
      after-find-file(nil t)
      find-file-noselect-1(#<buffer test> "/sudo::/tmp/test" nil nil 
"/sudo::/tmp/test" ((0 . 12064) (-1 0)))
      find-file-noselect("/sudo::/tmp/test" nil nil nil)
      find-file("/sudo::/tmp/test")
      eval((find-file "/sudo::/tmp/test"))
      eval-last-sexp-1(nil)
      eval-last-sexp(nil)
      call-interactively(eval-last-sexp)

To reproduce:

    (1) sudo touch /tmp/test

    (2) sudo rcs-checkin /tmp/test

    (3) emacs -Q

    (4) eval (find-file "/sudo::/tmp/test")

Thanks,

Matt