emacs的gnus配置

前段时间安装了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 "[email protected]")

;; 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 "[email protected]"
;                           :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
                   "[email protected]"
                   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
;"[email protected]"
;"secret"
;)))
;(setq smtpmail-auth-credentials '(("smtp.gmail.com" 465
;"[email protected]"
;"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)
添加新评论