在emacs下使用gnus收发邮件以及看新闻

折腾了一个晚上，终于可以在emacs下发邮件了，我暂时只能配置出163邮箱的，谷歌邮箱暂时只能收看邮件，但是发不出邮件，具体原因还不是很清楚，查看了国内外的一堆文章都搞不定。信心被大大的打击，好在能配置出163的，先凑合使用吧。

首先要先安装gnus，这个很简单

sudo apt-get install gnus

 接着

tou

touch ~/.gnus.erl

 下面就是重头戏了

 

;;(setq gnus-startup-file "~/Gnus/.newsrc")                  ;初始文件
;;(setq gnus-default-directory "~/Gnus/")                    ;默认目录
;;(setq gnus-home-directory "~/Gnus/")                       ;主目录
;;(setq gnus-dribble-directory "~/Gnus/")                    ;恢复目录
;;(setq gnus-directory "~/Gnus/News/")                       ;新闻组的存储目录
;;(setq gnus-article-save-directory "~/Gnus/News/")          ;文章保存目录
;;(setq gnus-kill-files-directory "~/Gnus/News/trash/")      ;文件删除目录
;;(setq gnus-agent-directory "~/Gnus/News/agent/")           ;代理目录
;;(setq gnus-cache-directory "~/Gnus/News/cache/")           ;缓存目录
;;(setq gnus-cache-active-file "~/Gnus/News/cache/active")   ;缓存激活文件
;;(setq message-directory "~//Gnus/Mail/")                    ;邮件的存储目录
;;(setq message-auto-save-directory "~/Mail/drafts")    ;自动保存的目录
;;(setq mail-source-directory "~/Gnus/Mail/incoming")        ;邮件的源目录
;;(setq nnmail-message-id-cache-file "~/Gnus/.nnmail-cache") ;nnmail的消息ID缓存
;;(setq nnml-newsgroups-file "~/Gnus/Mail/newsgroup")        ;邮件新闻组解释文件
;;(setq nntp-marks-directory "~/Gnus/News/marks")            ;nntp组存储目录

(setq gnus-select-method '(nntp "news.newsfan.net"))
(setq gnus-secondary-select-methods '((nnml ""))) 
(setq mail-sources
'((pop :server "pop.163.com"
:user "帐号名"
:port "pop3"
:password "你的邮箱密码")))
(setq gnus-secondary-select-methods '((nnfolder "")))
(setq user-full-name "帐号名")
(setq user-mail-address "帐号名@163.com")
(setq smtpmail-auth-credentials
'(("smtp.163.com"
25
"帐号名"
"你的邮箱密码")))
(setq smtpmail-default-smtp-server "smtp.163.com")
(setq smtpmail-smtp-server "smtp.163.com")
(setq message-send-mail-function 'smtpmail-send-it)
(set-language-environment 'Chinese-GB)
(setq gnus-default-charset 'chinese-iso-8bit
gnus-group-name-charset-group-alist '((".*" . chinese-iso-8bit))
gnus-summary-show-article-charset-alist
'((1 . chinese-iso-8bit)
(2 . gbk)
(3 . big5)
(4 . utf-8))
gnus-newsgroup-ignored-charsets
'(unknown-8bit x-unknown iso-8859-1))
;;(eval-after-load "mm-decode"
;;'(progn
;;(add-to-list 'mm-discouraged-alternatives "text/html")
;;(add-to-list 'mm-discouraged-alternatives "text/richtext")))
(setq gnus-default-subscribed-newsgroups
'("gnu.emacs.help"
"cn.comp.os.linux"
"cn.bbs.comp.network.programming"
"comp.std.c"
"comp.protocols.tcp-ip"
"comp.os.linux.development.system"
"cn.bbs.comp.emacs"))

;; * 键，帖子被拷贝到本地的 cache 中保存起来，再次 Meta-* 取消
(setq gnus-use-cache 'passive)
;; 可以保留同主体中已读邮件，把 'some 改为t可以下载所有文章
(setq gnus-fetch-old-headers 'some)
;; 保留已发邮件
;; 在 group buffer 里键入`G m'，然后输入组名"mail.sent.mail", 接着是输入"nnfolder", 这个组就建好了，然后用同样的方式建立"mail.sent.news"组。
(setq gnus-message-archive-group
'((if (message-news-p)
"nnfolder:mail.sent.news"
"nnfolder:mail.sent.mail")))

 基本都搞定了，只要把上面的帐号名和密码改一下就可以了。感觉还不错，开始享受咯

参考：http://www.emacswiki.org/emacs/init-gnus.el

            http://p2.proxyeasy.info/p.php?u=6d2415dd6cb7387aOi8vamlhbmxlZS55bGludXgub3JnL0NvbXB1dGVyL0VtYWNzL2VtYWNzLWdudXMuaHRtbA%3D%3D&b=3

           http://www.ibm.com/developerworks/cn/linux/l-cn-emacsgnus/index.html