X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=samples%2Fja%2Fdot.wl;h=65b2372c3f2e936dd4fa356022a470b9727642bf;hb=1cdcd8c0ae40c65825ed4d313f11c2f9123ff763;hp=2653803831b0c18241cd9d23a9b717abc89be845;hpb=f908baf551c1cb8d2e65a5db01312a2dda381845;p=elisp%2Fwanderlust.git diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl index 2653803..65b2372 100644 --- a/samples/ja/dot.wl +++ b/samples/ja/dot.wl @@ -3,14 +3,14 @@ ;; [[ 動作に必要な設定 ]] ;; まず、次の設定を ~/.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, Emacs21 のみ) +;; アイコンを置くディレクトリ ;; XEmacs の package としてインストールされている場合は必要ありません。 -;(setq wl-icon-dir "/usr/local/lib/emacs/etc") +;(setq wl-icon-directory "/usr/local/lib/emacs/etc") ;; [[ SEMI の設定 ]] @@ -31,6 +31,10 @@ ;; From: の設定 ;(setq wl-from "Your Name ") +;; (system-name) が FQDN を返さない場合、 +;; `wl-local-domain' にホスト名を除いたドメイン名を設定してください。 +;(setq wl-local-domain "example.com") + ;; 自分のメールアドレスのリスト (setq wl-user-mail-address-list (list (wl-address-header-extract-address wl-from) @@ -46,15 +50,6 @@ ;; "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") - - ;;; [[ サーバの設定 ]] ;; IMAP サーバの設定 @@ -102,7 +97,7 @@ ;; 長い行を切り縮める ;(setq wl-message-truncate-lines t) ;(setq wl-draft-truncate-lines t) -;; XEmacs の場合、以下が必要 +;; XEmacs (21.4.6 より前) の場合、以下も必要。 ;(setq truncate-partial-width-windows nil) ;; ドラフトを新しいフレームで書く @@ -150,7 +145,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) @@ -189,38 +184,13 @@ ;; 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)) - (setq sequence (elmo-msgdb-overview-entity-get-extra-field - entity "x-sequence") - ml-name (or (elmo-msgdb-overview-entity-get-extra-field - entity "x-ml-name") - (and sequence - (car (split-string sequence " ")))) - ml-count (or (elmo-msgdb-overview-entity-get-extra-field - entity "x-mail-count") - (elmo-msgdb-overview-entity-get-extra-field - entity "x-ml-count") - (and sequence - (cadr (split-string sequence " "))))) - (if (string-match - "^\\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))) +(setq wl-summary-line-format "%n%T%P%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %#%~%s") +;; フォルダ毎にサマリの表示形式を変える設定 +;(setq wl-folder-summary-line-format-alist +; '(("^%inbox\\.emacs\\.wl$" . +; "%-5l%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s") +; ("^%" . "%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s") +; ("^+" . "%n%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s"))) ;; imput により非同期で送信する ;; (utils/im-wl.el をインストールしておく必要があります。 @@ -232,41 +202,53 @@ ;; 短い User-Agent: フィールドを使う ;(setq wl-generate-mailer-string-function -; (function -; (lambda () -; (concat "User-Agent: " -; (wl-generate-user-agent-string-1 nil))))) +; 'wl-generate-user-agent-string-1) + + +;; 変更されたドラフトがあれば 20 秒ごとに自動保存する。 +;(defun my-wl-auto-save-draft-buffers () +; (let ((buffers (wl-collect-draft))) +; (save-excursion +; (while buffers +; (set-buffer (car buffers)) +; (if (buffer-modified-p) (wl-draft-save)) +; (setq buffers (cdr buffers)))))) +;(run-with-idle-timer 20 t 'my-wl-auto-save-draft-buffers) + +;; PGP で暗号化する時に自分の公開鍵も含める。 +;; (そのメッセージを自分でも読めるように) +;(setq pgg-encrypt-for-me t) ;;; [[ テンプレート ]] ;; テンプレートの設定 -(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-function ; 関数 - ("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 @@ -291,21 +273,38 @@ ;; "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-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)) +; (wl-draft-self-reply-p . (("To") ("Cc") nil)) +; ("From" . (("From") nil nil)))) + +;; 2.11.0 以前のデフォルト設定 +;(setq wl-draft-reply-without-argument-list +; '(((wl-draft-self-reply-p +; "Followup-To") . (("To") ("Cc") ("Followup-To"))) +; ((wl-draft-self-reply-p +; "Newsgroups") . (("To") ("Cc") ("Newsgroups"))) +; ((wl-draft-self-reply-p +; "From") . (("To") ("Cc") nil)) +; ("Followup-To" . (nil nil ("Followup-To"))) +; ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) +; ("Reply-To" . (("Reply-To") ("To" "Cc" "From") ("Newsgroups"))) +; ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) +;(setq wl-draft-reply-with-argument-list +; '(((wl-draft-self-reply-p +; "Followup-To") . (("To") ("Cc") ("Followup-To"))) +; ((wl-draft-self-reply-p +; "Newsgroups") . (("To") ("Cc") ("Newsgroups"))) +; ((wl-draft-self-reply-p +; "From") . (("To") ("Cc") nil)) +; ("Reply-To" . (("Reply-To") nil nil)) +; ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) +; ("From" . (("From") nil nil)))) ;;; [[ メッセージ表示の設定 ]] @@ -323,15 +322,23 @@ (setq wl-message-visible-field-list '("^Message-Id:")) -;; X-Face を表示する (要 x-face or bitamap-mule) +;; X-Face を表示する (when window-system - (cond ((and (featurep 'xemacs) ; for XEmacs + (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 Mule (GNU Emacs) + + ;; 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) - ;; for x-face-mule distributed with bitmap-mule 8.0 or later + ;; 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)) )) @@ -353,7 +360,7 @@ ; ("^Wanderlust" . "+wl") ; ("^Elisp" . "+elisp")) ; ("From" -; ("teranisi@isl.ntt.co.jp" . "+teranisi")))) +; ("foo@example\\.com" . "+foo")))) ;; 自動リファイルしない永続マークを設定 ;; 標準では "N" "U" "!" になっており、未読メッセージを自動リファイルし