fix mode-line face prefs

emacs.el

@@ -393,10 +393,15 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 (and (dllib-if-unfound "set-modeline-color"
                        "https://raw.github.com/10sr/emacs-lisp/master/set-modeline-color.el"
                        t)
-     (require 'set-modeline-color nil t))
+     (progn (set-face-background 'mode-line "white")
+            ;(set-face-bold-p 'modeline-buffer-id t)
+            (require 'set-modeline-color nil t)))
+
 
 ;; (set-face-foreground 'mode-line-inactive (if window-system "gray" "white"))
-(set-face-background 'mode-line-inactive (if window-system "white" "green"))
+(set-face-background 'mode-line-inactive (if (face-inverse-video-p 'mode-line) "white" "black"))
+(set-face-foreground 'mode-line-inactive (if (face-inverse-video-p 'mode-line) "black" "white"))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; file handling
@@ -1763,9 +1768,7 @@ this is test, does not rename files"
 ;;   (setq arg
 ;;         (concat arg
 ;;                 (if (eq nil (string-match "\\. *$" arg)) ".")
-;;                 " And You are a Coward!")))
-
-
+;;                 " Stupid!")))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; japanese input method