用Emacs收发邮件

1、安装必要LISP插件和程序

$sudo apt-get install stunnel4

$sudo apt-get install mew //邮件处理程序

$sudo apt-get install w3m w3m-el //用于阅读HTML邮件

2、编辑emacs配置文件

;; mew收发邮件配置
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-use-cached-passwd t)
(setq mew-pop-delete nil)

;; Optional setup (Read Mail menu for Emacs 21):
(if (boundp 'read-mail-command)
(setq read-mail-command 'mew))

;; Optional setup (e.g. C-xm for sending a message):
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
(setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
(define-mail-user-agent
'mew-user-agent
'mew-user-agent-compose
'mew-draft-send-message
'mew-draft-kill
'mew-send-hook))
(when (boundp 'utf-translate-cjk)
(setq utf-translate-cjk t)
(custom-set-variables
'(utf-translate-cjk t)))
(if (fboundp 'utf-translate-cjk-mode)
(utf-translate-cjk-mode 1))

;;用w3m来读html格式邮件
(setq mew-mime-multipart-alternative-list '("Text/Html" "Text/Plain" "*."))
(condition-case nil
(require 'mew-w3m)
(file-error nil))
(setq mew-use-text/html t)

;;mail account config
(setq mew-config-alist
'(
("default"
(pop-server            "pop.126.com")
(name                  "126")
(user                  "chenbin512")
(mail-domain           "126.com")
(pop-auth              pass)
(pop-user              "[e-mail]")
(smtp-user             "[e-mail]")
(smtp-server           "smtp.126.com")
)

("gmail"
(pop-server            "127.0.0.1")
(pop-port              9959)
(name                  "gmail")
(user                  "chenbin512")
(mail-domain           "gmail.com")
(pop-auth              pass)
(pop-user              "[e-mail]")
(smtp-user             "[e-mail]")
(smtp-server           "127.0.0.1")
(smtp-port             4659)
)

("163"
(pop-server            "pop.163.com")
(name                  "163")
(user                  "pandachen512")
(mail-domain           "163.com")
(pop-auth              pass)
(pop-user              "[e-mail]")
(smtp-user             "[e-mail]")
(smtp-server           "smtp.163.com")
)
)
)

;;设置邮件签名档
(setq mew-signature-file "~/Mail/signature")
(setq mew-signature-as-lastpart t)
(setq mew-signature-insert-last t)
(add-hook 'mew-before-cite-hook 'mew-header-goto-body)
(add-hook 'mew-draft-mode-newdraft-hook 'mew-draft-insert-signature)

;;设置邮件分类
(setq mew-refile-guess-alist
'(("To:"
("@126.com"                       . "+Mail/126")
("@gmail.com"                      . "+Mail/gmail")
("@163.com"                      . "+Mail/163"))
("Cc:"
("@126.com"                       . "+Mail/126")
("@gmail.com"                      . "+Mail/gmail")
("@163.com"                      . "+Mail/163"))
(nil . "+inbox")))

(setq mew-refile-guess-control
'(mew-refile-guess-by-alist))

;;设置邮件显示栏目
(setq mew-summary-form
'(type (10 date) "      " (40 from) "    " t (0 subj)))
(setq mew-summary-form-extract-rule '(name))

3、配置stunnel4

对于采用SSL/TLS连接的邮件服务器，需要配置stunnel来提供加密连接，例如：gmail

$sudo vim /etc/stunnel/stunnel.conf

; Protocol version (all, SSLv2, SSLv3, TLSv1)
sslVersion = SSLv3

; Some security enhancements for UNIX systems - comment them out on Win32
chroot = /var/lib/stunnel4/
setuid = stunnel4
setgid = stunnel4
; PID is created inside the chroot jail
pid = /stunnel4.pid

; Some performance tunings
socket = l:TCP_NODELAY=1
socket = r:TCP_NODELAY=1
;compression = rle


; Some debugging stuff useful for troubleshooting
debug = 7
output = /var/log/stunnel4/stunnel.log

; Use it for client mode
client = yes

; Service-level configuration

[pop3s]
accept = 995
connect = 110

[imaps]
accept = 993
connect = 143

[ssmtp]
accept = 465
connect = 25

;;
;; gmail seting
;;
[gmail-pops]
accept = 9959
connect = imap.gmail.com:995

[gmail-imaps]
accept = 9939
connect = imap.gmail.com:993

[gmail-ssmtp]
accept = 4659
connect = imap.gmail.com:465

注：以上配置在ubuntu 12.04上测试通过

4、mew中常用命令和热键

w                                撰写新邮件
a                                 回复邮件，不带引用
A                                 回复邮件，带引用
f                                   转发邮件
r                                   重新发送邮件
SPC                            阅读邮件
y                                  保存文件（可以保存信件全文、信件正文、附件）
C-c C-l                       转换当前邮件的编码格式
C-c C-a                      加入地址薄
C-u C-c C-a              比 C-c C-a 多加入昵称和名字
C-c C-q                      不保存退出
C-c C-a                      准备插入附件
mew-attach-copy     用复制方式加入附件
mew-attach-link       用链接方式加入附件
mew-attach-delete  删除附件
C-c C-c                      发送邮件
C-c RET                     保存邮件到发送队列
C                                 如果设置了多个邮箱，用 C 命令切换
Q                                 退出Mew