show user@host in minibuffer

emacs.el

@@ -2056,5 +2056,15 @@ this is test, does not rename files"
 ;; (defadvice message (before message-for-stupid (arg &rest arg2) activate)
 ;;   (setq arg
 ;;         (concat arg
-;;                 (if (eq nil (string-match "\\. *$" arg)) ".")
+;;                 (if (eq nil
+;;                         (string-match "\\. *$"
+;;                                       arg))
+;;                     ".")
 ;;                 " Stupid!")))
+
+;; show usename and hostname when prompting something in minibuffer
+(defadvice read-from-minibuffer
+  (before message-for-stupid (prompt &rest args) activate)
+  (setq prompt
+        (concat "[" user-login-name "@" system-name "] "
+                prompt)))