X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=samples%2Fja%2Fdot.wl;h=20c0198276cb696e3f14d61bbca2c6896cd70f25;hb=4adbabb1c181bc6d050f6a53c12c79f36ba4a4c9;hp=a9d2a492dfb5b411a386369f1a7ff821565f7223;hpb=00990dd383e2e34706cd032fa256b90459091d8f;p=elisp%2Fwanderlust.git diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl index a9d2a49..20c0198 100644 --- a/samples/ja/dot.wl +++ b/samples/ja/dot.wl @@ -1,86 +1,164 @@ -;;; -*- emacs-lisp -*- -;;; ~/.wl (setting file for Wanderlust) -;;; +;;; dot.wl -- sample setting file for Wanderlust -*- emacs-lisp -*- -;; まず，次の設定を ~/.emacs などに書いてください。 -;; ここから -(require 'mime-setup) +;; [[ 動作に必要な設定 ]] + +;; まず、次の設定を ~/.emacs などに書いてください。 +;; XEmacs の package としてインストールされている場合は必要ありません。 (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) -;; ここまで + +;; アイコンを置くディレクトリ +;; XEmacs の package としてインストールされている場合は必要ありません。 +;(setq wl-icon-directory "/usr/local/lib/emacs/etc") + + +;; [[ SEMI の設定 ]] + +;; HTML パートを表示しない +;; mime-setup がロードされる前に記述する必要があります。 +(setq mime-setup-enable-inline-html nil) + +;; 大きいメッセージを送信時に分割しない +(setq mime-edit-split-message nil) + +;; 大きいメッセージとみなす行数の設定 +;(setq mime-edit-message-default-max-lines 1000) + ;;; [[ 個人情報の設定 ]] -;; From の設定 -;(setq wl-from "Your Name ") -;; Organization の設定 -;(setq wl-organization "") +;; From: の設定 +;(setq wl-from "Your Name ") -;;; [[ 基本的な設定 ]] +;; 自分のメールアドレスのリスト +(setq wl-user-mail-address-list + (list (wl-address-header-extract-address wl-from) + ;; "e-mail2@example.com" + ;; "e-mail3@example.net" ... + )) + +;; 自分の参加しているメーリングリストのリスト +(setq wl-subscribed-mailing-list + '("wl@lists.airs.net" + "apel-ja@m17n.org" + "emacs-mime-ja@m17n.org" + ;; "ml@example.com" ... + )) -;; メッセージデータベースを作るディレクトリ -(setq elmo-msgdb-dir "~/.elmo") +;; (system-name) が FQDN を返さない場合、 +;; `wl-local-domain' にホスト名を除いたドメイン名を設定してください。 +;; (system-name) "." wl-local-domain が Message-ID に使用されます。 +;(setq wl-local-domain "example.com") -;; MH (localdir) のホーム -(setq elmo-localdir-folder-path "~/Mail") -;; IMAP4サーバの設定 -(setq elmo-default-imap4-server "localhost") -;; POPサーバの設定 -(setq elmo-default-pop3-server "localhost") -;; ニュースサーバの設定 -(setq elmo-default-nntp-server "localhost") -;; 投稿先の ニュースサーバ -(setq wl-nntp-posting-server elmo-default-nntp-server) -;; メールを送信する先の (SMTP)サーバ +;; Message-ID のドメインパートを強制的に指定 +;(setq wl-message-id-domain "hostname.example.com") + +;; Message-ID のドメインパートを wl-from から生成します。 +;; globalなIPを持たない場合に使ってください。 +;; wl-local-domain, wl-message-id-domainに優先します。 +;(setq wl-message-id-use-wl-from t) + +;;; [[ サーバの設定 ]] + +;; IMAP サーバの設定 +(setq elmo-imap4-default-server "localhost") +;; POP サーバの設定 +(setq elmo-pop3-default-server "localhost") +;; SMTP サーバの設定 (setq wl-smtp-posting-server "localhost") +;; ニュースサーバの設定 +(setq elmo-nntp-default-server "localhost") +;; 投稿先のニュースサーバ +(setq wl-nntp-posting-server elmo-nntp-default-server) -;; アイコンを置くディレクトリ (XEmacs のみ) -;; (XEmacs の package としてインストールされている場合、必要ありません) -;(setq wl-icon-dir "~/work/wl/etc") +;; IMAP サーバの認証方式の設定 +(setq elmo-imap4-default-authenticate-type 'clear) ; 生パスワード +;(setq elmo-imap4-default-authenticate-type 'cram-md5) ; CRAM-MD5 -;; (system-name) がFQDNを返さない場合、 -;; 以下をホスト名を除いたドメイン名を設定してください。 -;; ((system-name) "." wl-local-domain が Message-ID の作成、 -;; SMTP の HELO に使用 されます。) -;(setq wl-local-domain "localdomain") -;; Message-ID のドメインパートを強制的に指定 -;(setq wl-message-id-domain "localhost.localdomain") +;; POP-before-SMTP +;(setq wl-draft-send-mail-function 'wl-draft-send-mail-with-pop-before-smtp) + + +;;; [[ 基本的な設定 ]] + +;; `wl-summary-goto-folder' の時に選択するデフォルトのフォルダ +;(setq wl-default-folder "+inbox") + +;; フォルダ名補完時に使用するデフォルトのスペック +;(setq wl-default-spec "+") + +;; Folder Carbon Copy +;(setq wl-fcc "+outbox") -;(setq wl-default-folder "+inbox") ;; wl-summary-goto-folder の時に選択する - ;; デフォルトのフォルダ -;(setq wl-default-spec "+") ;; フォルダ名補完時に使用する - ;; デフォルトのスペック +;; 終了時に確認する +(setq wl-interactive-exit t) -;(setq wl-fcc "+outbox") ;; Folder Carbon Copy +;; メール送信時には確認する +(setq wl-interactive-send t) -(setq wl-interactive-exit t) ;; 終了時に確認する -(setq wl-interactive-send t) ;; メール送信時には確認する +;; スレッドは常に開く +;(setq wl-thread-insert-opened t) -(setq wl-auto-select-first t) ;; サマリ移動後に先頭メッセージを表示する -(setq wl-auto-select-next t) ;; サマリ内の移動で未読メッセージがないと - ;; 次のフォルダに移動する +;; サマリバッファの左にフォルダバッファを表示する (3ペイン表示) +;(setq wl-stay-folder-window t) + +;; 長い行を切り縮める +;(setq wl-message-truncate-lines t) +;(setq wl-draft-truncate-lines t) +;; XEmacs (21.4.6 より前) の場合、以下も必要。 +;(setq truncate-partial-width-windows nil) + +;; ドラフトを新しいフレームで書く +;(setq wl-draft-use-frame t) + +;; スレッド表示のインデントを無制限にする。 +;(setq wl-summary-indent-length-limit nil) +;(setq wl-summary-width nil) + +;; サブジェクトが変わったらスレッドを切って表示 +;(setq wl-summary-divide-thread-when-subject-changed t) + +;; スレッドの見た目を変える +;(setq wl-thread-indent-level 2) +;(setq wl-thread-have-younger-brother-str "+" +; wl-thread-youngest-child-str "+" +; wl-thread-vertical-str "|" +; wl-thread-horizontal-str "-" +; wl-thread-space-str " ") + +;; サマリ移動後に先頭メッセージを表示する +;(setq wl-auto-select-first t) + +;; サマリ内の移動で未読メッセージがないと次のフォルダに移動する +;(setq wl-auto-select-next t) + +;; 未読がないフォルダは飛ばす(SPCキーだけで読み進める場合は便利) ;(setq wl-auto-select-next 'skip-no-unread) - ;; 未読がないフォルダは飛ばす - ;; SPCキーだけで読み進める場合は便利 -(setq wl-summary-move-order 'unread) ;; 未読メッセージを優先的に読む -(setq wl-thread-insert-opened t) ;; thread作成時は常にopenにする -;(setq wl-stay-folder-window t) ;; サマリに移動したときにフォルダバッファ - ;; の右にサマリのバッファを表示する +;; 未読メッセージを優先的に読む +;(setq wl-summary-move-order 'unread) + +;; 着信通知の設定 +;(setq wl-biff-check-folder-list '("%inbox")) +;(setq wl-biff-notify-hook '(ding)) + + +;;; [[ ネットワーク ]] ;; フォルダ種別ごとのキャッシュの設定 -;; (localdir, localnews, maildir はキャッシュしない) +;; (localdir, localnews, maildir はキャッシュできない) ;(setq elmo-archive-use-cache nil) ;(setq elmo-nntp-use-cache t) ;(setq elmo-imap4-use-cache t) ;(setq elmo-pop3-use-cache t) ;; オフライン(unplugged)操作を有効にする(現在はIMAPフォルダのみ) -;(setq elmo-enable-disconnected-operation t) +(setq elmo-enable-disconnected-operation t) ;; unplugged 状態で送信すると，キュー(`wl-queue-folder')に格納する (setq wl-draft-enable-queuing t) -;; unplugged から plugged に変えると，キューにあるメッセージを送信する +;; unplugged から plugged に変えたときに，キューにあるメッセージを送信する (setq wl-auto-flush-queue t) ;; 起動時はオフライン状態にする @@ -96,152 +174,26 @@ ; )) -;; highlightの設定 (明るい背景色の場合です) - -;; グループを未読数により色分けしない。開閉状態により色分けする。 -;(setq wl-highlight-group-folder-by-numbers nil) - -(setq wl-highlight-message-header-alist - '(("Subject[ \t]*:" . wl-highlight-message-subject-header-contents) - ("From[ \t]*:" . wl-highlight-message-from-header-contents) - ("\\(.*To\\|Cc\\|Newsgroups\\)[ \t]*:" . wl-highlight-message-important-header-contents) - ("\\(User-Agent\\|X-Mailer\\|X-Newsreader\\)[ \t]*:" . - wl-highlight-message-unimportant-header-contents) - )) -;; 引用レベルで色分けしない -;(setq wl-highlight-citation-face-list -; '(wl-highlight-message-cited-text-1)) - -(defun my-wl-set-face (face spec) - (make-face face) - (cond ((fboundp 'face-spec-set) - (face-spec-set face spec)) - (t - (wl-declare-face face spec)))) - -;; メッセージヘッダ -(my-wl-set-face 'wl-highlight-message-subject-header-contents - '((t (:foreground "blue" :bold t)))) -(my-wl-set-face 'wl-highlight-message-from-header-contents - '((t (:foreground "red" :bold t)))) -(my-wl-set-face 'wl-highlight-message-important-header-contents - '((t (:foreground "purple" :bold t)))) -(my-wl-set-face 'wl-highlight-message-unimportant-header-contents - '((t (:foreground "RoyalBlue" :bold t)))) -(my-wl-set-face 'wl-highlight-message-headers - '((t (:foreground "magenta3" :bold t)))) -(my-wl-set-face 'wl-highlight-message-header-contents - '((t (:foreground "brown" :bold nil)))) -(my-wl-set-face 'wl-highlight-message-signature - '((t (:foreground "blue")))) -;; 引用 -(my-wl-set-face 'wl-highlight-message-citation-header - '((t (:foreground "DarkGreen")))) -(my-wl-set-face 'wl-highlight-message-cited-text-1 - '((t (:foreground "forest green")))) -(my-wl-set-face 'wl-highlight-message-cited-text-2 - '((t (:foreground "SaddleBrown")))) -(my-wl-set-face 'wl-highlight-message-cited-text-3 - '((t (:foreground "orchid3")))) -(my-wl-set-face 'wl-highlight-message-cited-text-4 - '((t (:foreground "purple1")))) -(my-wl-set-face 'wl-highlight-message-cited-text-5 - '((t (:foreground "MediumPurple1")))) -(my-wl-set-face 'wl-highlight-message-cited-text-6 - '((t (:foreground "PaleVioletRed")))) -(my-wl-set-face 'wl-highlight-message-cited-text-7 - '((t (:foreground "LightPink")))) -(my-wl-set-face 'wl-highlight-message-cited-text-8 - '((t (:foreground "salmon")))) -(my-wl-set-face 'wl-highlight-message-cited-text-9 - '((t (:foreground "SandyBrown")))) -(my-wl-set-face 'wl-highlight-message-cited-text-10 - '((t (:foreground "wheat")))) -;; サマリ -(my-wl-set-face 'wl-highlight-summary-important-face - '((t (:foreground "purple")))) -(my-wl-set-face 'wl-highlight-summary-new-face - '((t (:foreground "tomato")))) -(my-wl-set-face 'wl-highlight-summary-unread-face - '((t (:foreground "RoyalBlue")))) -(my-wl-set-face 'wl-highlight-summary-deleted-face - '((t (:foreground "gray")))) -(my-wl-set-face 'wl-highlight-summary-refiled-face - '((t (:foreground "blue")))) -(my-wl-set-face 'wl-highlight-summary-temp-face - '((t (:foreground "salmon")))) -(my-wl-set-face 'wl-highlight-summary-displaying-face - '((t (:bold t :underline t)))) -;; (スレッド) -(my-wl-set-face 'wl-highlight-summary-thread-top-face - '((t (:foreground "green4")))) -(my-wl-set-face 'wl-highlight-summary-normal-face - '((t (:foreground "SeaGreen")))) -;; フォルダ -(my-wl-set-face 'wl-highlight-folder-unknown-face - '((t (:foreground "RoyalBlue")))) -(my-wl-set-face 'wl-highlight-folder-killed-face - '((t (:foreground "gray50")))) -(my-wl-set-face 'wl-highlight-folder-unread-face - '((t (:foreground "brown")))) -(my-wl-set-face 'wl-highlight-folder-zero-face - '((t (:foreground "blue4")))) -(my-wl-set-face 'wl-highlight-folder-few-face - '((t (:foreground "tomato")))) -(my-wl-set-face 'wl-highlight-folder-many-face - '((t (:foreground "HotPink1")))) -;; グループ -(my-wl-set-face 'wl-highlight-folder-opened-face - '((t (:foreground "forest green")))) -(my-wl-set-face 'wl-highlight-folder-closed-face - '((t (:foreground "DarkOliveGreen4")))) -;; スタートアップデモ -(my-wl-set-face 'wl-highlight-demo-face - '((t (:foreground "blue2")))) - - ;;; [[ 特殊な設定 ]] -;; jka-compr を利用して ~/elmo/SPEC/ 以下のデータベースを圧縮する -;(setq elmo-msgdb-overview-filename "overview.gz") -;(setq elmo-msgdb-number-filename "number.gz") -;(setq wl-summary-cache-file ".wl-summary-cache.gz") -;(setq wl-thread-top-file ".wl-thread-top.gz") - - ;; グループをcheckした後に未読があるフォルダのグループを自動的に開く -(add-hook 'wl-folder-check-entity-hook - '(lambda () - (wl-folder-open-unread-folder entity) - )) - -;; 自分のメールアドレスのリスト -(setq wl-user-mail-address-list - (list (wl-address-header-extract-address wl-from) - ;;"e-mail2@bbb.com" ... - )) - -;; 自分の参加しているメーリングリストのリスト -(setq wl-subscribed-mailing-list - '("wl@lists.airs.net" - "apel-ja@m17n.org" - ;;"ml@example.com" ... - )) +;(add-hook 'wl-folder-check-entity-hook +; '(lambda () +; (wl-folder-open-unread-folder entity) +; )) ;; サマリ表示関数を変更する -;; サマリ表示において使用する情報を持つフィールドをoverview情報に -;; 入れる設定(ただし，localフォルダのみ) -;; 自動リファイルに必要なフィールドも設定 -(setq elmo-msgdb-extra-fields '("newsgroups" - "x-ml-name" - "x-mail-count" "x-ml-count" - "x-sequence" - "mailing-list")) - -;;; ML のメッセージであれば，サマリの Subject 表示に -;;; ML名 や MLにおけるメッセージ番号も表示する -(setq wl-summary-subject-func 'my-wl-summary-subject-func-ml) +;; `elmo-msgdb-overview-entity-get-extra-field' で参照したいフィールド。 +;; 自動リファイルで参照したいフィールドも設定する。 +(setq elmo-msgdb-extra-fields + '("newsgroups" + "list-id" "x-ml-name" "mailing-list" + "x-mail-count" "x-ml-count" "x-sequence")) + +;; ML のメッセージであれば，サマリの Subject 表示に +;; ML名 や MLにおけるメッセージ番号も表示する +(setq wl-summary-subject-function 'my-wl-summary-subject-func-ml) (defun my-wl-summary-subject-func-ml (subject-string) (let ((folder wl-summary-buffer-folder-name) (subj subject-string) (sequence) (ml-name) (ml-count)) @@ -258,131 +210,168 @@ (and sequence (cadr (split-string sequence " "))))) (if (string-match - "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" + "^\\s(\\(\\S)+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" subject-string) (progn (setq subj (substring subject-string (match-end 0))) (if (not ml-name) (setq ml-name (match-string 1 subject-string))) (if (not ml-count) (setq ml-count (match-string 2 subject-string))))) - (if (and ml-name ml-count) - (if (string= folder wl-default-folder) - (format "(%s %05d) %s" - (car (split-string ml-name " ")) - (string-to-int ml-count) - subj) - (format "#%05d %s" - (string-to-int ml-count) subj)) - subj))) + (condition-case nil + (if (and ml-name ml-count) + (if (string= folder wl-default-folder) + (format "(%s %05d) %s" + (car (split-string ml-name " ")) + (string-to-int ml-count) + subj) + (format "#%05d %s" + (string-to-int ml-count) subj)) + subj) + (error subj)))) ;; imput により非同期で送信する ;; (utils/im-wl.el をインストールしておく必要があります。 ;; また，~/.im/Config の設定(Smtpservers)を忘れないことと， ;; wl-draft-enable-queuing の機能が働かなくなることに注意。) ;(autoload 'wl-draft-send-with-imput-async "im-wl") -;(setq wl-draft-send-func 'wl-draft-send-with-imput-async) +;(setq wl-draft-send-function 'wl-draft-send-with-imput-async) + + +;; 短い User-Agent: フィールドを使う +;(setq wl-generate-mailer-string-function +; (function +; (lambda () +; (concat "User-Agent: " +; (wl-generate-user-agent-string-1 nil))))) + + +;;; [[ テンプレート ]] ;; テンプレートの設定 -(setq wl-template-alist - '(("default" - ("From" . wl-from) - ("Organization" . "~/.wl sample") - (body . " ○○です。\n")) ;; 本文 - ("report" - ("To" . "boss@company.jp") - ("Subject" . "報告") - (top . "今週の報告です。\n") ;; 本文先頭への挿入 -;; (bottom-file . "~/work/report.txt") ;; 本文末尾へファイルの挿入 - ) - )) +;(setq wl-template-alist +; '(("default" +; ("From" . wl-from) +; ("Organization" . "デフォルトの組織名") +; (body . " ○○です。\n")) ; 本文 +; ("report" +; ("To" . "boss@example.com") +; ("Subject" . "報告") +; (top . "今週の報告です。\n") ; 本文先頭への挿入 +; (bottom-file . "~/work/report.txt") ; 本文末尾へファイルの挿入 +; ) +; )) ;; ドラフトバッファの内容により From や Organization などのヘッダを自 ;; 動的に変更する -(setq wl-draft-config-alist - '((reply ;; 返信元のバッファを見る - "^To: .*\\(test-notsend-wl@lists.airs.net\\)" - (template . "default")) ;; テンプレート - ("^To: .*\\(test-notsend-wl@lists.airs.net\\)" - wl-ml-draft-config-func ;; 関数 - ("From" . wl-from) ;; 変数 - ("Organization" . "~/.wl sample")) ;; 文字列 - ("^Newsgroups: test.*" - ("Organization" . "ニュース投稿時の組織名")) - )) +;(setq wl-draft-config-alist +; '((reply ; 返信元のバッファを見る +; "^To: .*test-notsend-wl@lists\\.airs\\.net" +; (template . "default")) ; テンプレート +; ("^To: .*test-notsend-wl@lists\\.airs\\.net" +; ding ; 関数 +; ("From" . wl-from) ; 変数 +; ("Organization" . "組織名")) ; 文字列 +; ("^Newsgroups: test.*" +; ("Organization" . "ニュース投稿時の組織名")) +; )) + ;; ドラフト作成時(返信時)に，自動的にヘッダを変更する -; (add-hook 'wl-mail-setup-hook -; '(lambda () -; (unless wl-draft-reedit ;; 再編集時は適用しない -; (wl-draft-config-exec wl-draft-config-alist)))) +;(add-hook 'wl-mail-setup-hook +; '(lambda () +; (unless wl-draft-reedit ; 再編集時は適用しない +; (wl-draft-config-exec wl-draft-config-alist)))) -;; メールの返信時に宛先を付ける方針の設定 +;;; [[ 返信時の設定 ]] + +;; 返信時のウィンドウを広くする +;(setq wl-draft-reply-buffer-style 'full) + +;; 返信時のヘッダに相手の名前を入れない。 +;(setq wl-draft-reply-use-address-with-full-name nil) + +;; メールの返信時に宛先を付ける方針の設定 ;; 下記変数の alist の要素 -;; ('返信元に存在するフィールド' . +;; ("返信元に存在するフィールド" . ;; ('Toフィールド' 'Ccフィールド' 'Newsgroupsフィールド')) -;; "a" (without-argument)では Reply-To や From などで指定された唯一人 -;; または唯一つの投稿先に返信する。また，X-ML-Name と Reply-To がつい -;; ているなら Reply-To 宛にする。 -; (setq wl-draft-reply-without-argument-list -; '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil)) -; ("X-ML-Name" . (("To" "Cc") nil nil)) -; ("Followup-To" . (nil nil ("Followup-To"))) -; ("Newsgroups" . (nil nil ("Newsgroups"))) -; ("Reply-To" . (("Reply-To") nil nil)) -; ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) -; ("From" . (("From") nil nil)))) -; +;; "a" (without-argument)では Reply-To: や From: などで指定された唯一人 +;; または唯一つの投稿先に返信する。また，X-ML-Name: と Reply-To: がつい +;; ているなら Reply-To: 宛にする。 +(setq wl-draft-reply-without-argument-list + '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil)) + ("X-ML-Name" . (("To" "Cc") nil nil)) + ("Followup-To" . (nil nil ("Followup-To"))) + ("Newsgroups" . (nil nil ("Newsgroups"))) + ("Reply-To" . (("Reply-To") nil nil)) + ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) + ("From" . (("From") nil nil)))) + ;; "C-u a" (with-argument)であれば関係する全ての人・投稿先に返信する。 -; (setq wl-draft-reply-with-argument-list -; '(("Followup-To" . (("From") nil ("Followup-To"))) -; ("Newsgroups" . (("From") nil ("Newsgroups"))) -; ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) -; ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) - - -;; X-Face を表示する (要 x-face (and x-face-mule)) - -(when (and window-system - (module-installed-p 'x-face)) - (cond (wl-on-xemacs ;; for XEmacs - (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t) - (setq wl-highlight-x-face-func - 'x-face-xmas-wl-display-x-face)) - ((module-installed-p 'x-face-mule) ;; for Mule (GNU Emacs) - ;; x-face-mule 0.20以後 - (setq wl-highlight-x-face-func - (function - (lambda (&optional beg end) ; for compatibility - (x-face-decode-message-header)))) - (setq x-face-mule-highlight-x-face-style 'xmas) - (require 'x-face-mule) - ))) +(setq wl-draft-reply-with-argument-list + '(("Followup-To" . (("From") nil ("Followup-To"))) + ("Newsgroups" . (("From") nil ("Newsgroups"))) + ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) + ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) + + +;;; [[ メッセージ表示の設定 ]] + +;; 隠したいヘッダの設定 +(setq wl-message-ignored-field-list + '(".*Received:" ".*Path:" ".*Id:" "^References:" + "^Replied:" "^Errors-To:" + "^Lines:" "^Sender:" ".*Host:" "^Xref:" + "^Content-Type:" "^Precedence:" + "^Status:" "^X-VM-.*:")) + +;; 表示するヘッダの設定 +;; 'wl-message-ignored-field-list' より優先される +(setq wl-message-visible-field-list '("^Message-Id:")) + + +;; X-Face を表示する +(when window-system + (cond ((and (featurep 'xemacs) ; for XEmacs + (module-installed-p 'x-face)) + (autoload 'x-face-xmas-wl-display-x-face "x-face") + (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)) + + ;; for Emacs21 + ((and (not (featurep 'xemacs)) + (= emacs-major-version 21) + (module-installed-p 'x-face-e21)) + (autoload 'x-face-decode-message-header "x-face-e21") + (setq wl-highlight-x-face-function 'x-face-decode-message-header)) + + ;; for Emacs 19.34, Emacs 20.x + ((module-installed-p 'x-face-mule) + ;; x-face-mule distributed with bitmap-mule 8.0 or later + (autoload 'x-face-decode-message-header "x-face-mule") + (setq wl-highlight-x-face-function 'x-face-decode-message-header)) + )) + +;; スコア機能の設定 +;; `wl-score-folder-alist' の設定に関わらず必ず "all.SCORE" は使用される。 +;(setq wl-score-folder-alist +; '(("^-comp\\." +; "news.comp.SCORE" +; "news.SCORE") +; ("^-" +; "news.SCORE"))) + ;; 自動リファイルのルール設定 ;(setq wl-refile-rule-alist ; '( -; ("x-ml-name" -; ("^Wanderlust" . "+wl") -; ("^Elisp" . "+elisp")) -; ("From" -; ("teranisi@isl.ntt.co.jp" . "+teranisi")))) +; ("x-ml-name" +; ("^Wanderlust" . "+wl") +; ("^Elisp" . "+elisp")) +; ("From" +; ("foo@example\\.com" . "+foo")))) ;; 自動リファイルしない永続マークを設定 ;; 標準では "N" "U" "!" になっており、未読メッセージを自動リファイルし ;; ません。nil ですべてのメッセージが対象になります。 ;(setq wl-summary-auto-refile-skip-marks nil) -;; スコア機能の設定 -;; wl-score-folder-alist の設定に関わらず必ず "all.SCORE" は使用される。 -; (setq wl-score-folder-alist -; '(("^-comp\\." -; "news.comp.SCORE" -; "news.SCORE") -; ("^-" -; "news.SCORE"))) -;; スコアファイルを置くディレクトリ -; (setq wl-score-files-directory "~/.elmo/") - -;;; -;;; end of file -;;; +;;; dot.wl ends here