メール / Mew の設定
メールの検索：Hyper Estraier
# apt-get install hyperestraier
mewsuffix-200.rb.bz2 入手先：http://www.ysnb.net/kit/software.html
$ gzip2 -d mewsuffix-200.rb.bz2
$ chmod +x mewsuffix-200.rb
$ ruby mewsuffix-200.rb ~/Mail
これで過去のメール・ファイル（数字）に拡張子（ .mew）が付けられる。
新規メールに拡張子がつくように？
~/.mew.el
検索エンジンの指定
~/.mew.el
検索用 index の作成は
kM
k/ で検索キーワードを入力。フィルターは省略してもいい。以下、検索例。
例１：これはキーワード「りんご」をふくむメールで、差出人が apple をふくむ人のものを選ぶ場合。
Hyper Estraier filter pattern: from=apple
例２：これはキーワード「美味しい」をふくむメールで、タイトルに 「くだもの」 がふくまれるものを選ぶ場合。
Hyper Estraier filter pattern: subject=くだもの
Mew と SMTP 認証
NTT の Bフレッツでプロバイダは Nifty だったのを、２０１２年１１月にプロバイダは変えずに回線だけ KDDI の au ひかりに乗り換えたら、メールの送信に支障が出るようになった。受信は今までどおりだったが送信がサーバに reject される。mew だけでなく Windows の Becky でも同じくはね返された。ネットで調べたところ、以下のページに当たった。
>> オーツの日常生活：「フレッツ光」から「au ひかり」へ http://o-tsu.seesaa.net/article/147099000.html
で、Becky の方は解決できたが、mew の場合はサーバのポートを 587 に変えても送信がうまくいかない。mew のマニュアルにしたがって認証要求を無視するために、
(setq mew-use-smtp-auth nil)
(setq mew-smtp-port "587")
としたが、逆に smtp 認証を設定するよう要求されてしまって、そこから先に進めない。
;(setq mew-use-smtp-auth nil) ;;コメントアウト
(setq mew-smtp-port "587")
とすると、送信にもパスワードを要求されるのでとても面倒。しかし他に方法がないのでこれで行くことにした。これは、mew が起動しないときにはパスワードを保存しておかない仕様になっているせいなのだろう。
X-Mailer:をアルファベット表示にする：
$ vi ~/.emacs.d/init.el
;;; 日本語化しない場合はコメントアウト
;(setq rail-emulate-genjis t)
;(if (module-installed-p 'rail) (load "rail"))
ただし、 /etc/emacs-*/site-start.d/60rail-init.el の存在に注意。
~/.emacs.el よりもこちらのほうが優先されるので、~/.emacs.d/init.el をいじっても効果はない。
我が家の ~/.mew.el ( Mew 5.x〜6.x 用 )
;;; Site configuration
;;;
;; ~/.emacs.d/init.el に記述済みなのでコメントアウト
;(autoload 'mew "mew" nil t)
;(autoload 'mew-send "mew" nil t)
;;; POP サーバーの設定
(setq mew-pop-server "pop.nifty.ne.jp")
(setq mew-name "xxxxxx")
(setq mew-user "xxxxxx")
(setq mew-mail-domain "nifty.com")
(setq mew-pop-user "xxxxxx")
(setq mew-pop-auth 'pass)
(setq mew-pop-delete t)
(setq mew-smtp-server "smtp.nifty.ne.jp")
;; 起動時にメールを取りにいかないようにする
(setq mew-auto-get nil)
;;; パスワード(POP など)を一時的に保存する
;;; パスワードの再入力を省略できる
(setq mew-use-cached-passwd t)
;; From: に余計なもの (localhost 名等) が付いたりする場合は，
;; xxxx の部分にドメイン名を指定する
(setq mew-mail-domain-list '("nifty.com"))
;; From ヘッダの "" で囲まれた文字も MIME デコードする
(setq mew-decode-quoted t)
;; スレッド表示を行う
(setq mew-prog-imls-arg-list '("--thread=yes"))
;; 自分に Bcc をつけない
(setq mew-mail-address-list
'("xxxxxx@nifty.com"))
(setq mew-mail-address-list
'("yyyyyy@nifty.ne.jp"))
;;送信メールのバックアップ
(setq mew-fcc "+backup")
;; Reply-To ヘッダがある場合そのアドレスにだけ返信（コメントアウト
する）
;(setq mew-replyto-to-list '("Reply-To:"))
;(setq mew-replyto-cc-list nil)
;; Summary に本文を表示しない
(setq mew-summary-form '(type (5 date) " " (14 from) " " t (0 subj)))
(setq mew-summary-form-body-starter nil)
;; Cc Bcc のアドレス表示数を設定する(ここでは10件にしている)
(setq mew-use-header-veil nil)
(setq mew-use-header-veil-count 10)
;; 返信のヘッダと引用部分の設定
(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
(setq mew-cite-prefix "> ")
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
;;; メール検索は HyperEstraier で
;;; 新規受信メールに拡張子（.mew）がつくように？
(setq mew-use-suffix t)
;;; 検索エンジンの指定
(setq mew-search-method 'est)
;;; ブラウザは Firefox を使う
;(setq mew-prog-text/html-ext "firefox")
;(define-key mew-message-mode-map [mouse-2] 'browse-url-at-mouse)
;(setq browse-url-netscape-program "firefox")
;(setq thing-at-point-url-path-regexp "[~/A-Za-z0-9---_.${}#%,:]+")
;;; ブラウザの指定は /usr/share/emacs/site-lisp/mew/mew-unix.el に記述してある
;;; のでそちらが優先される。このためコメントアウトした。
;;; PDF を Acroread で開く
(setq mew-prog-pdf "acroread")
;;; MS-Office ドキュメントを OpenOffice.org3 で開く
(setq mew-prog-msword "swriter")
(setq mew-prog-msexcel "scalc")
(setq mew-prog-mspowerpoint "simpress")
;;; ooffice を soffice に補正する必要があるとき。
(setq mew-prog-ooffice "soffice")
;;; Mew でメッセージを印刷（ # コマンド）
(defun print-region (begin end)
(interactive "r")
(shell-command-on-region begin end print-command-format))
(defun print-buffer ()
(interactive)
(print-region (point-min) (point-max)))
(setq mew-print-function (function print-buffer))
;;; M - o でメールの一括振り分け
(setq mew-refile-guess-control
'(mew-refile-guess-by-alist
mew-refile-ctrl-throw
mew-refile-guess-by-folder
mew-refile-ctrl-throw
mew-refile-guess-by-from
mew-refile-ctrl-throw
mew-refile-ctrl-auto-boundary
mew-refile-guess-by-default))
