読者です 読者をやめる 読者になる 読者になる

WanderlustでGmailを読めるようにする

emacs

最近Emacsいじってばかり。
Emacsでメールも扱えるようにしておく。
メールは全てGmailに集中させているので、Gmailに接続できればよい。

apel, FLIM, SEMIのインストール

前提となるものを入れる。APELは先日入れたので割愛。

FLIM

http://www.kanji.zinbun.kyoto-u.ac.jp/~tomo/elisp/FLIM/

$ make install LISPDIR=~/lisp
SEMI

http://www.kanji.zinbun.kyoto-u.ac.jp/~tomo/elisp/SEMI/

$ make install LISPDIR=~/lisp

Wanderlustのインストール

公式ページftpになぜか全て繋がらないので、CVSか他からダウンロードする。
今回は下記から持って来た
http://www.jpl.org/elips/wl/wl-2.14.0.tar.gz

$ make install LISPDIR=~/lisp PIXMAPDIR=~/lisp/wl/icon

あとは設定ファイル。
各ツールを .emacs でロードして、細かい設定は .wl に書く。
あと、.folders というのも必要らしい。

~/.emacs

;; flim
(add-to-list 'load-path "~/lisp/flim")

;; semi
(add-to-list 'load-path "~/lisp/semi")
(require 'mime-setup)


;; wanderlust wl.el
(add-to-list 'load-path "~/lisp/wl")
(require 'wl)
(require 'wl-draft)
(autoload 'wl-other-frame "wl" "Wanderlust on new frame." t)

~/folders

%inbox "inbox"
+trash "Trash"
+draft "Draft"

~/.wl

;; wanderlust setting

;; icon directory
(setq wl-icon-directory "~/lisp/wl/icon")

;;; mail
(require 'ssl)
(setq ssl-program-name "openssl")
(setq ssl-program-arguments '("s_client" "-quiet" "-host" host "-port" service))

;; IMAP
(setq elmo-imap4-default-server "imap.gmail.com")
(setq elmo-imap4-default-user "<username>@gmail.com") 
(setq elmo-imap4-default-authenticate-type 'clear) 
(setq elmo-imap4-default-port '993)
(setq elmo-imap4-default-stream-type 'ssl)

(setq elmo-imap4-use-modified-utf7 t) 

;; SMTP
(setq wl-smtp-connection-type 'starttls)
(setq wl-smtp-posting-port 587)
(setq wl-smtp-authenticate-type "plain")
(setq wl-smtp-posting-user "mattofransen")
(setq wl-smtp-posting-server "smtp.gmail.com")
(setq wl-local-domain "gmail.com")

(setq wl-default-folder "%inbox")
(setq wl-default-spec "%")
(setq wl-draft-folder "%[Gmail]/Drafts") ; Gmail IMAP
(setq wl-trash-folder "%[Gmail]/Trash")

(setq wl-folder-check-async t) 

(setq elmo-imap4-use-modified-utf7 t)

(autoload 'wl-user-agent-compose "wl-draft" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'wl-user-agent))
(if (fboundp 'define-mail-user-agent)
    (define-mail-user-agent
      'wl-user-agent
      'wl-user-agent-compose
      'wl-draft-send
      'wl-draft-kill
      'mail-send-hook))

完了

お疲れ様でした。
メールの読み書きができるようになったのはいいが、Archiveのやり方などが全くわからんので戸惑っている。