emacs, xemacs, gnus ayar dosyaları

(önemli dosyalarımı yedekleme ve ulaşılabilir kılma çabalarımdan biridir, bu posta sürekli güncellenecektir, umarım arada birileri de nasiplenir:)

-- .emacs --------------------------------------------------------
;;start server for emacsclient
(server-start)

;;for common settings valid for both emacs and xemacs
(when (file-exists-p "~/.elisp/confcommon.el")
(load-file "~/.elisp/confcommon.el"))
-- eof .emacs -----------------------------------------------------


-- .xemacs/init.el -------------------------------------------------
;;start server for gnuclient
(gnuserv-start)

;; load settings valid for both emacs and xemacs
(when (file-exists-p "~/.elisp/confcommon.el")
(load-file "~/.elisp/confcommon.el"))
-- eof .xemacs/init.el ---------------------------------------------


-- .elisp/confcommon.el ------------------------------------------
;;emacs variables
(custom-set-variables
'(browse-url-netscape-program "firefox")
'(browse-url-mozilla-program "firefox")
'(current-language-environment "Turkish")
'(default-input-method "turkish-postfix")
'(global-font-lock-mode t nil (font-lock))
'(load-home-init-file t t)
'(mail-user-agent 'gnus-user-agent)
'(mm-text-html-renderer 'w3m)
'(read-mail-command 'gnus)
'(sendmail-program "/usr/sbin/sendmail" t)
'(gnus-fetch-old-headers t)
'(gnus-auto-expirable-newsgroups ".*")
'(show-paren-mode t)
'(transient-mark-mode t))
(custom-set-faces)

;;for Turkish language support
(let ((encoding 'utf-8))
; (set-language-environment 'Turkish)
(set-buffer-file-coding-system encoding)
(setq default-buffer-file-coding-system encoding)
(setq default-process-coding-system (cons encoding encoding)))

;;for our configuration files
(when (file-directory-p "~/.elisp/")
(add-to-list 'load-path "~/.elisp/"))

;for GNUS
(when (file-exists-p "~/.elisp/confgnus.el")
(load-file "~/.elisp/confgnus.el"))

;;for fhrist
(require 'bbdb)
(bbdb-initialize 'gnus 'message 'w3)

;;for better buffer list coming with emacs-cvs
(autoload 'ibuffer "ibuffer" "List buffers." t)

;;global key bindings
(global-set-key (kbd "C-x C-b") 'ibuffer)
(global-set-key (kbd "C-c C-c") 'comment-region)

;;for AUCTex
(when (locate-library "tex-site")
(require 'tex-site)
(setq-default
TeX-auto-save t
TeX-parse-self t)
(setq-default
preview-default-option-list '("displaymath"
"graphics"
"textmath"
"sections"
"footnotes")))
-- eof .elisp/confcommon.el --------------------------------------


-- .elisp/confgnus.el ----------------------------------------------
;; for GNUS
(require 'gnus)
(gnus-demon-add-handler 'gnus-group-get-new-news 10 2)
(gnus-demon-init)

;;my variables
(setq my-gnus-header-list '("^Organization:"
"^Summary:"
"^Keywords:"
"^Newsgroups:"
"^\\(Followup\\|Reply\\)-To:"
"^Comments:.*To:"
"^\\(X-\\|Apparently-\\)?To:"
"^\\(X-\\)?[BFG]?Cc:"
"^Date:"
"^\\(Resent-\\)?From:"
"^Subject:"))


;;emacs variables
(custom-set-variables
'(mail-user-agent 'gnus-user-agent)
'(mm-text-html-renderer 'w3m)
'(read-mail-command 'gnus)
'(sendmail-program "/usr/sbin/sendmail" t)
'(message-default-charset 'iso-8859-9)
;; '(gnus-fetch-old-headers t)
'(gnus-select-method '(nntp "news.individual.net"))
'(gnus-secondary-select-methods '((nntp "news.gmane.org")))
'(gnus-visible-headers my-gnus-header-list)
'(gnus-sorted-header-list my-gnus-header-list)
'(gnus-ignored-headers nil) ; only used if -visible-headers is nil
'(gnus-extra-headers '(To Newsgroup cc))
'(nnfolder-extra-headers '(To Newsgroup cc))
'(gnus-treat-display-smileys nil)
'(gnus-treat-date-local 'head) ; Date in the local timezone
'(gnus-treat-display-picons 't) ; Little piccies
'(gnus-treat-display-face 'head) ; A sort of customized picon
'(gnus-treat-display-xface 'head) ; A sort of customized picon
'(mm-text-html-renderer 'w3m-standalone)
'(news-reply-header-hook nil) ;for supercite
'(nnmail-split-methods ;mail filters
'(("debian" "^To:.*lists.debian.org.*\\|Cc:.*lists.debian.org.*")
("linux_sohbet" "^To:.*linux-sohbet.*\\|^Cc:.*linux-sohbet.*")
("itu_linux" "^To:.*itu_linux.*\\|^Cc:.*itu_linux.*")
("itu_mail" "^To:.*itu.edu.tr.*\\|^Cc:.*itu.edu.tr.*")
("lkd-uye" "^To:.*lkd-uye.*\\|^Cc:.*lkd-uye.*")
("newlc" "^From:.*newlc.*")
("gliwice" "^To:.*gliwice.*\\|^Cc:.*gliwice*\\")
("cslisp" "^To:.*cs-lisp.*\\|Cc:.*cs-lisp.*")
("iaeste" "^To:.*iaeste.*\\|^To:.*gtg-istanbul.*\\|^Cc:.*iaeste.*\\|^Cc:.*gtg-istanbul.*")
("secretcv" "^From:.*secretcv.*\\|^Reply-To:.*secretcv.*")
("kariyer" "^From:.*kariyer.*")
("sourceforge" "^From:.*sourceforge.*")
("gnupoc" "^To:.*gnupoc.*\\|^Cc:.*gnupoc.*")
("amazon" "^From:.*amazon.*")
("yemeksepeti" "^From:.*yemeksepeti.*")
("system" "^From:.*@pcerhan.*")
("other" "")))
'(gnus-auto-expirable-newsgroups ".*"))


(add-to-list 'gnus-secondary-select-methods '(nnfolder ""))
(eval-after-load "mail-source"
'(add-to-list 'mail-sources '(file :path
"/var/spool/mail/erhan")))
(eval-after-load "mail-source" '(require 'pop3))

;; Supercite functionality for mail and news quoting
;; I use it especially for GNUS
(autoload 'sc-cite-original "supercite" "Supercite 3.1" t)
(autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
(add-hook 'mail-citation-hook 'sc-cite-original)

;;enable topic mode
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
-- eof .elisp/confgnus.el ------------------------------------------