emacs Mew的使用

emacs Mew的使用

~/.new.el内容：

(setq mew-config-alist '(
        ("default"
        ("name"         .  "KT")
        ("user"         .  "paragenius")
        ("smtp-server"  .  "smtp.sohu")
        ("smtp-port"    .  "25")
        ("pop-server"   .  "pop3.sohu")
        ("pop-port"     .  "110")
        ("smtp-user"    .  "paragenius")
        ("pop-user"     .  "paragenius")
        ("mail-domain"  .  "sohu")
        ("mailbox-type" .  pop)
        ("pop-auth"     .  pass)
        ("smtp-auth-list" . ("PLAIN" "LOGIN" "CRAM-MD5"))
        )
;;设置Gmail
        ("yahoo"
        ("name"         .  "KT")
        ("user"         .  "paragenius")
        ("smtp-server"  .  "smtp.mail.yahoo")
        ("smtp-port"    .  "25")
        ("pop-server"   .  "pop.mail.yahoo")
        ("pop-port"     .  "110")
        ("smtp-user"    .  "paragenius")
        ("pop-user"     .  "paragenius")
        ("mail-domain"  .  "yahoo")
        ("mailbox-type" .  pop)
        ("pop-auth"     .  pass)
        ("smtp-auth-list" . ("PLAIN" "LOGIN" "CRAM-MD5"))
        )
))
(setq mew-ssl-verify-level 0)

在.emacs中加入：

;;装载Mew
(setq load-path (cons "/usr/local/share/emacs/site-lisp/mew" load-path))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-icon-directory "/usr/local/share/emacs/site-lisp/mew/etc")
(setq mew-use-cached-passwd t)
(if (boundp 'read-mail-command)
    (setq read-mail-command 'mew))
(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))
(setq mew-pop-size 0)
(setq mew-smtp-auth-list nil)
(setq toolbar-mail-reader 'Mew)
(set-default 'mew-decode-quoted 't) 
(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))

;;装载Mew
(setq load-path (cons "/usr/local/share/emacs/site-lisp/mew" load-path))
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-icon-directory "/usr/local/share/emacs/site-lisp/mew/etc")
(setq mew-use-cached-passwd t)
(if (boundp 'read-mail-command)
    (setq read-mail-command 'mew))
(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))
(setq mew-pop-size 0)
(setq mew-smtp-auth-list nil)
(setq toolbar-mail-reader 'Mew)
(set-default 'mew-decode-quoted 't) 
(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))

(require 'mew-w3m) ;需要w3m支持，看html邮件

在emacs中用 mew 命令接收邮件之后，Mew进入 summary-mode ，这时候常用命令如下：

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 多加入昵称和名字

也可以直接使用 mew-send 命令来撰写新邮件，撰写新邮件的时候常用命令如下：

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 C-a 命令之后。还有两个命令很重要：

C    如果设置了多个邮箱，用 C 命令切换
Q    退出Mew