EmacsからGmailを使う

公開日: : 最終更新日:2012/10/15 Emacs

記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。

参考にしたのは、以下の雑誌。Emacsに関する特集が載っています。

Software Design (ソフトウエア デザイン) 2008年 02月号 [雑誌]


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)

    

関連記事

関連 : Emacsで複数行の行頭空白を削除する方法

    

関連記事

サンフランシスコのピア39にあるチャウダーズでクラムチャウダーを食す!

lolipop アップルの開発者向けイベント「WWDC2014」

ミスドのカルピスドーナツとカルピスポンデリングを食べてみた!

ミスドで期間限定のカルピスコラボ商品「カルピスドーナツ」と「カルピ

十三カレー計画で牛すじカレーネギのせを食す!(大阪・十三)

「iPhoneアプリ開発キャンプ@大阪」のランチで、十三カレー計画

大阪・難波の加寿屋 法善寺でかすうどんを食す。ランチタイムはおにぎり2個まで無料!

大阪・難波の加寿屋 法善寺 (かすうどん KASUYA)で、かす

ライブドアブログで運営していた「あきお商店」を「卵は世界である」に改名しました

少し前からライブドアブログで「あきお商店」というブログをやって

→もっと見る

PAGE TOP ↑