escape "." in wl-refile-rule-alist and wl-draft-config-alist.

(Reported by KURODA Chihiro <chee@subdimension.com>)

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 8d5681f..62bedd0 100644 (file)
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -257,9 +257,9 @@
 ;; Change headers in draft sending time.
 (setq wl-draft-config-alist
       '((reply         ;; see reply buffer
-        "^To: .*\\(test-notsend-wl@lists.airs.net\\)"
+        "^To: .*test-notsend-wl@lists\\.airs\\.net"
         (template . "default"))                ;; template
-       ("^To: .*\\(test-notsend-wl@lists.airs.net\\)"
+       ("^To: .*test-notsend-wl@lists\\.airs\\.net"
         wl-ml-draft-config-function            ;; function
         ("From" . wl-from)                     ;; variable
         ("Organization" . "~/.wl sample"))     ;; string
@@ -353,7 +353,7 @@
 ;       ("^Wanderlust" . "+wl")
 ;       ("^Elisp" . "+elisp"))
 ;      ("From"
-;       ("teranisi@isl.ntt.co.jp" . "+teranisi"))))
+;       ("foo@example\\.com" . "+foo"))))
 
 ;; 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 4897fda..fbfa3cd 100644 (file)
--- a/samples/ja/dot.wl
+++ b/samples/ja/dot.wl
@@ -258,9 +258,9 @@
 ;; \e$BF0E*$KJQ99$9$k\e(B
 (setq wl-draft-config-alist
       '((reply                 ;; \e$BJV?.85$N%P%C%U%!$r8+$k\e(B
-        "^To: .*\\(test-notsend-wl@lists.airs.net\\)"
+        "^To: .*test-notsend-wl@lists\\.airs\\.net"
         (template . "default"))        ; \e$B%F%s%W%l!<%H\e(B
-       ("^To: .*\\(test-notsend-wl@lists.airs.net\\)"
+       ("^To: .*test-notsend-wl@lists\\.airs\\.net"
         wl-ml-draft-config-function    ; \e$B4X?t\e(B
         ("From" . wl-from)             ; \e$BJQ?t\e(B
         ("Organization" . "~/.wl sample")) ; \e$BJ8;zNs\e(B
@@ -361,7 +361,7 @@
 ;       ("^Wanderlust" . "+wl")
 ;       ("^Elisp" . "+elisp"))
 ;      ("From"
-;       ("teranisi@isl.ntt.co.jp" . "+teranisi"))))
+;       ("foo@example\\.com" . "+foo"))))
 
 ;; \e$B<+F0%j%U%!%$%k$7$J$$1JB3%^!<%/$r@_Dj\e(B
 ;; \e$BI8=`$G$O\e(B "N" "U" "!" \e$B$K$J$C$F$*$j!"L$FI%a%C%;!<%8$r<+F0%j%U%!%$%k$7\e(B