(custom-set-variables
 '(user-mail-address "uli@gregory.sax.de")
 '(query-user-mail-address nil))
(custom-set-faces)


(standard-display-european 1)
(set-input-mode (car (current-input-mode))(nth 1 (current-input-mode))0)


(global-set-key [f2] 'save-buffer)       
(global-set-key [f3] 'find-file)         
(global-set-key [f4] 'auto-fill-mode) 
(global-set-key [f5] 'auto-save-mode)
(global-set-key [f6] 'make-frame)
(global-set-key [f7] 'umlaute-im-gnuclient)
(global-set-key [f8] 'shell)
;;(global-set-key [f9] 'vm)
(global-set-key [f10] 'compile)


;;(load-library "mailcrypt")
;;(load "vm")
(load "completion")                                     
(initialize-completions)
(gnuserv-start)

;;(load-library "/usr/local/share/xemacs/vm/vm.elc")
;;(load "w3")

(setq compile-command "date; make")
(setq auto-save-default nil)
(setq auto-save-visited-file-name 3)
(setq kill-whole-line 1)                     ; kill the newline too
(setq make-backup-files nil)
(setq scroll-step 2)
(line-number-mode 1)

(global-set-key [?\M-w] 'kill-line)
(global-set-key [?\C-b] 'switch-to-buffer) 
(global-set-key [?\C-k] 'kill-buffer)      
;(global-set-key [?\C-a] 'other-window)    ; is done by C-TAB
(global-set-key [?\C-d] 'delete-window)
(global-set-key [?\M-s] 'split-window-vertically)
(global-set-key [?\C-u] 'undo)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
(global-set-key [delete] 'delete-char)
(global-set-key [?\C-e] 'enlarge-window )
(global-set-key [?\M-1] 'copy-to-register)
(global-set-key [?\M-2] 'insert-register)
(global-set-key [?\C-^] 'complete)
;; C-x <num> is rarely defined

;;-----------------------------------------------------------------------------
(load "cc-mode")
(setq auto-mode-alist
       (append
         '(("\\.c$"    . c++-mode)
           ("\\.h$"    . c++-mode)
           ("\\.cc$"   . c++-mode)
           ("\\.hh$"   . c++-mode)
	   ("\\.cpp$"  . c++-mode)
	   ("\\.ah$"  . c++-mode) ;; aspect c++
	   ("\\.rb$" . ruby-mode)
          ) auto-mode-alist))
(defconst set-c++-style
       '((c-tab-always-indent           . t)
         (c-comment-only-line-offset    . 4)  ;; offset for comments += 4
         (c-hanging-braces-alist        . ((substatement-open after)
                                           (brace-list-open)))
	 (c-hanging-colons-alist        . ((member-init-intro before)
                                           (inher-intro)
                                           (case-label after)
                                           (label after)
                                           (access-label after)))
         (c-cleanup-list                . (scope-operator
                                           empty-defun-braces
					   defun-close-semi))
         (c-offsets-alist               . ((arglist-close     . c-lineup-arglist)
                                           (substatement-open . 1)
                                           (case-label        . 4)
					   (access-label      . -3)
					   (else-clause      . 1)
					   (member-init-intro .++)
                                           (knr-argdecl-intro . -)))
        (c-echo-syntactic-information-p . t)
        )
        "My C++ Programming Style")
     
(defun my-c-mode-common-hook ()
  (c-add-style "MYONE" set-c++-style t) ;; loads set-c++-style
  ;;(c-set-offset 'member-init-intro '++)  ;; setted in c-offsets-alist 
  (setq tab-width 8 indent-tabs-mode nil)  ;; tab-inseration off
  (c-toggle-auto-state 1)        ;; toggels the automatic indention
  (define-key c-mode-map "\C-m" 'newline-and-indent))

(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

;;-----------------------------------------------------------------------------


(require 'font-lock)

(defun COLORMODE ()
  (interactive)
  (set-face-foreground font-lock-comment-face "Navy")
  (set-face-foreground font-lock-string-face "Sienna")
  (set-face-foreground font-lock-function-name-face "Firebrick")
  (set-face-foreground font-lock-reference-face "DarkGreen")
  (set-face-foreground font-lock-keyword-face "Darkgreen")
  (set-face-foreground font-lock-preprocessor-face "DarkGreen")
  (set-face-foreground font-lock-doc-string-face "black"))
;;  (set-face-foreground cperl-nonoverridable-face "darkgreen"))
(COLORMODE)

(defun umlaute-im-gnuclient ()
  (interactive)
  (standard-display-european 1)
  (set-input-mode (car (current-input-mode))(nth 1 (current-input-mode))0)
)

;(put 'eval-expression 'disabled nil)


;(autoload 'vm "~/mbox" "Start VM on your primary inbox." t)
;(autoload 'vm-visit-folder "~/mbox" "Start VM on an arbitrary folder." t)
;(autoload 'vm-mail "~/mbox" "Send a mail message using VM." t)
;(autoload 'vm-submit-bug-report "~/mbox" "Send a bug report about VM." t)

(setq vm-primary-inbox "~/Mail/mbox")
(setq vm-frame-per-completion nil)
(setq vm-frame-per-composition nil)
(setq vm-frame-per-edit nil)
(setq vm-frame-per-folder nil)
(setq vm-frame-per-help nil)
(setq vm-frame-per-summary nil)

(display-time)


;; latex2e
(require 'tex-site)

(defun tex-textbf (arg) (interactive "sFetter text:") (insert "\\textbf{")(insert arg)(insert "} "))
(defun tex-textit (arg) (interactive "sKursiver text:") (insert "\\textit{")(insert arg)(insert "} "))
(defun tex-textemph (arg) (interactive "sText betonen:") (insert "\\emph{")(insert arg)(insert "} "))
(defun tex-textul (arg) (interactive "sText unterstreichen:") (insert "\\underline{")(insert arg)(insert "} "))
(defun tex-texttt (arg) (interactive "sSchreibmaschinentext :") (insert "\\texttt{")(insert arg)(insert "} "))


(defun tex-begincustom (arg) (interactive "swhat:") (insert "\\begin{")(insert arg)(insert "}")(newline)(newline)(insert "\\end{")(insert arg)(insert "}")(previous-line 1))
(defun tex-beginitemize () (interactive) (insert "\\begin{itemize}")(newline)(insert "\\item ")(newline)(insert "\\end{itemize}")(previous-line 1)(end-of-line))
(defun tex-beginenumerate () (interactive) (insert "\\begin{enumerate}")(newline)(insert "\\item ")(newline)(insert "\\end{enumerate}")(previous-line 1)(end-of-line))
(defun tex-insertitem () (interactive) (insert "\\item ")(end-of-line))
(defun tex-insertleftarrow () (interactive) (insert "$\\leftarrow$"))
(defun tex-insertrightarrow () (interactive) (insert "$\\rightarrow$"))
 

(add-hook 'LaTeX-mode-hook '(lambda()
  (auto-fill-mode 1)
  (local-set-key [?\M-l f f] 'tex-textbf) ;; font
  (local-set-key [?\M-l f i] 'tex-textit)
  (local-set-key [?\M-l f e] 'tex-textemph)
  (local-set-key [?\M-l f u] 'tex-textul)
  (local-set-key [?\M-l f t] 'tex-texttt)

  (local-set-key [?\M-l b c] 'tex-begincustom) ;; begin customized
  (local-set-key [?\M-l b i] 'tex-insertitem) 
  (local-set-key [?\M-l b I] 'tex-beginitemize) ;; begin itemize start
  (local-set-key [?\M-l b E] 'tex-beginenumerate) ;; begin itemize start

  (local-set-key [?\M-l m a l] 'tex-insertleftarrow) ;; math arrow
  (local-set-key [?\M-l m a r] 'tex-insertrightarrow) ;; math arrow
  )
)


(cond
 ((string-match "XEmacs" (emacs-version))
  (progn
    (defvar auto-save-and-recover-context t)
    (defvar save-buffer-context t)
    (require 'saveconf)
    (if (null (cdr command-line-args))
	(setq inihibit-startup-message (recover-context))))))


(defvar utf8-translate-map
  `((,(string 195 164)     . "ä") ; umlaut a
    (,(string 195 182)     . "ö") ; umlaut o
    (,(string 195 188)     . "ü") ; umlaut u
    (,(string 195 44 44)   . "Ä") ; umlaut A
    (,(string 195 45)      . "Ö") ; umlaut O
    (,(string 195 111 101) . "Ü") ; umlaut U
    (,(string 195 159)     . "ß") ; umlaut ss
    ;; found two different encodings in articles
    (,(string 226 130 172) . "€")   ; EUR
    (,(string 226 44 172)  . "€") ) ; EUR
  nil)
(defvar utf8-search-for
  (mapconcat (lambda( entry ) (car entry)) utf8-translate-map "\\|"))
(defun cc-decode-utf8()
 (let ((case-fold-search nil))
   (while (re-search-forward utf8-search-for nil t)
     (replace-match
      (cdr (assoc (match-string 0) utf8-translate-map)) t t))))
(add-hook 'gnus-article-prepare-hook 'cc-decode-utf8 t)