1、.emacs
;必须配置
(set-language-environment 'Chinese-GB)
(set-keyboard-coding-system 'euc-cn)
(set-clipboard-coding-system 'euc-cn)
(set-clipboard-coding-system 'cn-gb-2312)
(set-terminal-coding-system 'euc-cn)
(set-buffer-file-coding-system 'euc-cn)
(set-selection-coding-system 'euc-cn)
;(set-selection-coding-system 'chinese-iso-8bit-with-esc)
(set-selection-coding-system 'cn-gb-2312)
(set-default-coding-systems 'euc-cn)
(setq locale-coding-system 'euc-cn)
(modify-coding-system-alist 'process "*" 'euc-cn)
(setq default-process-coding-system
'(euc-cn . euc-cn))
(setq-default pathname-coding-system 'euc-cn)
;copy的配置
;;时间显示设置
;;启用时间显示设置，在minibuffer上面的那个杠上（忘了叫什么来着）
(display-time-mode 1)
;;时间使用12小时制
(setq display-time-12hr-format t)
;;时间显示包括日期和具体时间
(setq display-time-day-and-date t)
;;时间栏旁边启用邮件设置
(setq display-time-use-mail-icon t)
;;时间的变化频率，单位多少来着？
(setq display-time-interval 10)
;;显示当前的行号和列号
(column-number-mode t)
;;用y or n代替yes or no
(fset 'yes-or-no-p 'y-or-n-p)
;;不显示工具条
(tool-bar-mode -1)
(menu-bar-mode -1)
;;击键100次自动保存
(setq auto-save-interval 100)
;;语法高亮
(global-font-lock-mode t)
;;像Windows下编辑器那样, 高亮显示要拷贝的区域
(transient-mark-mode t)
;;允许emacs和外部其他程序的粘贴
(setq x-select-enable-clipboard t)
;;显示匹配的括号
(show-paren-mode t)
(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.
'(canlock-password "2202446f0ff6095e91af7845f91d97f082886111"))
(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
)
;; w3m
(setq w3m-command-arguments '("-cookie" "-F"))
(setq w3m-use-cookies t)
(setq w3m-home-page "")
(require 'w3m)
;(require 'mime-w3m)
;(setq w3m-default-display-inline-image t)
;(setq w3m-default-toggle-inline-images t)
;(setq w3m-arrived-file-coding-system 'euc-cn)
;(setq w3m-bookmark-file-coding-system 'euc-cn)
;(setq w3m-default-url-coding-system 'euc-cn)
;(setq w3m-output-coding-system 'euc-cn)
;(setq w3m-coding-system 'euc-cn)
;(setq w3m-input-coding-system 'euc-cn)
;(setq w3m-find-coding-system 'euc-cn)
;(setq w3m-default-coding-system 'euc-cn)
;(setq w3m-coding-system-priority-list '(euc-cn))
;(setq w3m-file-name-coding-system 'euc-cn)
;(setq w3m-bookmark-file-coding-system 'euc-cn)
;我不设以上编码没有出现乱码
;;设置浏览器显示HTML邮件(w3,w3m,links,lynx,html2text)
(setq mm-text-html-renderer 'w3m)
2、.gnus.el
;;Gnus 是个古老的,强大的邮件,新闻阅读lisp程序.
;;设置头像文件可惜我一直没搞定
;(setq message-required-news-headers
; (nconc message-required-news-headers
; (list '(X-Face . gnus-random-x-face))))
;;用户资料设定
(setq user-full-name "Cvip")
(setq user-mail-address "ccyynn@163.com")
;;服务器的设定
(setq gnus-select-method '(nntp "news.yaako.com"))
(add-to-list 'gnus-secondary-select-methods '(nntp "news.newsfan.net"))
;(add-to-list 'gnus-secondary-select-methods '(nntp "news.happynet.org"))
;(add-to-list 'gnus-secondary-select-methods '(nnfolder ""))
;(add-to-list 'gnus-secondary-select-methods '(nntp "news.php.net"))
;(add-to-list 'gnus-secondary-select-methods '(nntp "news.newsgroup.com.hk"))
;(add-to-list 'gnus-secondary-select-methods '(nntp "news.CN99.com"))
;(add-to-list 'gnus-secondary-select-methods '(nntp "groups.google.com"))
;;开启代理功能，为了能让gnus支持离线浏览，gnus 5.10.x会自动开启该功能。
(gnus-agentize)
;在服务器上保存邮件
(setq pop3-leave-mail-on-server t)
;;自动换行功能。
(add-hook 'message-mode-hook
(lambda ()
(setq fill-column 72);;这里的72是等一行到了72个字符后开始换行
(turn-on-auto-fill)))
(setq message-cite-function 'message-cite-original-without-signature)
;; 设定帖子的字符集
;(setq gnus-summary-show-article-charset-alist '((1 . cn-gb-2312) (2 . big5)))
(setq gnus-default-charset 'cn-gb-2312) ;; 默认编码
(setq gnus-group-name-charset-group-alist '((".*" . cn-gb-2312))) ;; 组名编码
(setq gnus-summary-show-article-charset-alist '((1 . cn-gb-2312) (2 . big5))) ;; 刷新编码
(setq gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown iso-8859-1)) ;; 忽略编码
;; 改变阅读新闻时窗口的布局，窗口划分为上2下8（比例）
(gnus-add-configuration '(article
(vertical 1.0
(summary .2 point)
(article 1.0))))
;;开启记分
(setq gnus-use-adaptive-scoring t)
(setq gnus-save-score t)
(add-hook 'mail-citation-hook 'sc-cite-original)
(add-hook 'message-sent-hook 'gnus-score-followup-article)
(add-hook 'message-sent-hook 'gnus-score-followup-thread)
(defvar gnus-default-adaptive-score-alist
'((gnus-kill-file-mark (from -10))
(gnus-unread-mark)
(gnus-read-mark (from 10) (subjnnect 30))
(gnus-catchup-mark (subject -10))
(gnus-killed-mark (from -1) (subject -30))
(gnus-del-mark (from -2) (subject -15))
(gnus-ticked-mark (from 10))
(gnus-dormant-mark (from 5))))
(setq gnus-score-find-score-files-function
'(gnus-score-find-hierarchical gnus-score-find-bnews bbdb/gnus-score)
gnus-use-adaptive-scoring t)
;;;
(setq gnus-confirm-mail-reply-to-news t
message-kill-buffer-on-exit t
message-elide-ellipsis "[...]\n"
)
;;排序
(setq gnus-thread-sort-functions
'(
(not gnus-thread-sort-by-date)
(not gnus-thread-sort-by-number)
))
;; 新闻组分组
;; 有时订阅了很多新闻组，堆在一起不好管理。这个功能可以创建目录来分层管理
;; 这些新闻组。
;; group topic
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
;; 现在可以在group buffer里面M-x gnus-topic-create-topic来创建一个"topic"，
;; 然后将某个新闻组或者其他topic给C-k掉，再移动到你创建的topic下C-y，就可以
;; 将它们收到这个topic下。
;; topic的好处除了分层之外，还有就是可以将不常看的topic折叠起来，不要显示。
;; 就像下面这样。
;;
;; [ Gnus -- 0 ]
;; [ MAIL -- 3 ]...
;; [ NEWS -- 0 ]
;; [ emacs -- 0 ]
;; *: nntp+binghe.6600.org: gnu.emacs.help
;; *: nntp+binghe.6600.org:gnu.emacs.gnus
;; [ 人文与社会 -- 0 ]
;; [ 语言 -- 0 ]
;; *: nntp+news.newsfan.net:教育就业.外语.日语
;; *: nntp+news.newsfan.net: 教育就业.外语.英语
;; [ misc -- 0 ]...
;;
;; 参考 gnus info -> Group Buffer -> Group Topics
;;中文设置
(setq gnus-summary-show-article-charset-alist
'((1 . cn-gb-2312) (2 . big5) (3 . gbk) (4 . utf-8)))
(setq
gnus-default-charset 'cn-gb-2312
gnus-group-name-charset-group-alist '((".*" . cn-gb-2312))
gnus-newsgroup-ignored-charsets
'(unknown-8bit x-unknown iso-8859-1 ISO-8859-15 x-gbk GB18030 gbk DEFAULT_CHARSET))
;解决gnus中gb18030乱码的问题
(setq gnus-newsgroup-ignored-charsets
'(unknown-8bit x-unknown gb18030 gbk x-gbk))
;另外，有些用web方式发出的邮件里有html，加入下面的设置，只看其中的
;plain text部分：
(eval-after-load "mm-decode"
'(progn
(add-to-list 'mm-discouraged-alternatives "text/html")
(add-to-list 'mm-discouraged-alternatives "text/richtext")))
;;设置头像文件
(setq gnus-posting-styles
'((".*"
(name "Cvip")
(face "")
;;这个我都是抄老外的，自己找去,在Gnus里看到好的头像，然后到
;;groups.google里把他的字符串贴过来 -_-!
(address "ccyynn@163.com")
(organization "")
; (signature "
; My name is K T")
)
))
;邮件设置
;set pop3
(setq mail-sources
'((pop :server "pop.163.com" ;; 在这里设置 pop3 服务器
:user "ccyynn" ;; 用户名
:port "pop3"
:password "*******"))) ;; 密码
;set smtp
(setq user-full-name "Cvip") ;; 外发的邮件采用这个名字
(setq user-mail-address "ccyynn@163.com") ;;外发的邮件采用这个地址[+如果smtp为163,地址必须为xxx@163.com,而且 mail/smtpmail.el 必须足够新！+]
(setq smtpmail-auth-credentials
'(("smtp.163.com" ;; SMTP 服务器
25
"ccyynn" ;; 用户名
"*******"))) ;; 密码
(setq smtpmail-default-smtp-server "smtp.163.com")
(setq smtpmail-smtp-server "smtp.163.com")
(setq message-send-mail-function 'smtpmail-send-it)
;自动显示图片
(auto-image-file-mode)
(setq mm-inline-large-images t)
(add-to-list 'mm-attachment-override-types "image/*")
阅读(2835) | 评论(0) | 转发(0) |
