放弃两种邮件客户端

Emacs下的邮件管理有好几个, 折腾来折腾去没有好用的, 遂放弃.

rmail

rmail不支持共享邮件池, 每次从云获得邮件后, 移动到Rmail文件里, 这事什么操作, 遂弃之.

gnus

这货是读新闻组的, 管理邮件只是一个辅助功能, 在天朝, 这玩意儿几乎没人用, 遂弃之.

(use-package gnus
  :defer t
  :commands gnus
  :init
  (defconst gnus-init-file
    (expand-file-name "" user-emacs-directory))
  (defconst mail-default-directory "")
  (defconst mail-source-directory
    (expand-file-name "Inbox"   mail-default-directory))
  (defconst message-auto-save-directory
    (expand-file-name "Scratch" mail-default-directory))
  (defconst message-directory   mail-default-directory)

  (defconst gnus-directory
    (expand-file-name "Sundries/" mail-default-directory))
  (defconst gnus-startup-file gnus-directory)

  (defconst gnus-cache-directory
    (expand-file-name "cache" gnus-directory))
  (defconst gnus-kill-files-directory gnus-cache-directory)

  (defconst gnus-article-save-directory "")

  (defconst gnus-home-directory gnus-directory)

  (defconst gnus-save-newsrc-file nil)
  (defconst gnus-read-newsrc-file nil)
  (defconst gnus-default-directory nil)
  (defconst gnus-dribble-directory nil)

  :config
  (setq rmail-secondary-file-directory nil
        rmail-spool-directory nil
        rmail-file-name nil)
  (defconst rmail-default-file nil)
  (defconst gnus-check-new-newsgroups nil)
  (setq gnus-select-method '(nnnil ""))
  (setq gnus-secondary-select-methods '(
                                        ;; (nntp "news.newsfan.net")
                                        ))
  (add-to-list 'gnus-secondary-select-methods
               '((nnmaildir ""
                            (directory "")
                            (directory-files nnheader-directory-files-safe)
                            (get-new-mail nil))
                 ))
 (set-language-environment 'Chinese-GB)
  (setq gnus-default-charset 'chinese-iso-8bit)
  (defconst gnus-group-name-charset-group-alist
    '((".*" . chinese-iso-8bit)))
  (defconst gnus-summary-show-article-charset-alist
    '((1 . cn-gb-2312)
      (2 . gb18030)
      (3 . chinese-iso-8bit)
      (4 . gbk)
      (5 . big5)
      (6 . utf-8)))
  (defconst gnus-newsgroup-ignored-charsets
    '(unknown-8bit x-unknown iso-8859-1))
  (eval-after-load "mm-decode"
    '(progn
       (add-to-list 'mm-discouraged-alternatives "text/html")
       (add-to-list 'mm-discouraged-alternatives "text/richtext")))

  (auto-image-file-mode)
  (defconst mm-inline-large-images t)
  (defconst 'mm-attachment-override-types "image/*")
  (setq gnus-fetch-old-headers t)
(setq gnus-thread-sort-functions
      '(gnus-thread-sort-by-number
        gnus-thread-sort-by-most-recent-date))

使用另外两种客户端

mutt

命令行的邮件大师, 已经配置好.

mu4e

传说中对emacs的支持很好, 后续找时间配置一下.

← Previous Post

Next Post →