;; dot emacs

;; gnus
(setq load-path (cons "/usr/share/emacs/site-lisp/gnus/lisp" load-path))
(require 'gnus-load)
(require 'supercite)

;; Useful for Mail too
(display-time)

(setq mail-from-style 'angles)
(setq mail-specify-envelope-from t)

;; The menu uses VM
(define-key menu-bar-tools-menu [rmail] '("Read Mail" . vm))
(define-key-after menu-bar-tools-menu [smail] '("Send Mail" . vm-mail) 'rmail)

;;for unicode
(require 'un-define)

(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(gnus-activate-foreign-newsgroups 5)
 '(gnus-activate-level 5)
 '(gnus-agent-queue-mail nil)
 '(gnus-audio-au-player "/usr/bin/aplay")
 '(gnus-audio-wav-player "/usr/bin/aplay")
 '(gnus-bug-create-help-buffer nil)
 '(gnus-default-charset (quote utf-8))
 '(gnus-extract-address-components (quote mail-extract-address-components))
 '(gnus-group-charset-alist (quote (("\\(^\\|:\\)hk\\>\\|\\(^\\|:\\)tw\\>\\|\\<big5\\>" cn-big5) ("\\(^\\|:\\)cn\\>\\|\\<chinese\\>" cn-gb-2312) ("\\(^\\|:\\)fj\\>\\|\\(^\\|:\\)japan\\>" iso-2022-jp-2) ("\\(^\\|:\\)tnn\\>\\|\\(^\\|:\\)pin\\>\\|\\(^\\|:\\)sci.lang.japan" iso-2022-7bit) ("\\(^\\|:\\)relcom\\>" koi8-r) ("\\(^\\|:\\)fido7\\>" koi8-r) ("\\(^\\|:\\)\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2) ("\\(^\\|:\\)israel\\>" iso-8859-1) ("\\(^\\|:\\)han\\>" euc-kr) ("\\(^\\|:\\)alt.chinese.text.big5\\>" chinese-big5) ("\\(^\\|:\\)soc.culture.vietnamese\\>" vietnamese-viqr) ("\\(^\\|:\\)\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-1) ("\\^deb-user-ukr_list" cyrillic-koi8))))
 '(gnus-group-list-inactive-groups nil)
 '(gnus-interactive-exit nil)
 '(gnus-message-archive-group "sent")
 '(gnus-message-archive-method (quote (nnfolder "Sent" (nnfolder-directory "~/Mail/gnus-sent/") (nnfolder-active-file "~/Mail/gnus-sent/active") (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t))))
 '(gnus-nov-is-evil t)
 '(gnus-play-startup-jingle t)
 '(gnus-read-newsrc-file nil)
 '(gnus-save-newsrc-file nil)
 '(gnus-secondary-select-methods (quote ((nnfolder "Archive" (nnfolder-directory "~/Mail/Arch/") (nnfolder-active-file "~/Mail/Arch/active") (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t)) (nnfolder "From-me-archive" (nnfolder-directory "~/Mail/Arch/Fromme/") (nnfolder-active-file "~/Mail/Arch/Fromme/active") (nnfolder-get-new-mail nil) (nnfolder-inhibit-expiry t)))))
 '(gnus-select-method (quote (nnfolder "Inbox" (nnfolder-directory "~/Mail/gnus-inbox/") (nnfolder-active-file "~/Mail/gnus-inbox/active"))))
 '(gnus-server-browse-in-group-buffer nil)
 '(gnus-subscribe-hierarchical-interactive t)
 '(gnus-subscribe-newsgroup-method (quote gnus-subscribe-hierarchically))
 '(gnus-summary-show-article-charset-alist (quote ((1 . cyrillic-koi8) (2 . koi8-r) (3 . windows-1251) (4 . utf-8))))
 '(gnus-use-scoring nil)
 '(gnus-uu-post-length 800000)
 '(gnus-visual (quote (menu)))
 '(mail-source-delete-incoming t)
 '(mail-source-directory "~/Mail/")
 '(mail-sources (quote ((directory :path "~/Mail/Inbox/" :suffix "" :plugged t))))
 '(max-specpdl-size 10000)
 '(message-cite-function (quote sc-cite-original) t)
 '(message-send-mail-partially-limit 800000)
 '(nnmail-scan-directory-mail-source-once t)
 '(nnmail-use-long-file-names t)
 '(remember-handler-functions (quote (remember-append-to-file remember-store-in-mailbox)))
 '(sc-citation-leader "")
 '(sc-preferred-attribution-list (quote ("sc-lastchoice" "x-attribution" "initials" "firstname" "lastname")))
 '(user-full-name "Dart Vader")
 '(user-mail-address "ak47.ataka@gmail.com")

;;;;end of custom?