X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=samples%2Fja%2Fdot.wl;h=01bfee64d86f8ca3e5a7d3474b109670cd7f88d7;hb=af47348cbb8e14f1c6b245bd854db873e1213719;hp=3eb338c4f3c53f503ea1753da0eddcd82a3cc597;hpb=b6a2d32fad8f7d564856d92489427dcd97556952;p=elisp%2Fwanderlust.git diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl index 3eb338c..01bfee6 100644 --- a/samples/ja/dot.wl +++ b/samples/ja/dot.wl @@ -1,78 +1,129 @@ -;;; -*- emacs-lisp -*- -;;; ~/.wl (setting file for Wanderlust) -;;; +;;; dot.wl -- sample setting file for Wanderlust -*- emacs-lisp -*- -;; まず，次の設定を ~/.emacs などに書いてください。 +;; [[ 動作に必要な設定 ]] + +;; まず、次の設定を ~/.emacs などに書いてください。 ;; ここから (require 'mime-setup) (autoload 'wl "wl" "Wanderlust" t) (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t) ;; ここまで +;; アイコンを置くディレクトリ (XEmacs, Emacs21 のみ) +;; XEmacs の package としてインストールされている場合は必要ありません。 +;(setq wl-icon-dir "/usr/local/lib/emacs/etc") + + ;;; [[ 個人情報の設定 ]] -;; From の設定 +;; From: の設定 ;(setq wl-from "Your Name ") -;; Organization の設定 -;(setq wl-organization "") ;; 自分のメールアドレスのリスト (setq wl-user-mail-address-list (list (wl-address-header-extract-address wl-from) - ;;"e-mail2@example.com" ... + ;; "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" ... + )) + -;; MH (localdir) のホーム -(setq elmo-localdir-folder-path "~/Mail") -;; IMAP4サーバの設定 -(setq elmo-default-imap4-server "localhost") -;; POPサーバの設定 -(setq elmo-default-pop3-server "localhost") +;;; [[ サーバの設定 ]] + +;; IMAP サーバの設定 +(setq elmo-imap4-default-server "localhost") +;; POP サーバの設定 +(setq elmo-pop3-default-server "localhost") +;; SMTP サーバの設定 +(setq wl-posting-smtp-server "localhost") ;; ニュースサーバの設定 -(setq elmo-default-nntp-server "localhost") -;; 投稿先の ニュースサーバ -(setq wl-nntp-posting-server elmo-default-nntp-server) -;; メールを送信する先の (SMTP)サーバ -(setq wl-smtp-posting-server "localhost") - -;; アイコンを置くディレクトリ (XEmacs のみ) -;; (XEmacs の package としてインストールされている場合、必要ありません) -;(setq wl-icon-dir "~/work/wl/etc") - -;; (system-name) がFQDNを返さない場合、 -;; 以下をホスト名を除いたドメイン名を設定してください。 -;; ((system-name) "." wl-local-domain が Message-ID の作成、 -;; SMTP の HELO に使用 されます。) -;(setq wl-local-domain "localdomain") +(setq elmo-nntp-default-server "localhost") +;; 投稿先のニュースサーバ +(setq wl-nntp-posting-server elmo-nntp-default-server) + +;; (system-name) が FQDN を返さない場合、 +;; `wl-local-domain' にホスト名を除いたドメイン名を設定してください。 +;; (system-name) "." wl-local-domain が Message-ID に使用されます。 +;(setq wl-local-domain "example.com") + ;; Message-ID のドメインパートを強制的に指定 -;(setq wl-message-id-domain "localhost.localdomain") +;(setq wl-message-id-domain "hostname.example.com") + +;; IMAP サーバの認証方式の設定 +(setq elmo-imap4-default-authenticate-type 'clear) ; 生パスワード +;(setq elmo-imap4-default-authenticate-type 'cram-md5) ; CRAM-MD5 + +;; 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-interactive-exit t) + +;; メール送信時には確認する +(setq wl-interactive-send t) + +;; スレッドは常に開く +;(setq wl-thread-insert-opened t) + +;; サマリバッファの左にフォルダバッファを表示する (3ペイン表示) +;(setq wl-stay-folder-window t) + +;; ドラフトを新しいフレームで書く +;(setq wl-draft-use-frame t) + +;; HTML パートを表示しない +;; (require 'mime-setup) より先に記述する必要があります。 +;(setq mime-setup-enable-inline-html nil) + +;; 大きいメッセージを送信時に分割しない +;(setq mime-edit-split-message nil) + +;; サブジェクトが変わったらスレッドを切って表示 +;(setq wl-summary-divide-thread-when-subject-changed t) + +;; スレッドの見た目を変える +;(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-default-folder "+inbox") ;; wl-summary-goto-folder の時に選択する - ;; デフォルトのフォルダ -;(setq wl-default-spec "+") ;; フォルダ名補完時に使用する - ;; デフォルトのスペック +;; サマリ移動後に先頭メッセージを表示する +;(setq wl-auto-select-first t) -;(setq wl-fcc "+outbox") ;; Folder Carbon Copy +;; サマリ内の移動で未読メッセージがないと次のフォルダに移動する +;(setq wl-auto-select-next t) -(setq wl-interactive-exit t) ;; 終了時に確認する -(setq wl-interactive-send t) ;; メール送信時には確認する +;; 未読がないフォルダは飛ばす(SPCキーだけで読み進める場合は便利) +;(setq wl-summary-next-no-unread 'skip-no-unread) -(setq wl-auto-select-first t) ;; サマリ移動後に先頭メッセージを表示する -(setq wl-auto-select-next t) ;; サマリ内の移動で未読メッセージがないと - ;; 次のフォルダに移動する -;(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-summary-move-order 'unread) -;(setq wl-stay-folder-window t) ;; サマリに移動したときにフォルダバッファ - ;; の右にサマリのバッファを表示する + +;;; [[ ネットワーク ]] ;; フォルダ種別ごとのキャッシュの設定 -;; (localdir, localnews, maildir はキャッシュしない) +;; (localdir, localnews, maildir はキャッシュできない) ;(setq elmo-archive-use-cache nil) ;(setq elmo-nntp-use-cache t) ;(setq elmo-imap4-use-cache t) @@ -83,7 +134,7 @@ ;; unplugged 状態で送信すると，キュー(`wl-queue-folder')に格納する (setq wl-draft-enable-queuing t) -;; unplugged から plugged に変えると，キューにあるメッセージを送信する +;; unplugged から plugged に変えたときに，キューにあるメッセージを送信する (setq wl-auto-flush-queue t) ;; 起動時はオフライン状態にする @@ -99,146 +150,27 @@ ; )) -;; 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")))) - - ;;; [[ 特殊な設定 ]] -;; 自分の参加しているメーリングリストのリスト -(setq wl-subscribed-mailing-list - '("wl@lists.airs.net" - "apel-ja@m17n.org" - ;;"ml@example.com" ... - )) - -;; 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) - )) +;(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) +(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)) @@ -255,7 +187,8 @@ (and sequence (cadr (split-string sequence " "))))) (if (string-match - "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" +;;; "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" + "^\\s(\\(\\S)+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" subject-string) (progn (setq subj (substring subject-string (match-end 0))) @@ -276,19 +209,29 @@ ;; また，~/.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 () +; (wl-generate-user-agent-string-1 nil)))) + + +;;; [[ テンプレート ]] ;; テンプレートの設定 (setq wl-template-alist '(("default" ("From" . wl-from) ("Organization" . "~/.wl sample") - (body . " ○○です。\n")) ;; 本文 + (body . " ○○です。\n")) ; 本文 ("report" ("To" . "boss@example.com") ("Subject" . "報告") - (top . "今週の報告です。\n") ;; 本文先頭への挿入 -;; (bottom-file . "~/work/report.txt") ;; 本文末尾へファイルの挿入 + (top . "今週の報告です。\n") ; 本文先頭への挿入 +;; (bottom-file . "~/work/report.txt") ; 本文末尾へファイルの挿入 ) )) @@ -297,72 +240,80 @@ (setq wl-draft-config-alist '((reply ;; 返信元のバッファを見る "^To: .*\\(test-notsend-wl@lists.airs.net\\)" - (template . "default")) ;; テンプレート + (template . "default")) ; テンプレート ("^To: .*\\(test-notsend-wl@lists.airs.net\\)" - wl-ml-draft-config-func ;; 関数 - ("From" . wl-from) ;; 変数 - ("Organization" . "~/.wl sample")) ;; 文字列 + wl-ml-draft-config-function ; 関数 + ("From" . wl-from) ; 変数 + ("Organization" . "~/.wl sample")) ; 文字列 ("^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"))))) +(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 + (cond (wl-on-xemacs ;; for XEmacs (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t) - (setq wl-highlight-x-face-func + (setq wl-highlight-x-face-function '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 + ;; for Mule (GNU Emacs) + ((module-installed-p 'x-face-mule) + ;; x-face-mule 0.20以降 + (setq wl-highlight-x-face-function (function - (lambda (&optional beg end) ; for compatibility + (lambda (&rest dummy) (x-face-decode-message-header)))) - (setq x-face-mule-highlight-x-face-style 'xmas) - (require 'x-face-mule) - ))) + (require 'x-face-mule)) + )) ;; 自動リファイルのルール設定 ;(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" +; ("teranisi@isl.ntt.co.jp" . "+teranisi")))) ;; 自動リファイルしない永続マークを設定 ;; 標準では "N" "U" "!" になっており、未読メッセージを自動リファイルし @@ -370,16 +321,15 @@ ;(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"))) -;; スコアファイルを置くディレクトリ +;; `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