この page では Wanderlust に関する情報を掲載しています。
FLIM の代わりに LIMIT (最新開発版) を使いましょう。
LIMIT を導入すると、以下のおまけも付いてきます。 :-)
以下を ~/.wl に書き加えましょう。
(setq mime-header-lexical-analyzer
'(;;eword-analyze-quoted-string
eword-analyze-domain-literal
eword-analyze-comment
eword-analyze-spaces
eword-analyze-special
eword-analyze-encoded-word
eword-analyze-atom))
古い FLIM なら以下。
(setq eword-lexical-analyzer
'(;;eword-analyze-quoted-string
eword-analyze-domain-literal
eword-analyze-comment
eword-analyze-spaces
eword-analyze-special
eword-analyze-encoded-word
eword-analyze-atom))
rail を導入すれば、 FLIM や SEMI 等のコードネームが日本語化されます。
(require 'rail nil t)
以下を ~/.wl に書き加えましょう。
(setq wl-stay-folder-window t)
Folder の残り幅も指定できます。
(setq wl-stay-folder-window t
wl-folder-window-width 30)
以下を ~/.wl に書き加えておくと、送信時に JIS X 0201 なカタカナを JIS X 0208 なカタカナに変換してくれます。
(add-hook 'wl-draft-send-hook
#'(lambda ()
(japanese-zenkaku-region (point-min) (point-max) t)))
以下を ~/.emacs に書き加えると良いです。
(setq completion-ignore-case t)
一部の Emacsen では初めから t になっていると思います。
weather.el を使うと良いかもしれません。
(autoload 'weather-from-http "weather" "Weather" t) (autoload 'weather-insert-header "weather" "Weather" t) (setq weather-replace nil)
以上を ~/.emacs に、以下を ~/.wl に書き加える方法があります。
(add-hook 'wl-mail-setup-hook
#'(lambda ()
(weather-insert-header "大阪府")))
同様な tool に、 fortune.el と pollen.el があります。
xcite.el を使いましょう。
(autoload 'xcite "xcite" "Exciting cite" t) (autoload 'xcite-yank-cur-msg "xcite" "Exciting cite" t) (autoload 'xcite-indent-citation "xcite") (setq wl-draft-cite-function 'xcite-indent-citation)
僕は以下のように設定しています。
(setq xcite:insert-header-function 'ys:xcite:insert-header-function) (defun ys:xcite:insert-header-function () (format ">>>>> In %s %s\n>>>>>\t%s%s wrote:\n" (if ng "article" "message") msgid (if (string< "" tag) (concat "\"" tag "\" = ") "") (or handle id)))
Wanderlust メーリングリストに投稿された wl-menu-ja.el を利用しましょう。
(load "wl-menu-ja" t t)
wl-draft-reply-without-argument-list に適当な内容を追加・設定しましょう。
(setq wl-draft-reply-without-argument-list
(append '(("Followup-To" . (nil nil ("Followup-To")))
("Newsgroups" . (nil nil ("Newsgroups"))))
wl-draft-reply-without-argument-list))
例えば上の内容を ~/.wl に書くなど。
以下を ~/.wl に書いておくと良いです。 これには“C-u k で thread 全体を既読にしてから次の未読へ進む”というオマケも付いています。
(defun ys:wl-summary-kill-thread (&optional arg) "Mark articles which has the same subject as read, and then select the next." (interactive "P") (wl-thread-mark-as-read arg) (wl-summary-down t)) (add-hook 'wl-summary-mode-hook #'(lambda () (local-set-key "k" 'ys:wl-summary-kill-thread)))
以下を ~/.wl に書いておくと良いです。
(add-to-list 'wl-draft-config-alist
`(t ("X-Input-Method" . ,(skk-version))))
また、コードネームを日本語化したいのなら、 skk-version-ja.el を導入すると良いです。
(require 'skk-version-ja nil t)
こちらは ~/.emacs に書いておく方が無難でしょう。
以下を ~/.wl に書いておくと良いです。
(add-hook 'wl-mail-setup-hook
#'(lambda ()
(save-excursion
(goto-char (point-min))
(replace-regexp "^誰々\\(さん\\|サン\\|氏\\|様\\)>[ \t]*" "誰々> "))))
もちろん、“誰々”の部分は自分の名前に書き直しましょう。
以下を ~/.wl に書いておくと良いです。
(defadvice wl-draft-strip-subject-re (before ys:wl-remove-ml-serial (subject)) (if (string-match "^\\(([^) ]+[: ][0-9]+)\\|\\[[^] ]+[: ][0-9]+\\]\\) " subject) (setq subject (replace-match "" nil t subject)))) (ad-activate 'wl-draft-strip-subject-re)
以下を ~/.wl に書いておくと良いです。
(defadvice std11-unfold-string (after simply activate) (setq ad-return-value (elmo-replace-in-string ad-return-value "[ \t]+" " ")))
以下を ~/.wl に書いておくと良いです。
(add-hook 'wl-draft-send-hook
#'(lambda ()
(make-local-variable 'mime-edit-insert-user-agent-field)
(setq mime-edit-insert-user-agent-field nil)))
以下を ~/.wl に書いておくと良いです。
(defadvice wl-generate-user-agent-string (after ys:wl-ua-remove-comments activate) (let ((case-fold-search nil)) (while (string-match " ([^bp()][^()]*)" ad-return-value) (setq ad-return-value (replace-match "" nil t ad-return-value)))))
…… wl-generate-user-agent-string を再定義した方が良いかもしれません。
japanese-jisx0212 や japanese-jisx0213-X が扱える環境の場合、 izonmoji-mode.el をインストールして、 以下を ~/.emacs に書いておくとそれなりに対応出来ます。
(when (locate-library "izonmoji-mode") (autoload 'izonmoji-mode "izonmoji-mode" nil t) (autoload 'izonmoji-mode-on "izonmoji-mode" nil t) (add-hook 'w3m-mode-hook 'izonmoji-mode-on) (add-hook 'wl-message-redisplay-hook 'izonmoji-mode-on))