;; -*- mode: lisp-interaction; syntax: elisp -*-

;;basic configurations
(display-time)
(tool-bar-mode nil)
;(menu-bar-mode -1)
(toggle-scroll-bar -1)
(setq-default line-number-mode t)
(setq-default column-number-mode t)
(setq-default frame-title-format "%b")
(setq default-major-mode 'text-mode)
(setq inhibit-startup-message t) ;get rid of splash screen
(find-file "/repos/todo")


;;basic colors
(set-foreground-color "grey")
(set-background-color "black")
(set-face-foreground 'modeline "white")
(set-face-background 'modeline "navy")
(set-cursor-color "red")
(set-face-italic-p 'region t)
(set-face-font 'default "-*-fixed-medium-r-normal--14-*")


;;misc options
(fset 'yes-or-no-p 'y-or-n-p) ;write y instead of yes
(setq make-backup-files nil)  ;no backupfile
(setq delete-auto-save-files t) ;delete unnecessary autosave files
(setq delete-old-versions t)    ;delete oldversion files
(setq query-replace-highlight t)
(setq search-highlight t)

;;editor specific
(setq-default tab-width 2)
(setq-default auto-save-interval 1000)
(setq-default indent-tabs-mode nil)
(setq-default  next-line-add-newlines nil) ;down arrow wont insert newline

;;text-mode
(add-hook 'text-mode-hook
 '(lambda () 
             (setq auto-fill-mode 1)
             (setq fill-column 70)
             (setq ispell-minor-mode 1)
             (flyspell-mode 1)
             (define-key text-mode-map [f2] 'ispell-word)
						 (font-lock-mode 1)
	)
)

;;c-mode
(add-hook 'c-mode-hook
 '(lambda ()
             (define-key c-mode-map [f1] 'manual-entry)
						 (define-key c-mode-map [f4] 'next-error)
						 (define-key c-mode-map [f5] 'compile)
             (setq c-basic-offset 2)
						 (font-lock-mode 1)
  )
)

;;font-lock-mode
(add-hook 'font-lock-mode-hook
	'(lambda ()
              (make-face 'keyword-face)
						  ;(set-face-foreground 'keyword-face "tomato")
						  (set-face-foreground 'keyword-face "red")
							(setq font-lock-keyword-face 'keyword-face)

							(make-face 'comment-face)
							;(set-face-foreground 'comment-face "violetred4")
							(set-face-foreground 'comment-face "yellow")
							(setq font-lock-comment-face 'comment-face)

							(make-face 'string-face)
							(set-face-foreground 'string-face "red")
							(setq font-lock-string-face 'string-face)
			        (make-face 'function-face)
			        (set-face-foreground 'function-face "green")
			        (setq font-lock-function-name-face 'function-face)

			        (make-face 'c-type-face)
			        (set-face-foreground 'c-type-face "darkolivegreen")
			        (setq font-lock-type-face 'c-type-face)

	)
)

;;keys
(global-set-key [f2] 'ispell-word)
(global-set-key "\M-g" 'goto-line)

;;general mail account name settings
(setq user-mail-address "archanp@excite.com")
(setq user-full-name "Archan")

;;gnus specific setup
(require 'gnus)
(setq gnus-select-method '(nntp "news.gnus.org"))
(add-to-list 'gnus-secondary-select-methods '(nnml ""))
(setq mail-sources '((pop  :server "" 
                           :user "")
										)
)
(setq nnmail-split-methods
  '(("mail.ilug-cal"         "^Sender: owner-ilug-cal@ilug-cal.org")
    ("mail.ilug-help"        "^Sender: linux-india-help-admin@lists.sourceforge.net")
    ("mail.ilug-general"     "^Sender: linux-india-general-admin@lists.sourceforge.net")
    ("mail.ilug-programmers" "^Sender: linux-india-programmers-admin@lists.sourceforge.net")
    ("mail.laser5.co.jp" "^To:./* linux-india-programmers-admin@lists.sourceforge.net")
	  ("mail.other" "")
	 )
)
					

(setq send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'smtpmail-send-it)
(setq smtpmail-default-smtp-server "localhost")
(setq gnus-fetch-old-headers t) ;see the mails which is already read