🚀 go-pugleaf

--=-=-=
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: 8bit

����

�������ҵ� .emacs.el �ļ���

--=-=-=
Content-Type: application/emacs-lisp
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

;; $Id: .emacs.el,v 1.21 2003/06/06 05:59:54 spr Exp $  -*- Emacs-Lisp -*-
;; Chunyu's .emacs.el is created on db.hit.edu.cn.
;; Chunyu.<dddkk at sina dot com> 

(global-set-key [f1] 'cvs-examine)
(global-set-key [f6] 'eshell)
(global-set-key [f7] 'calendar)
(global-set-key [f9] 'view-mode)
(global-set-key [f8] 'other-window)
(global-set-key [f11] 'compile)
(global-set-key [f12] 'gdb)

(global-set-key "\C-x\C-b" 'electric-buffer-list)
(global-set-key "\C-x\C-j" 'dired-jump)
(global-set-key "\C-xk" 'kill-buffer-directly) ; ��� defun ���
(global-set-key "\C-xm" 'man-follow)
(global-set-key "\C-c\C-o" 'occur)
(global-set-key "\C-c\C-v" 'view-mode)
(global-set-key "\C-c\C-z" 'pop-global-mark)
(global-set-key "\C-z" 'set-mark-command)
(global-set-key "\M-/" 'hippie-expand)	; ��� dabbrev-expand
(global-set-key "\C-\\" 'dictionary-search)
(global-set-key "\M-o" 'other-window)	; M-o
(global-set-key [(home)] 'beginning-of-buffer)
(global-set-key [(end)] 'end-of-buffer)

(setq inhibit-startup-message t)
(setq default-major-mode 'text-mode)
(setq uniquify-buffer-name-style 'forward)
(setq ido-save-directory-list-file nil)
(setq resize-mini-windows nil)
(setq display-time-day-and-date t)
(setq next-line-add-newlines nil)
(setq display-time-24hr-format t)
(setq require-final-newline t)
(setq user-mail-address "my@mail.address")
(setq dired-listing-switches "-avl") ; � Dired Buffer ����`C-u s'��
(setq user-full-name "Chunyu")
(setq compile-command "make ")
(setq diary-file "~/.diary")
(setq bookmark-save-flag 1)
(setq dired-recursive-copies t)
(setq dired-recursive-deletes t)
(setq Man-notify-method 'pushy)
(setq dictionary-server "192.168.1.194")

(setq version-control t)
(setq kept-old-versions 2)
(setq kept-new-versions 5)
(setq delete-old-versions t)
(setq backup-directory-alist '(("" . "~/tmp")))

(global-font-lock-mode t)
(auto-compression-mode t)
(column-number-mode t)
(display-time-mode t)
(show-paren-mode t)
(menu-bar-mode -1)
(tool-bar-mode -1)
(ido-mode t)

(set-terminal-coding-system 'chinese-iso-8bit)
(set-keyboard-coding-system 'chinese-iso-8bit)
(set-language-environment 'Chinese-GB)

(setq hippie-expand-try-functions-list
      '(try-expand-line
        try-expand-line-all-buffers
        try-expand-list
        try-expand-list-all-buffers
        try-expand-dabbrev
        try-expand-dabbrev-visible
        try-expand-dabbrev-all-buffers
        try-expand-dabbrev-from-kill
        try-complete-file-name
        try-complete-file-name-partially
        try-complete-lisp-symbol
        try-complete-lisp-symbol-partially
        try-expand-whole-kill))

(defalias 'yes-or-no-p 'y-or-n-p)

(set-register ?e '(file . "~/.emacs.el"))
(set-register ?q '(file . "/ftp:cy@itrb#1021:/"))
(set-register ?z '(file . "/path/to/a/file"))
(setenv "DISPLAY" "cy:0")
(setq emacs-wiki-directories  '("~/Wiki"))
(setq canlock-password "f6d9e4eb8360cf2cd5db9d5d0f83f7f09ac74767")

(add-hook 'write-file-hooks 'time-stamp)
(add-hook 'dired-load-hook (lambda () (load "dired-x")))

(if (not window-system) nil
  (set-background-color "DarkSlateGrey")
  (set-foreground-color "Wheat")
  (set-cursor-color "gold1"))

(autoload 'todo-mode "todo-mode" "Major mode for editing TODO lists." t)
(autoload 'todo-show "todo-mode" "Show TODO items." t)
(autoload 'todo-insert-item "todo-mode" "Add TODO item." t)
(autoload 'big5togb-region "big5togb" "Big5 to GB2312" t)
(autoload 'python-mode "python-mode" "Python editing mode." t)
(autoload 'css-mode "css-mode" "CSS editing mode" t)

(setq auto-mode-alist 
      (append '(("\\.py\\'" . python-mode)
                ("\\.css\\'" . css-mode))
              auto-mode-alist))

(defun dos-unix () (interactive) (goto-char (point-min))
  (while (search-forward "\r" nil t) (replace-match "")))
(defun unix-dos () (interactive) (goto-char (point-min))
  (while (search-forward "\n" nil t) (replace-match "\r\n")))
(defun kill-buffer-directly () (interactive) (kill-buffer nil))

(require 'compile)
(require 'jka-compr)
(require 'uniquify)
(require 'dired-tar)

(put 'dired-find-alternate-file 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'set-goal-column 'disabled nil)

--=-=-=
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: 8bit



�ҵ� .gnus.el �ļ���

--=-=-=
Content-Type: application/emacs-lisp
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

;; $Id: .gnus.el,v 1.6 2003/06/06 05:48:15 spr Exp $  -*- Emacs-Lisp -*-
;; Chunyu's .gnus.el is created on db.hit.edu.cn.    
;; Chunyu.<dddkk at sina dot com> 

;; NNTP Hosts: 
;;  news.bentium.com, news.zixia.com, freenews.netfront.net, news.ind.mh.se
;;  news.webking.cn, news.newsfan.net, new.cnnb.net

(setq gnus-select-method '(nntp "news.cn99.com"))
(setq gnus-secondary-select-methods '((nnml "private")))
(add-to-list 'gnus-secondary-select-methods '(nntp "localhost"))

(setq gnus-message-archive-group
      '((if (message-news-p) "misc-news"
          (concat "mail." (format-time-string "%Y-%m")))))

(setq gnus-group-name-charset-group-alist
      '((".*" . gb2312)))

(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(add-hook 'mail-citation-hook 'sc-cite-original)
(add-hook 'message-mode-hook
	  (lambda () (setq fill-column 72) (turn-on-auto-fill)))

(setq nnmail-crosspost nil)
(setq nnmail-split-methods
      '(("emacs-devel" "^\\(To:\\|[Cc]c:\\).*emacs-devel@gnu.org.*")
	("zope" "^\\(To:\\|[Cc]c:\\).*zope@zope.org")
	("bbs" "^From:.*\\(@bbs\\|@smth\\)")
	("classmate" "^From:.*\\(moomooo\\|bamboo\\)")
	("classmate" "^Form:.*hit.edu.cn")
	("misc" "^\\([Cc]c\\|To\\):.*\\(cccyy\\|sssrr\\|dddkk\\)")
	("junk" "^From:.*sinamx.sina.com.cn")
	("junk" "")))

(setq gnus-posting-styles
      '((".*" 
	 (signature-file "~/.sig/default")
	 (name "Chunyu")
	 (address "o.oO@Oo.o"))
	("^nntp\\+localhost.*"  
	 (signature-file "~/.sig/localnews")
	 (name "��")
	 (address "my@mail.address"))
	("^cn\\..*\\|^nntp.*\\(webking\\|newsfan\\)"
	 (signature-file "~/.sig/cnnews")
	 (name "���")
	 (address "o.oO@Oo.o"))
	("^nnml\\+private.*\\|mail"
	 (signature-file "~/.sig/mail")
	 (name "��")
	 (address "my@mail.address"))))

(eval-after-load "mm-decode"
  '(progn
     (add-to-list 'mm-discouraged-alternatives "text/html")
     (add-to-list 'mm-discouraged-alternatives "text/richtext")))

--=-=-=
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: 8bit


-- 
 ~~һ�쵽������~~
email: (rot13 "qqqxx@fvan.pbz")

--=-=-=--