eh-gnus-personal-example.el

   1 ;; ** 添加账户信息
   2 ;; Account file: "~/.authinfo.gpg" template
   3
   4 ;; #### pop or imap ####
   5 ;; machine imap.163.com login xxx@163.com port 993 password PASSWORD
   6 ;; machine pop.163.com  login xxx@163.com port 995 password PASSWORD
   7 ;; machine imap.qq.com  login xxx@qq.com  port 993 password PASSWORD
   8 ;; machine pop.qq.com   login xxx@qq.com  port 995 password PASSWORD
   9
  10 ;; #### smtp ####
  11 ;; machine smtp.163.com login xxxr@163.com port 465 password PASSWORD
  12 ;; machine smtp.qq.com  login xxx@qq.com   port 465 password PASSWORD
  13
  14 ;; #### erc ####
  15 ;; machine irc.freenode.net login xxx port 6667 secret PASSWORD
  16
  17 ;; ** Gnus 邮件基本设置.
  18 (setq gnus-select-method
  19       '(nnml ""))
  20
  21 (setq gnus-secondary-select-methods
  22       '((nntp "news.gmane.io")
  23         (nntp "news.newsfan.net")
  24         (nnimap "imap.qq.com"
  25                 (nnimap-inbox "INBOX")
  26                 (nnimap-split-methods default)
  27                 ;; (nnimap-expunge t)
  28                 (nnimap-stream ssl)
  29                 (nnimap-record-commands t)
  30                 (nnimap-fetch-partial-articles t)
  31                 (nnimap-split-methods nil)
  32                 (nnimap-split-fancy nil))
  33         (nnimap "imap.163.com"
  34                 (nnimap-inbox "INBOX")
  35                 (nnimap-split-methods default)
  36                 (nnimap-expunge t)
  37                 (nnimap-stream ssl)
  38                 ;; (nnimap-record-commands t)
  39                 (nnimap-fetch-partial-articles t)
  40                 (nnimap-split-methods nil)
  41                 (nnimap-split-fancy nil))))
  42
  43 (setq mail-sources
  44       '((pop :server "pop.163.com"
  45              :user "myname@163.com"
  46              :port 995
  47              :stream ssl
  48              ;; 下载邮件之后，从服务器上删除。
  49              ;; :leave nil
  50              :postscript "notmuch new")
  51         (imap :server "imap.qq.com"
  52               :user "myname@qq.com"
  53               :port 993
  54               :stream ssl
  55               :fetchflag "\\Seen")))
  56
  57 ;; ** 设置 gnus-posting-styles
  58
  59 ;; 1. 邮件发送时字符编码设置.
  60 ;; 2. 发送邮件使用的方法.
  61 (setq gnus-posting-styles
  62       '((".*"
  63          (signature "")
  64          (eval (setq mm-coding-system-priorities
  65                      '(iso-8859-1 utf-8 gb2312 gbk utf-8 gb18030))))
  66         (message-mail-p
  67          (name    "My Name")
  68          (address "myname@163.com")
  69          (eval (setq smtpmail-stream-type 'ssl)
  70                (setq mm-coding-system-priorities
  71                      '(iso-8859-1 utf-8 gb2312 gbk utf-8 gb18030))))
  72         (".*newsfan.*"
  73          (eval (setq mm-coding-system-priorities
  74                      '(iso-8859-1 gb2312 gbk gb18030 utf-8))))
  75         (".*cn99.*"
  76          (eval (setq mm-coding-system-priorities
  77                      '(iso-8859-1 gb2312 gbk gb18030 utf-8))))))
  78
  79
  80 ;; Local Variables:
  81 ;; coding: utf-8-unix
  82 ;; End: