前段时间安装了emacs23-cvs版本，结果按照以前的配置做gnus时怎么也运行不起来，后来把23版本里面的/lisp/gnus/pop3.el替换成21版本的，把/lisp/mail/smtpmail.el替换成21版的，就既能正常接收126,也能正常发送126邮件了，只是gmail还不能正常发送。
我的.gnus.el的配置：
(setq user-full-name "username")
(setq user-mail-address "user@126.com")
;; tell Gnus how to fetch mail from gmail
;; use 'one file per mail' back end
;(setq gnus-select-method '(nnml "" ;(nnml-directory ;"/root/Mail/mail/misc/")
;))
;(setq imap-leave-mail-on-server t);这个似乎不起作用
;(setq mail-sources '((imap :server "imap.gmail.com"
; :port 993
; :user "user@gmail.com"
; :stream ssl)))
;; html 的邮件不看！
(eval-after-load "mm-decode"
'(progn
(setq mm-discouraged-alternatives '("text/html")
mm-automatic-display (remove "text/html" mm-automatic-display))))
(defalias 'mail-header-encode-parameter 'rfc2047-encode-parameter);为了保证gnus能正常收发附件
;;tell gnus how to fetch mail from 126.com
(setq pop3-leave-mail-on-server t);;告诉pop3取邮件的时候在服务器保留备份
;(setq gnus-secondary-select-methods '((nnfolder "")));emacs23下面该模式不能正常工作
(setq gnus-secondary-select-methods '((nnml "")));要能在gnus启动接收邮件后能正常看到接收的邮件，在group下面输入Gm,然后输入mail.misc,回车，然后输入nnml,然后回车就好了
(setq mail-sources
'((pop :server "pop.126.com" ;; 在这里设置 pop3 服务器
:user "user" ;; 用户名
:port "pop3"
)))
;smtp
(setq smtpmail-starttls-credentials '(("smtp.126.com" 25 nil nil))
smtpmail-smtp-server "smtp.126.com"
smtpmail-default-smtp-server "smtp.126.com"
send-mail-function 'smtpmail-send-it
message-send-mail-function 'smtpmail-send-it
smtpmail-smtp-service 25
smtpmail-auth-credentials '(("smtp.126.com"
25
"user@126.com"
nil)))
;(setq message-send-mail-function 'smtpmail-send-it)
;(setq smtpmail-smtp-server "smtp.gmail.com")
;(setq smtpmail-smtp-service 25)
;(setq smtpmail-auth-credentials
; '(("smtp.gmail.com" 25 "user" nil)))
;(setq smtpmail-starttls-credentials
; '(("smtp.gmail.com" 25 nil nil)))
(setq smtpmail-debug-info "on")
;(load-library "smtpmail")
;(load-library "starttls")
;smtp设置
;(setq smtpmail-local-domain nil)
;(setq smtpmail-auth-credentials '(("smtp.gmail.com" 25
;"user@gmail.com"
;"secret"
;)))
;(setq smtpmail-auth-credentials '(("smtp.gmail.com" 465
;"user@gmail.com"
;"secret"
;)))
;(setq smtpmail-starttls-credentials '(("smtp.gmail.com" 25 nil nil)))
;(setq smtpmail-starttls-credentials '(("smtp.gmail.com" 465 nil nil)))
;(setq smtpmail-default-smtp-server "smtp.gmail.com")
;(setq smtpmail-smtp-server "smtp.gmail.com")
;(setq smtpmail-smtp-service "25")
;(setq smtpmail-smtp-service "465")
;; using GNUS to send mail
;(setq message-send-mail-function 'smtpmail-send-it)
;(setq send-mail-function 'smtpmail-send-it)