Wanderlust メモ

Mew を5年程使ってたけど、なんとなく Wanderlust にしてみたくなったのでそのメモ。 特に、POP3で、Mewからの移行とかを考えてメモする。

Gentoo Linux 1.4 で、メールを取得する。アサヒネットは POP before SMTP と APOP を組み合わせて利用する。ちなみに、Debian GNU/Linuxの woody でもやってみた。うまくいった。

それぞれのディストリビューションにあわせたインストールでどうぞ。ソースからインストールしたい方はソースからどうぞ。りょうすけはパッケージに任せましたが。

$ emarge app-emacs/wanderlust   ... Gentoo Linux の場合
$ apt-get install wl            ... Debian GNU/Linux の場合

まず、emacs でコマンド M-x wl で Wanderlust が起動できるようにする。~/.emacs に以下を記述。

(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)

設定ファイルは基本的に3つ。

~/.wl        ... Wanderlust の設定ファイル
~/.folders   ... メールフォルダ設定ファイル
~/.addresses ... アドレス帳
~/.emacs     ... (GnuPG とか使う時に必要)

• ~/.wl

  Mew で利用している Maildir 形式のディレクトリと互換性を持たすために、

  (setq elmo-maildir-folder-path "~/Mail/")
  

  HTMLファイルは表示しない。

  (setq mime-setup-enable-inline-html nil)
  

  大きいメッセージを送信時に分割しない

  (setq mime-edit-split-message nil)
  

  Wanderlust を終了する時は確認する。

  (setq wl-interactive-exit t)
  

  送ったメールは指定するディレクトリに保存しておく。

  (setq wl-fcc "+backup")
  

  スレッドの表示関連

  (setq wl-thread-indent-level 2)
  (setq wl-thread-have-younger-brother-str "+")
  (setq wl-thread-youngest-child-str       "+")
  (setq wl-thread-vertical-str             "|")
  (setq wl-thread-horizontal-str           "-")
  (setq wl-thread-space-str                " ")
  

  見ため ... 左にメールフォルダ、右上にメール一覧、右下にメール本文となる。

  (setq wl-thread-insert-opened t)
  (setq wl-stay-folder-window t)
  

  文字コード関連

  UTF-8を読む必要がある場合は Mule-UCS パッケージのインストールが必要。

  (require 'un-define)
  (eval-after-load
      "mime-edit"
      '(let ((text (assoc "text" mime-content-types)))
         (set-alist 'text "plain"
                  '(("charset" "" "ISO-2022-JP" "US-ASCII"
                     "ISO-8859-1" "ISO-8859-8" "UTF-8")))
         (set-alist 'mime-content-types "text" (cdr text))))
  

  あんまり見たくないメールヘッダを隠す。

  (setq wl-message-ignored-field-list
        '(".*Received:" ".*Path:" ".*Id:" "^References:"
          "^Replied:" "^Errors-To:"
          "^Lines:" "^Sender:" ".*Host:" "^Xref:"
          "^Content-Type:" "^Precedence:"
          "^Status:" "^X-VM-.*:" "List-*" "X-ML*"
  ))
  

  個人情報

  (setq wl-from "りょうすけ ")
  (setq wl-user-mail-address-list
      (list (wl-address-header-extract-address wl-from)
          "ryosuke@deer-n-horse.jp"
  ))
  (setq wl-organization "DEER N' HORSE")
  (setq smtp-local-domain "deer-n-horse.jp")
  (setq wl-draft-cofnig-alist
      '((reply
         "Reply-to: ryosuke@deer-n-horse.jp"
         ("To" . "ryosuke@deer-n-horse.jp")
         ("Cc" . "")
  )))
  

  メーリングリストとか

  (setq wl-subscribed-mailing-list
     '("snort-users@snort.gr.jp"
       "fedora@linuxml.net"
  ))
  

  サーバ関連

  ;; POP3
  (setq elmo-pop3-default-server "pop.deer-n-horse.jp")
  ;; POP3 Username
  (setq elmo-pop3-default-user "ryosuke")
  ;; POP3 Authorication
  (setq elmo-default-pop-authenticate-type 'apop)
  ;; POP3 before STMP
  (setq wl-draft-send-mail-function 'wl-draft-send-mail-with-pop-before-smtp) 
  
  ;; SMTP
  (setq wl-smtp-posting-server "mail.deer-n-horse.jp")
  

• ~/.folders

  このファイルの仕様は、

  • ~/Mail/inbox に受信したメールはすべて保存して、そのディレクトリは「受信箱」とする。
  • ~/Mail/trash は「ゴミ箱」という名前にする。
  • ~/Mail/backup は送信したメールの保存ディレクトリとして、「送信箱」とする。

  表示したいディレクトリは逐次追加して行く事。

  Mail{
  |&ryosuke/apop@pop.deer-n-horse.jp|+inbox "受信箱"
  +backup "送信箱"
  +ml     "メーリングリスト"
  +trash  "ゴミ箱"
  }
  

  もし、POPしたメールをサーバから削除しないのであれば、「受信箱」の所を

  |&ryosuke/apop@pop.deer-n-horse.jp|:+inbox "受信箱"
  

  とする。

• ~/.addresses

  アドレス帳です。フォーマットは、

  メールアドレス	"ニックネーム"	"本名"
  

  記述すると、

  ryosuke@deer-n-horse.jp	"りょうすけ"	"りょうすけ"
  

• ~/.emacs

  GnuPGを使うための設定を以下に記述する。Gentoo Linux の場合、app-emacs/mailcrypt をインストールする事を忘れないように。

  (load-library "mailcrypt")
  (mc-setversion "gpg")
  (autoload 'mc-install-write-mode "mailcrypt" nil t)
  (autoload 'mc-install-read-mode "mailcrypt" nil t)
  (add-hook 'mail-mode-hook 'mc-install-write-mode)
  
  (add-hook 'wl-summary-mode-hook 'mc-install-read-mode)
  (add-hook 'wl-mail-setup-hook 'mc-install-write-mode)
  (defun mc-wl-verify-signature ()
    (interactive)
    (save-window-excursion
      (wl-summary-jump-to-current-message)
      (mc-verify)))
  (defun mc-wl-decrypt-message ()
    (interactive)
    (save-window-excursion
      (wl-summary-jump-to-current-message)
      (let ((inhibit-read-only t))
        (mc-decrypt-message))))
  (eval-after-load "mailcrypt"
    '(setq mc-modes-alist
           (append
            (quote
             ((wl-draft-mode (encrypt . mc-encrypt-message)
                             (sign . mc-sign-message))
              (wl-summary-mode (decrypt . mc-wl-decrypt-message)
                               (verify . mc-wl-verify-signature))))
            mc-modes-alist)))
  

• メールの受信

  i を押すと新しいメールを受信するそうです。

• メールの作成

  w を押すとメール作成画面になります。

  送信は Ctrl-c Ctrl-c 。

• メールをフォワードする

  フォワードしたいメールを表示してる時に、 f を押せば、新しいメール作成画面になるので、そこで必要事項を記述して送信する。

• ファイルを添付する

  Ctrl-c Ctrl-x Ctrl-i でMIMEでファイルを指定できる。

• メールを別名で保存

  e を押すと保存ディレクトリを聞いてくるので指定する。

• 添付ファイルを保存する

  添付ファイルのあるメールを表示し、メッセージウィンドウへ移動する。Ctrl-x Ctrl-o などで移動。保存したいマルチパート部分へ移動して、e を押す。

  Method:
  

  でリターンして、保存ファイル名を指定する。

• 署名(シグネチャ)をつける

  ~/.signature を作成して置く事。

  Ctrl-c Ctrl-w で署名が付けれます。

• ゴミ箱のメールを全部消す

  フォルダモードで E を押す。

• GnuPGで暗号メールする

  使い方は次の通り。

  C-c / v ... 検証(Verify)
  C-c / d ... 復号(decrypt)
  C-c / s ... 署名(sign)
  C-c / e ... 暗号(encrypt)
  

• Wanderlust
• Wanderlustなページ
• Wanderlust と mailcrypt で GnuPG を使う