使用 Emacs 阅读邮件与 RSS

Emacs 中使用 Auth Source 来管理密码，它相当于一个接口层，可以对接多个存储后端，netrc 是最常见的后端，除此之外，还支持 JSON、Secret Service API、pass。很多命令，比如 wget、curl、git 等都支持从 netrc 读取密码，因为这里只介绍其用法：

machine mymachine login myloginname password mypassword port myport

上面描述了 netrc 文件的通用格式，下面是我邮箱的相关配置：

# cat ~/.authinfo
machine imap.exmail.qq.com login hello@example.com password 123456 port 993
machine smtp.exmail.qq.com login hello@example.com password 123456 port 465

993 是 imap 端口，接受邮件用；465 是 smtp 端口，发送邮件用。为了安全，还可以对 netrc 使用 GPG 加密，Emacs 会自动解密读取。

(setq auth-sources '("~/.authinfo.gpg" "~/.authinfo" "~/.netrc"))

Emacs 默认从上面几个地方找文件，读者可按需修改。

我上面对配置中使用了 get_password_emacs 这个函数来获取密码，其实现如下：

1
2
3
4
5
6

def get_password_emacs(machine, login, port):
    s = "machine %s login %s password ([^ ]*) port %s\n" % (
        machine, login, port)
    p = re.compile(s)
    authinfo = os.popen("gpg -q --no-tty -d ~/.config/authinfo.gpg").read()
    return p.search(authinfo).group(1)

配置好密码后，就可以进行邮件同步了。但是在同步前，可以通过 offlineimap --info 命令查看邮件服务器中的内容，确认下需要同步哪些目录

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

$ offlineimap --info
OfflineIMAP 7.3.3
  Licensed under the GNU GPL v2 or any later version (with an OpenSSL exception)
imaplib2 v2.101 (bundled), Python v2.7.17, OpenSSL 1.1.1i  8 Dec 2020
  imaplib2: 2.101 (bundled)
Remote repository 'RemoteLJC': type 'IMAP'
Host: imap.exmail.qq.com Port: None SSL: True
Establishing connection to imap.exmail.qq.com:993 (RemoteLJC)
Server supports ID extension.
Server welcome string: * OK [CAPABILITY IMAP4 IMAP4rev1 ID AUTH=PLAIN AUTH=LOGIN NAMESPACE] QQMail IMAP4Server ready
Server capabilities: ('IMAP4', 'IMAP4REV1', 'XLIST', 'MOVE', 'IDLE', 'XAPPLEPUSHSERVICE', 'NAMESPACE', 'CHILDREN', 'ID', 'UIDPLUS')

folderfilter= lambda f: 'kK5O9l9SaGM' not in f and '&UXZO1mWHTvZZOQ-' != f

nametrans= lambda folder: re.sub('^&UXZO1mWHTvZZOQ-\/', '=', folder)

Folderlist:
 &UXZO1mWHTvZZOQ- (disabled)
 &UXZO1mWHTvZZOQ-/clojure -> =clojure
 &UXZO1mWHTvZZOQ-/GitHub -> =GitHub
 &UXZO1mWHTvZZOQ-/golang -> =golang
 Deleted Messages
 Drafts
 INBOX
 Junk
 Sent Messages

在 Folderlist 下面就是邮件服务器中的目录， &UXZO1mWHTvZZOQ- 开头的目录为自定义目录，为了保证同步下来的目录中没有这一串字母，我使用 nametrans 配置把它转化为了 = 符号。

由于 IMAP 的同步是双向的，本地的状态也需要返回给远端，因此在 LocalLJC 中又使用 nametrans 把 = 转成了那串字母，这样两边就能正确同步邮件状态了，下面是本地的状态：

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12

Local repository 'LocalLJC': type 'Maildir'
nametrans= lambda folder: re.sub('^=', '&UXZO1mWHTvZZOQ-/', folder)

Folderlist:
 INBOX
 Drafts
 Junk
 =GitHub -> &UXZO1mWHTvZZOQ-/GitHub
 Deleted Messages
 =golang -> &UXZO1mWHTvZZOQ-/golang
 =clojure -> &UXZO1mWHTvZZOQ-/clojure
 Sent Messages

最后，直接运行 offlineimap 就可以同步邮件了。

邮件同步到本地后，在使用前需要使用 mu 建索引，参考命令：

1
2
3
4
5

export XAPIAN_CJK_NGRAM=true
# 只需要执行一次 init，可以指定多个邮件地址
mu init --my-address your-mail@qq.com --my-address your-mail@gmail.com -m ~/.mail
# index 在每次收取邮件后都需要执行，mu4e 可以配置自动执行
mu index

XAPIAN_CJK_NGRAM 环境变量主要是开启对 CJK 的分词，方便用中文搜索邮件。不过 mu 使用的 Xapian 对中文支持比较弱，只能搜索两个字的词，比如搜「雷峰塔」就不行，可参考这里的解决方案。

快捷键

配置好后，直接运行 M-x mu4e 就能打开主视图 mu4e-main-view ，通过快捷键来在不同视图下切换（图片来源）：

下面是我在不同视图下，常用的一些快捷键：

main

• j 跳转目录

• b 跳转书签

• U 收取邮件与重建索引

view

• g 访问当前邮件中的 URL

• a Action 选项

• h html/text 格式切换

• . 查看邮件源文件

• A 附件选项

• C 写新邮件

• R 回复邮件

compose

• C-c C-c 发送

• C-c C-k 废弃

• C-c C-d 存草稿

• C-c C-a 添加附件

在网页中点击含有 mailto:test@example.com 的链接时，会调用操作系统默认邮件客户端来处理，这里介绍一种方式来把 mu4e 设置为 macOS 上的默认客户端。

1. 首先把 mu4e 设置为 Emacs 中的默认客户端

   1	(setq mail-user-agent 'mu4e-user-agent)

2. 创建一个 Applescript 应用来将邮件地址发送到 Emacs 中。

   1 2 3 4 5

   on open location myurl set text item delimiters to {":"} display notification text item 2 of myurl with title "Emacs Compose" do shell script "/usr/local/bin/emacsclient --eval '(browse-url-mail \"" & myurl & "\")'" end open location

   打开 Script Editor，输入上述代码，保存为「应用」。

   

3. 打开 Mail.app 应用，进入设置，将上面创建的应用设置为默认邮件阅读器

   

完成上面三步操作配置就好了，之后点击含有 mailto 的链接时，会自动在当前 active 的 buffer 中打开 mu4e-compose 界面，同时右上角会跳出提示框。

elfeed 的数据库存放在本地，可以使用一些云盘来进行数据。此外，我实现了两个函数，来对指定的 tag 进行导出/导入，这样相当于只备份元数据。

导出时主要有两个 tag，一个是 +starred ，表示加星的文章；另一个是 -unread ，表示已读的。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

(defun my/elfeed-export (output)
  (interactive "fOutput: ")
  (let* ((sf (elfeed-search-parse-filter "+starred"))
	     (uf (elfeed-search-parse-filter "-unread"))
	     (starred-entries '())
	     (read-entries '())
	     (hash-table (make-hash-table)))
    (with-elfeed-db-visit (entry feed)
	  (when (elfeed-search-filter sf entry feed)
	    (add-to-list 'starred-entries (elfeed-entry-link entry)))
	  (when (elfeed-search-filter uf entry feed)
	    (add-to-list 'read-entries (elfeed-entry-link entry))))

    (puthash :starred starred-entries hash-table)
    (puthash :read read-entries hash-table)
    (f-write-text (prin1-to-string hash-table) 'utf-8 output)

    (message "Export to %s. starred: %d, read: %d" output (length starred-entries) (length read-entries))))

(defun my/elfeed-import (f)
  (interactive "fInput: ")
  (let* ((hash-table (read (f-read-text f)))
         (starred-entries (gethash :starred hash-table))
         (read-entries (gethash :read hash-table)))
    (with-elfeed-db-visit (entry feed)
      (let* ((link (elfeed-entry-link entry)))
        (when (member link starred-entries)
          (elfeed-tag entry (intern "starred")))
        (when (member link read-entries)
          (elfeed-untag entry (intern "unread")))))

    (message "Import starred: %d, read: %d" (length starred-entries) (length read-entries))))