*** tramp.el	Mon Aug 15 15:25:27 2005
--- tramp.el	Wed Sep 14 23:44:40 2005
***************
*** 165,170 ****
--- 165,172 ----
    :group 'tramp
    :type 'boolean)
  
+ (defvar tramp-default-username nil)
+ 
  ;; Emacs case
  (eval-and-compile
    (when (boundp 'backup-directory-alist)
***************
*** 6706,6712 ****
  	  (make-tramp-file-name
  	   :multi-method nil
  	   :method method
! 	   :user (or user nil)
  	   :host host
  	   :localname localname))))))
  
--- 6708,6714 ----
  	  (make-tramp-file-name
  	   :multi-method nil
  	   :method method
! 	   :user (or user tramp-default-username)
  	   :host host
  	   :localname localname))))))