X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=samples%2Fja%2Fdot.wl;h=20c0198276cb696e3f14d61bbca2c6896cd70f25;hb=4adbabb1c181bc6d050f6a53c12c79f36ba4a4c9;hp=b0f79fe34ce677550d9ba6a7701ecfc02780b5f7;hpb=13cf5534fde3a1dae201e7b5c58d557de0246540;p=elisp%2Fwanderlust.git diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl index b0f79fe..20c0198 100644 --- a/samples/ja/dot.wl +++ b/samples/ja/dot.wl @@ -3,15 +3,27 @@ ;; [[ 動作に必要な設定 ]] ;; まず、次の設定を ~/.emacs などに書いてください。 -;; ここから -(require 'mime-setup) +;; 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, Emacs21 のみ) +;; アイコンを置くディレクトリ ;; XEmacs の package としてインストールされている場合は必要ありません。 -;(setq wl-icon-dir "/usr/local/lib/emacs/etc") +;(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) ;;; [[ 個人情報の設定 ]] @@ -34,34 +46,38 @@ ;; "ml@example.com" ... )) +;; (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 "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-default-imap4-server "localhost") +(setq elmo-imap4-default-server "localhost") ;; POP サーバの設定 -(setq elmo-default-pop3-server "localhost") +(setq elmo-pop3-default-server "localhost") ;; SMTP サーバの設定 (setq wl-smtp-posting-server "localhost") ;; ニュースサーバの設定 -(setq elmo-default-nntp-server "localhost") +(setq elmo-nntp-default-server "localhost") ;; 投稿先のニュースサーバ -(setq wl-nntp-posting-server elmo-default-nntp-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 "hostname.example.com") +(setq wl-nntp-posting-server elmo-nntp-default-server) ;; IMAP サーバの認証方式の設定 -(setq elmo-default-imap4-authenticate-type 'clear) ; 生パスワード -;(setq elmo-default-imap4-authenticate-type 'cram-md5) ; CRAM-MD5 +(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-func 'wl-draft-send-mail-with-pop-before-smtp) +;(setq wl-draft-send-mail-function 'wl-draft-send-mail-with-pop-before-smtp) ;;; [[ 基本的な設定 ]] @@ -87,19 +103,24 @@ ;; サマリバッファの左にフォルダバッファを表示する (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) -;; HTML パートを表示しない -;(setq mime-setup-enable-inline-html nil) - -;; 大きいメッセージを送信時に分割しない -;(setq mime-edit-split-message nil) +;; スレッド表示のインデントを無制限にする。 +;(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 "|" @@ -113,11 +134,15 @@ ;(setq wl-auto-select-next t) ;; 未読がないフォルダは飛ばす(SPCキーだけで読み進める場合は便利) -;(setq wl-summary-next-no-unread 'skip-no-unread) +;(setq wl-auto-select-next 'skip-no-unread) ;; 未読メッセージを優先的に読む ;(setq wl-summary-move-order 'unread) +;; 着信通知の設定 +;(setq wl-biff-check-folder-list '("%inbox")) +;(setq wl-biff-notify-hook '(ding)) + ;;; [[ ネットワーク ]] @@ -129,7 +154,7 @@ ;(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) @@ -159,17 +184,16 @@ ;; サマリ表示関数を変更する -;; サマリ表示において使用する情報を持つフィールドをoverview情報に -;; 入れる設定(ただし，localフォルダのみ) -;; 自動リファイルに必要なフィールドも設定 -(setq elmo-msgdb-extra-fields '("newsgroups" - "x-ml-name" "list-id" - "x-mail-count" "x-ml-count" "x-sequence" - "mailing-list")) +;; `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-func 'my-wl-summary-subject-func-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)) @@ -186,67 +210,69 @@ (and sequence (cadr (split-string sequence " "))))) (if (string-match -;;; "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*" - "^\\s(\\(\\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-func +;(setq wl-generate-mailer-string-function ; (function ; (lambda () -; (wl-generate-user-agent-string-1 nil)))) +; (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@example.com") - ("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 @@ -288,36 +314,41 @@ ("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)) - ;; for Mule (GNU Emacs) - ((module-installed-p 'x-face-mule) - ;; x-face-mule 0.20以後 - (setq wl-highlight-x-face-func - (function - (lambda (&rest dummy) - (x-face-decode-message-header)))) - (require 'x-face-mule) - ))) +;;; [[ メッセージ表示の設定 ]] -;; 自動リファイルのルール設定 -;(setq wl-refile-rule-alist -; '( -; ("x-ml-name" -; ("^Wanderlust" . "+wl") -; ("^Elisp" . "+elisp")) -; ("From" -; ("teranisi@isl.ntt.co.jp" . "+teranisi")))) +;; 隠したいヘッダの設定 +(setq wl-message-ignored-field-list + '(".*Received:" ".*Path:" ".*Id:" "^References:" + "^Replied:" "^Errors-To:" + "^Lines:" "^Sender:" ".*Host:" "^Xref:" + "^Content-Type:" "^Precedence:" + "^Status:" "^X-VM-.*:")) -;; 自動リファイルしない永続マークを設定 -;; 標準では "N" "U" "!" になっており、未読メッセージを自動リファイルし -;; ません。nil ですべてのメッセージが対象になります。 -;(setq wl-summary-auto-refile-skip-marks nil) +;; 表示するヘッダの設定 +;; '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" は使用される。 @@ -328,7 +359,19 @@ ; ("^-" ; "news.SCORE"))) -;; スコアファイルを保存するディレクトリ -; (setq wl-score-files-directory "~/.elmo/") + +;; 自動リファイルのルール設定 +;(setq wl-refile-rule-alist +; '( +; ("x-ml-name" +; ("^Wanderlust" . "+wl") +; ("^Elisp" . "+elisp")) +; ("From" +; ("foo@example\\.com" . "+foo")))) + +;; 自動リファイルしない永続マークを設定 +;; 標準では "N" "U" "!" になっており、未読メッセージを自動リファイルし +;; ません。nil ですべてのメッセージが対象になります。 +;(setq wl-summary-auto-refile-skip-marks nil) ;;; dot.wl ends here