Chinaunix首页 | 论坛 | 博客
  • 博客访问: 62787
  • 博文数量: 16
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 125
  • 用 户 组: 普通用户
  • 注册时间: 2015-04-23 09:29
文章分类

全部博文(16)

文章存档

2016年(10)

2015年(6)

我的朋友

分类: LINUX

2016-04-30 15:05:24

编辑~/.gnus.el文件,加入如下内容

emacs23版本的配置:

点击(此处)折叠或打开

  1. (setq gnus-select-method '(nntp "news.newsfan.net")) ;;新帆新闻组服务器
  2. (setq user-full-name "xxxxx")              ;;昵称
  3. (setq user-mail-address "xxxxx@xxxxx")   ;;;联系方式:邮箱
  4. ;; set email reader
  5. (setq gnus-secondary-select-methods '((nnml "")))
  6. ;; 设置接收邮件的参数
  7. (setq mail-sources
  8. '((pop :server "pop.163.com" ;; 在这里设置 pop3 服务器
  9. :user "xxxxxxxxxxx@163.com" ;; 用户名
  10. :password "xxxxxx"))) ;; 密码
  11. ;; 设置发送邮件的参数
  12. (setq smtpmail-auth-credentials
  13. '(("smtp.163.com" ;; SMTP 服务器
  14. 25 ;; 端口号
  15. "xxxxxxxx@163.com" ;; 用户名
  16. "xxxxxxxx"))) ;; 密码
  17. (setq message-send-mail-function 'smtpmail-send-it)
  18. (setq smtpmail-default-smtp-server "smtp.163.com")
  19. (setq smtpmail-local-domain "xxxxxx@163.com")
  20. (setq smtpmail-sendto-domain "xxxxx@163.com")
  21. ;;自动换行
  22. (add-hook 'message-mode-hook
  23. (lambda ()
  24. (setq fill-column 72);;这里的72是指等一行到了72个字符后开始换行
  25. (turn-on-auto-fill)))
  26. ;;各种发送设置
  27. (setq gnus-posting-styles
  28. '((".*"
  29. (name "xxxxx")
  30. (address "xxxx@163.com")
  31. (User-Agent "Emacs+gnus")
  32. (signature "Emacs+Gnus\n"))
  33. ;;邮件发送方式的发送配置
  34. ((message-mail-p)
  35. (name"xxxx")
  36. (address "xxxxx@163.com")
  37. (User-Agent "Emacs+gnus")
  38. (signature "Emacs+Gnus\n")
  39. )
  40. ;;发送到新帆的帖子的设定
  41. (".*newsfan.*"
  42. (name "xxxx")
  43. (address "xxxxx@163.com")
  44. (organization "lalala")
  45. (User-Agent "Emacs+gnus")
  46. (signature "Emacs+Gnus\n")
  47. )
  48. ))
  49. ;;语言环境设定
  50. (set-language-environment 'Chinese-GB)
  51. (setq gnus-default-charset 'chinese-iso-8bit
  52. gnus-group-name-charset-group-alist '((".*" . cn-gb-2312))
  53. gnus-summary-show-article-charset-alist
  54. '((1 . cn-gb-2312)
  55. (2 . gb18030)
  56. (3 . chinese-iso-8bit)
  57. (4 . gbk)
  58. (5 . big5)
  59. (6 . utf-8))
  60. gnus-newsgroup-ignored-charsets
  61. '(unknown-8bit x-unknown iso-8859-1))
  62. ;;解决gb18030乱码
  63. (setq gnus-newsgroup-ignored-charsets
  64. '(unknown-8bit x-unknown gb18030))
  65. ;;设定要显示的头信息
  66. (setq gnus-visible-headers
  67. "^\\(^From:\\|^Subject:\\|^Date:\\|^Followup-To:
  68. \\|^X-Newsreader:\\|^User-Agent:\\|^X-Mailer:
  69. \\|Line:\\|Lines:\\|Content-Type:\\|NNTP-Posting-Host\\)")
  70. ;;设定屏幕的分割比例
  71. (gnus-add-configuration '(article (vertical 1.0
  72. (summary .40 point) (article 1.0))))
  73. ;;自动显示图片
  74. (auto-image-file-mode)
  75. (setq mm-inline-large-images t)
  76. (add-to-list 'mm-attachment-override-types "image/*")
  77. ;;杂 项
  78. (setq gnus-confirm-mail-reply-to-news t
  79. message-kill-buffer-on-exit t
  80. message-elide-ellipsis "[...]\n"
  81. )


emacs 24版本的配置:

点击(此处)折叠或打开

  1. (setq gnus-select-method '(nntp "news.newsfan.net")) ;;新帆新闻组服务器
  2. (setq user-full-name "xxxxx") ;;昵称
  3. (setq user-mail-address "xxxxx@xxxxx") ;;;联系方式:邮箱
  4. ;; set email reader
  5. (setq gnus-secondary-select-methods '((nnml "")))

  6. ;; 设置接收邮件的参数
  7. (setq mail-sources
          '((pop :server "pop.163.com"
             :user "xxxxx@163.com"
             :password "xxxxxxxx")))

  8. ;; 设置发送邮件的参数
  9. (setq send-mail-function 'smtpmail-send-it ;; Not for gnus
          message-send-mail-function 'smtpmail-send-it ;; For gnus
          smtpmail-stream-type 'starttls
          smtpmail-smtp-server "smtp.163.com"
          smtpmail-smtp-service 25
          smtpmail-auth-credentials "~/.authinfo")
  10. ;;自动换行
  11. (add-hook 'message-mode-hook
  12. (lambda ()
  13. (setq fill-column 72);;这里的72是指等一行到了72个字符后开始换行
  14. (turn-on-auto-fill)))
  15. ;;各种发送设置
  16. (setq gnus-posting-styles
  17. '((".*"
  18. (name "xxxxx")
  19. (address "xxxx@163.com")
  20. (User-Agent "Emacs+gnus")
  21. (signature "Emacs+Gnus\n"))
  22. ;;邮件发送方式的发送配置
  23. ((message-mail-p)
  24. (name"xxxx")
  25. (address "xxxxx@163.com")
  26. (User-Agent "Emacs+gnus")
  27. (signature "Emacs+Gnus\n")
  28. )
  29. ;;发送到新帆的帖子的设定
  30. (".*newsfan.*"
  31. (name "xxxx")
  32. (address "xxxxx@163.com")
  33. (organization "lalala")
  34. (User-Agent "Emacs+gnus")
  35. (signature "Emacs+Gnus\n")
  36. )
  37. ))
  38. ;;语言环境设定
  39. (set-language-environment 'Chinese-GB)
  40. (setq gnus-default-charset 'chinese-iso-8bit
  41. gnus-group-name-charset-group-alist '((".*" . cn-gb-2312))
  42. gnus-summary-show-article-charset-alist
  43. '((1 . cn-gb-2312)
  44. (2 . gb18030)
  45. (3 . chinese-iso-8bit)
  46. (4 . gbk)
  47. (5 . big5)
  48. (6 . utf-8))
  49. gnus-newsgroup-ignored-charsets
  50. '(unknown-8bit x-unknown iso-8859-1))
  51. ;;解决gb18030乱码
  52. (setq gnus-newsgroup-ignored-charsets
  53. '(unknown-8bit x-unknown gb18030))
  54. ;;设定要显示的头信息
  55. (setq gnus-visible-headers
  56. "^\\(^From:\\|^Subject:\\|^Date:\\|^Followup-To:
  57. \\|^X-Newsreader:\\|^User-Agent:\\|^X-Mailer:
  58. \\|Line:\\|Lines:\\|Content-Type:\\|NNTP-Posting-Host\\)")
  59. ;;设定屏幕的分割比例
  60. (gnus-add-configuration '(article (vertical 1.0
  61. (summary .40 point) (article 1.0))))
  62. ;;自动显示图片
  63. (auto-image-file-mode)
  64. (setq mm-inline-large-images t)
  65. (add-to-list 'mm-attachment-override-types "image/*")
  66. ;;杂 项
  67. (setq gnus-confirm-mail-reply-to-news t
  68. message-kill-buffer-on-exit t
  69. message-elide-ellipsis "[...]\n"
  70. )
其中 ~/.authinfo 保存了邮箱密码,格式如下
machine smtp.163.com login xxxxxxx@163.com password "xxxxx"

配置保存后,打开emacs,输入Alt + x gnus回车即可开始使用
后续的使用操作可参考:http://www.ibm.com/developerworks/cn/linux/l-cn-emacsgnus/index.html
阅读(3785) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~