* wl-vars.el (wl-message-header-button-alist): Change default

value.
(wl-message-body-button-alist): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4697b11..4e098b0 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-09-21  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-vars.el (wl-message-header-button-alist): Change default
+       value.
+       (wl-message-body-button-alist): Ditto.
+
 2004-09-20  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * wl.el (wl-exit): Run elmo-passwd-alist-clear.

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index c9fd550..d5e3f8c 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1709,7 +1709,7 @@ This variable overwhelm `wl-message-ignored-field-list' settings."
 
 (defcustom wl-message-header-button-alist
   (` (("^\\(References\\|Message-Id\\|In-Reply-To\\):"
-       "<[^>]+>"
+       "<[^>\n ]+>"
        0 wl-message-button-refer-article  0)
       ("^[^:]+:"
        "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)"
@@ -1727,7 +1727,7 @@ This variable overwhelm `wl-message-ignored-field-list' settings."
 
 (defcustom wl-message-body-button-alist
   '(("<mailto:[^>]+>" 0 'ignore 0 1024)
-    ("<[^>]+@[^>]+>" 0 wl-message-button-refer-article 0 1024))
+    ("<[^>\n ]+@[^>\n ]+>" 0 wl-message-button-refer-article 0 1024))
   "Alist of regexps to match buttons in message body."
   :type '(repeat
          (list regexp