tramp smb error: Cannot open connection //address@hidden/build

[Pawel]

Problem description:
GNU Emacs 21.3.1 (i386-redhat-linux-gnu, X toolkit, Xaw3d scroll bars) of 
2005-02-04 on bugs.build.redhat.com
tramp-version's value is "2.1.5"

my .emacs file contains:
(add-to-list 'tramp-default-user-alist
             '("smb" nil "samba-user"))

As I understand well, It should imply that all smb connections should use 
samba-user.
Unfortunatelly when I invoke (with correct password):
(find-file "/smb:remotehost:/build/")

I got the following error (full trace is at the end of message).
Cannot open connection //address@hidden/build

What is more, putting username directly to path makes proper connection:
(find-file "/smb:address@hidden:/build/")

I think I found the problem.
I investigated the code for a while and to make it work I changed folowing 
strings in tramp-smb.el:
"tramp-smb-method user host localname" -> "tramp-smb-method (tramp-find-user 
tramp-smb-method user host) host localname"
"user host share file" -> "(tramp-find-user tramp-smb-method user host) host 
share file"

I believe that this solution is not perfect, but I hope that it will point the 
proper solution.


Full trace is:
Debugger entered--Lisp error: (file-error "Cannot open connection 
//address@hidden/build")
  ad-Orig-signal(file-error ("Cannot open connection //address@hidden/build"))
  signal(file-error ("Cannot open connection //address@hidden/build"))
  tramp-smb-open-connection(nil "remotehost" "build")
  tramp-smb-maybe-open-connection(nil "remotehost" "build")
  tramp-smb-get-file-entries(nil "remotehost" "build" "")
  tramp-smb-handle-file-attributes("/smb:remotehost:/build/")
  apply(tramp-smb-handle-file-attributes "/smb:remotehost:/build/")
  tramp-smb-file-name-handler(file-attributes "/smb:remotehost:/build/")
  apply(tramp-smb-file-name-handler file-attributes "/smb:remotehost:/build/")
  tramp-file-name-handler(file-attributes "/smb:remotehost:/build/")
  file-attributes("/smb:remotehost:/build/")
  dired-readin("/smb:remotehost:/build/" #<buffer build>)
  dired-internal-noselect("/smb:remotehost:/build/" nil)
  dired-noselect("/smb:remotehost:/build")
  run-hook-with-args-until-success(dired-noselect "/smb:remotehost:/build")
  find-file-noselect("/smb:remotehost:/build" nil nil nil)
  ad-Orig-find-file("/smb:remotehost:/build" nil)
  find-file("/smb:remotehost:/build")
  eval((find-file "/smb:remotehost:/build"))
  eval-last-sexp-1(nil)
  ad-Orig-eval-last-sexp(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp)