Good Dot Gnus Dot El

(setq gnus-select-method '(nntp "news.yaako.com"))
(setq mm-text-html-renderer 'w3m)
(setq mm-discouraged-alternatives '("text/html" "text/richtext"))
;; or news.yaako.com
(setq gnus-default-subscribed-newsgroups
'("gnu.emacs.help"
"comp.lang.c++"
"comp.lang.c"
"comp.lang.lisp"
"comp.lang.java.programmer"
"cn.comp.os.linux"
"comp.lang.ruby"
"sci.math"
"comp.text.tex"
"alt.usage.english"
"gnu.emacs.gnus"
"comp.emacs"
"gnu.emacs.sources"
))

(setq mail-sources
'((pop :server "pop.21cn.com" ;;
:user "dealover" ;;
:port "pop3"
:password nil))) ;;
(setq gnus-secondary-select-methods '((nnfolder "")))
(setq user-full-name "QinGW") ;;
(setq user-mail-address "dealover@21cn.com") ;;
(setq smtpmail-auth-credentials
'(("smtp.21cn.com" ;;
25
"dealover" ;;
nil))) ;;
(setq smtpmail-default-smtp-server "smtp.21cn.com")
(setq smtpmail-smtp-server "smtp.21cn.com")
(setq message-send-mail-function 'smtpmail-send-it)
(setq gnus-message-archive-group
'((if (message-news-p)
"nnfolder:mail:sent.news"
"nnfolder:mail.sent.mail")))
(setq gnus-use-cache 'passive)
(setq nnmail-expiry-wait 3)
(require 'bbdb)
(bbdb-initialize 'gnus 'message)
(setq bbdb-user-mail-names
(regexp-opt '("dealover@21cn.com"
"QinGW@sina.com")))
(setq bbdb-complete-name-allow-cycling t)
(setq bbdb-use-pop-up nil)