From dda569d6020886fe02e02ee61ce8a4b3c620536e Mon Sep 17 00:00:00 2001
From: kaoru <kaoru>
Date: Sun, 8 Jul 2001 00:15:33 +0000
Subject: [PATCH] Fixed `mime-setup-enable-inline-html' comments.

---
 samples/en/dot.wl |   13 +++++++------
 samples/ja/dot.wl |   27 ++++++++++++++-------------
 2 files changed, 21 insertions(+), 19 deletions(-)

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index bad17f4..217264d 100644
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -91,6 +91,7 @@
 ;(setq wl-draft-use-frame t)
 
 ;; Disable inline display HTML part.
+;; Put before (require 'mime-setup)
 ;(setq mime-setup-enable-inline-html nil)
 
 ;; Don't split large message.
@@ -182,7 +183,7 @@
 			    (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)))
@@ -296,11 +297,11 @@
 ;; rule for auto refile.
 ;(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"))))
 
 ;; Marks to skip auto-refile (default is "N" "U" "!").
 ;; nil means all message is auto-refiled.
diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
index b0f79fe..3f4c8f2 100644
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -91,6 +91,7 @@
 ;(setq wl-draft-use-frame t)
 
 ;; HTML パートを表示しない
+;; (require 'mime-setup) より先に記述する必要があります。
 ;(setq mime-setup-enable-inline-html nil)
 
 ;; 大きいメッセージを送信時に分割しない
@@ -187,7 +188,7 @@
 			    (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)))
@@ -225,12 +226,12 @@
       '(("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") ; 本文末尾へファイルの挿入
 	 )
 	))
 
@@ -239,11 +240,11 @@
 (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-func	; 関数
+	 ("From" . wl-from)		; 変数
+	 ("Organization" . "~/.wl sample")) ; 文字列
 	("^Newsgroups: test.*"
 	 ("Organization" . "ニュース投稿時の組織名"))
 	))
@@ -308,11 +309,11 @@
 ;; 自動リファイルのルール設定
 ;(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" "!" になっており、未読メッセージを自動リファイルし
-- 
1.7.10.4