EmacsからGmailを使う
公開日:
:
最終更新日:2012/10/15
Emacs
記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。
参考にしたのは、以下の雑誌。Emacsに関する特集が載っています。
Software Design (ソフトウエア デザイン) 2008年 02月号 [雑誌]
Software Design (ソフトウエア デザイン) 2008年 02月号 [雑誌]
- 出版社/メーカー: 技術評論社
- 発売日: 2008/01/18
- メディア: 雑誌
- クリック: 1回
- この商品を含むブログ (13件) を見る
which wget
wget not found
wget が無いようなので、入れる。
% sudo port install wget
which wget
/opt/local/bin/wget
まず、FLIM ( http://kanji.zinbun.kyoto-u.ac.jp/~tomo/elisp/FLIM/ ) を入れる。
FLIM を DL。
wget http://www.kanji.zinbun.kyoto-u.ac.jp/~tomo/comp/emacsen/lisp/flim/flim-1.14/flim-1.14.9.tar.gz
解凍。
tar zxvf flim-1.14.9.tar.gz
make。
cd flim-1.14.9
make EMACS=/Applications/Emacs.app/Contents/MacOS/Emacs
make install EMACS=/Applications/Emacs.app/Contents/MacOS/Emacs
する。
SEMI ( http://kanji.zinbun.kyoto-u.ac.jp/~tomo/elisp/SEMI/ ) を DL する。
wget http://kanji.zinbun.kyoto-u.ac.jp/~tomo/lemi/dist/semi/semi-1.14-for-flim-1.14/semi-1.14.6.tar.gz
解凍。
tar zxvf semi-1.14.6.tar.gz
make。
cd semi-1.14.6
make EMACS=/Applications/Emacs.app/Contents/MacOS/Emacs
make install EMACS=/Applications/Emacs.app/Contents/MacOS/Emacs
する。
starttls.el が入っていることを確認する。
% find /Applications/Emacs.app -name starttls.el
/Applications/Emacs.app/Contents/Resources/lisp/gnus/starttls.el
wl ( ftp://ftp.gohome.org/wl/stable ) をDL。
% wget ftp://ftp.gohome.org/wl/stable/wl-2.14.0.tar.gz
解凍。
% tar zxvf wl-2.14.0.tar.gz
Makefile を開いて、書き換える。
% cd wl-2.14.0
% vi Makefile
書き換えるのは、以下の部分。
EMACS = /Applications/Emacs.app/Contents/MacOS/Emacs
% make EMACS=/Applications/Emacs.app/Contents/MacOS/Emacs
% make
% make install
utils/ssl.el を load-path の通ったところに配置。
% cp utils/ssl.el ~/.emacs.d/
.emacs に以下の内容を追記。
(setq load-path (cons "/Applications/Emacs.app/Contents/Resources/site-lisp/wl" load-path))
(setq load-path (cons "/Applications/Emacs.app/Contents/Resources/site-lisp/flim" load-path))
(setq load-path (cons "/Applications/Emacs.app/Contents/Resources/site-lisp/semi" load-path))
(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)
.wl に以下の内容を書く。
;; From: の設定
(setq wl-envelope-from "user@gmail.com")
(setq wl-from "user <user@gmail.com>")
;; IMAPサーバの設定
(setq elmo-imap4-default-server "imap.gmail.com")
(setq elmo-imap4-default-user "user@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 "user")
(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-draft-folder "+Drafts") ; 下書きフォルダをローカルに置く
(setq wl-trash-folder "%[Gmail]/Trash")
(setq wl-folder-check-async t) ; 非同期でチェックするように
(setq wl-dispose-folder-alist
(cons '("^%inbox" . remove) wl-dispose-folder-alist))
.folders に以下の内容を書く。
%inbox
+Drafts
%/
M-x wl で Wanderlust を起動。
! でspam指定できるようにするには、以下の内容を追記。
(defun st-wl-summary-refile-spam ()
(interactive)
(wl-summary-refile (wl-summary-message-number) "%[Gmail]/Spam")
(wl-summary-next))
(define-key wl-summary-mode-map "!" 'st-wl-summary-refile-spam)
(define-key wl-summary-mode-map "\M-u" 'wl-summary-mark-as-unread)
/ で全メールを検索できるようにするには、以下の内容を追記。
(defun st-wl-summary-gmail-search ()
(interactive)
(setq word (concat "\"" (read-from-minibuffer "Gmail Search Word: ")
"\""))
(setq keys '("body" "tocc" "subject" "from"))
(setq res "")
(while (not (null keys))
(setq key (car keys))
(setq keys (cdr keys))
(setq res (concat res key ":" word (if (null keys) nil "|")))
)
(wl-summary-goto-folder-subr (concat "\(" res ")%[Gmail]/All Mail")
nil nil nil t)
)
(define-key wl-summary-mode-map "/" 'st-wl-summary-gmail-search)
関連記事