From: yoichi <yoichi>
Date: Fri, 14 Dec 2001 11:10:00 +0000 (+0000)
Subject: escape "." in wl-refile-rule-alist and wl-draft-config-alist
X-Git-Tag: wl-2_8-root~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=64fad05be160a29b3850cc209595a16bacf7428b;p=elisp%2Fwanderlust.git

escape "." in wl-refile-rule-alist and wl-draft-config-alist
(Reported by KURODA Chihiro <chee@subdimension.com>)
---

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index a8a7a0a..c6f54bc 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -2709,9 +2709,9 @@ IMAP のメッセージだけが先読みされます。この変数は
          ("^Wanderlust" . "+wl")
          ("^Elisp" . "+elisp"))
         (("To" "Cc")
-         ("\\([a-z]+\\)@@gohome.org" . "+\\1"))
+         ("\\([a-z]+\\)@@gohome\\.org" . "+\\1"))
         ("From"
-         ("me@@gohome.org" . ("To" ("you@@gohome.org" . 
+         ("me@@gohome\\.org" . ("To" ("you@@gohome\\.org" . 
                                     "+from-me-to-you"))))))
 @end group
 @end lisp
@@ -3894,13 +3894,13 @@ Non-nil ならメッセージバッファで長い行の折り返しをしません。
 @lisp
 @group
 (setq wl-draft-config-alist
-      '(((string-match "aaa.example.com$" (system-name))
+      '(((string-match "aaa\\.example\\.com$" (system-name))
          ;; @r{式がnon-nilなら適用する}
          (wl-smtp-posting-server . "mailserver-B")
          (wl-nntp-posting-server . "newsserver-B")
          ;; @r{一時的な変数の設定}
          )
-        ("^To: .*user@@aaa.bbb.example.com"
+        ("^To: .*user@@aaa\\.bbb\\.example\\.com"
          ;; @r{ドラフトバッファのヘッダにマッチすれば適用する}
          ("Organization" . (format "Go %s" my-webpage)))
                            ;; @r{elisp 式が書ける (eval しているだけ)}
diff --git a/doc/wl.texi b/doc/wl.texi
index 25cb748..75521ca 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -2711,9 +2711,9 @@ Following is an example of @code{wl-refile-rule-alist}.
          ("^Wanderlust" . "+wl")
          ("^Elisp" . "+elisp"))
         (("To" "Cc")
-         ("\\([a-z]+\\)@@gohome.org" . "+\\1"))
+         ("\\([a-z]+\\)@@gohome\\.org" . "+\\1"))
         ("From"
-         ("me@@gohome.org" . ("To" ("you@@gohome.org" .
+         ("me@@gohome\\.org" . ("To" ("you@@gohome\\.org" .
                                     "+from-me-to-you"))))))
 @end group
 @end lisp
@@ -3916,13 +3916,13 @@ before sending the message.
 @lisp
 @group
 (setq wl-draft-config-alist
-      '(((string-match "aaa.example.com$" (system-name))
+      '(((string-match "aaa\\.example\\.com$" (system-name))
          ;; @r{applied if the expression is non-nil}
          (wl-smtp-posting-server . "mailserver-B")
          (wl-nntp-posting-server . "newsserver-B")
          ;; @r{settings of temporary variables}
          )
-        ("^To: .*user@@aaa.bbb.example.com"
+        ("^To: .*user@@aaa\\.bbb\\.example\\.com"
          ;; @r{applied if it matches the header of the draft buffer}
          ("Organization" . (format "Go %s" my-webpage)))
                        ;; @r{you can write elisp expressions here (eval only)}