X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=samples%2Fja%2Fdot.wl;h=f74d9d511892fae91eec3d40505ebbe1c9556b27;hb=cb7a868adb505554a154cbc9f8df471ea4a58850;hp=57fc7a66cf93f2868425ea5c2b5a94ac1e893dd0;hpb=ef7ba101a28489931c368a494c621fad3e8289a2;p=elisp%2Fwanderlust.git

diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index 57fc7a6..f74d9d5 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 の設定 ]]
@@ -54,6 +54,10 @@
 ;; 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)
 
 ;;; [[ サーバの設定 ]]
 
@@ -102,12 +106,16 @@
 ;; 長い行を切り縮める
 ;(setq wl-message-truncate-lines t)
 ;(setq wl-draft-truncate-lines t)
-;; XEmacs の場合、以下が必要
+;; 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)
 
@@ -146,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)
@@ -176,9 +184,8 @@
 
 ;; サマリ表示関数を変更する
 
-;; サマリ表示において使用する情報を持つフィールドをoverview情報に
-;; 入れる設定(ただし，localフォルダのみ)
-;; 自動リファイルに必要なフィールドも設定
+;; `elmo-msgdb-overview-entity-get-extra-field' で参照したいフィールド。
+;; 自動リファイルで参照したいフィールドも設定する。
 (setq elmo-msgdb-extra-fields
       '("newsgroups"
 	"list-id" "x-ml-name" "mailing-list"
@@ -186,38 +193,8 @@
 
 ;; 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 "%M/%D(%W)%h:%m %t%[%17F %] %#%~%s")
+;(setq wl-summary-line-format "%M/%D %h:%m %-4S %[ %17f %] %t%C%#%~%s")
 
 ;; imput により非同期で送信する
 ;; (utils/im-wl.el をインストールしておく必要があります。
@@ -229,41 +206,49 @@
 
 ;; 短い 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)
 
 
 ;;; [[ テンプレート ]]
 
 ;; テンプレートの設定
-(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
@@ -288,21 +273,21 @@
 ;; "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))))
+;(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")))))
 
 
 ;;; [[ メッセージ表示の設定 ]]
@@ -320,15 +305,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))
 	))
@@ -350,7 +343,7 @@
 ;	 ("^Wanderlust" . "+wl")
 ;	 ("^Elisp" . "+elisp"))
 ;	("From"
-;	 ("teranisi@isl.ntt.co.jp" . "+teranisi"))))
+;	 ("foo@example\\.com" . "+foo"))))
 
 ;; 自動リファイルしない永続マークを設定
 ;; 標準では "N" "U" "!" になっており、未読メッセージを自動リファイルし