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 (file)
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -2709,9 +2709,9 @@ IMAP \e$B$N%a%C%;!<%8$@$1$,@hFI$_$5$l$^$9!#$3$NJQ?t$O\e(B
          ("^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 \e$B$J$i%a%C%;!<%8%P%C%U%!$GD9$$9T$N@^$jJV$7$r$7$^$;$s!#\e(B
 @lisp
 @group
 (setq wl-draft-config-alist
-      '(((string-match "aaa.example.com$" (system-name))
+      '(((string-match "aaa\\.example\\.com$" (system-name))
          ;; @r{\e$B<0$,\e(Bnon-nil\e$B$J$iE,MQ$9$k\e(B}
          (wl-smtp-posting-server . "mailserver-B")
          (wl-nntp-posting-server . "newsserver-B")
          ;; @r{\e$B0l;~E*$JJQ?t$N@_Dj\e(B}
          )
-        ("^To: .*user@@aaa.bbb.example.com"
+        ("^To: .*user@@aaa\\.bbb\\.example\\.com"
          ;; @r{\e$B%I%i%U%H%P%C%U%!$N%X%C%@$K%^%C%A$9$l$PE,MQ$9$k\e(B}
          ("Organization" . (format "Go %s" my-webpage)))
                            ;; @r{elisp \e$B<0$,=q$1$k\e(B (eval \e$B$7$F$$$k$@$1\e(B)}

diff --git a/doc/wl.texi b/doc/wl.texi
index 25cb748..75521ca 100644 (file)
--- 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)}