* wl-mime.el (wl-message-button-dispatcher-internal): Rename from

`wl-message-button-dispatcher'.

* tm-wl.el (wl-message-button-dispatcher-internal): Ditto.

* wl-message.el (wl-message-button-dispatcher): Use it.

* wl-vars.el (wl-highlight-message-header-button-alist): Add
"In-Reply-To".

* wl-highlight.el (wl-highlight-message-add-buttons-to-header):
Bind `case-fold-search' to t.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 63aad23..88c79d7 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,20 @@
 2000-08-28   Daiki Ueno  <ueno@unixuser.org>
 
+       * wl-mime.el (wl-message-button-dispatcher-internal): Rename from
+       `wl-message-button-dispatcher'.
+
+       * tm-wl.el (wl-message-button-dispatcher-internal): Ditto.
+
+       * wl-message.el (wl-message-button-dispatcher): Use it.
+
+       * wl-vars.el (wl-highlight-message-header-button-alist): Add
+       "In-Reply-To".
+
+       * wl-highlight.el (wl-highlight-message-add-buttons-to-header):
+       Bind `case-fold-search' to t.
+
+2000-08-28   Daiki Ueno  <ueno@unixuser.org>
+
        * wl-xmas.el (wl-message-overload-functions): Initialize
        `wl-message-button-map'.
 

diff --git a/wl/tm-wl.el b/wl/tm-wl.el
index beb8277..4186f60 100644 (file)
--- a/wl/tm-wl.el
+++ b/wl/tm-wl.el
@@ -110,7 +110,8 @@ By setting following-method as yank-content."
 (defalias 'wl-message-play-content    'mime-viewer/play-content)
 (defalias 'wl-message-extract-content 'mime-viewer/extract-content)
 (defalias 'wl-message-quit            'mime-viewer/quit)
-(defalias 'wl-message-button-dispatcher 'tm:button-dispatcher)
+(defalias 'wl-message-button-dispatcher-internal
+  'tm:button-dispatcher)
 
 ;;; Summary
 (defun wl-summary-burst-subr (children target number)

diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index 216ac44..082261a 100644 (file)
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -1022,7 +1022,8 @@ interpreted as cited text.)"
 (defun wl-highlight-message-add-buttons-to-header (start end)
   (save-restriction
     (narrow-to-region start end)
-    (let ((alist wl-highlight-message-header-button-alist)
+    (let ((case-fold-search t)
+         (alist wl-highlight-message-header-button-alist)
          entry)
       (while alist
        (setq entry (car alist)

diff --git a/wl/wl-message.el b/wl/wl-message.el
index 1096310..5410dbc 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -574,7 +574,8 @@
   (let ((callback (get-text-property (point) 'wl-message-button-callback))
        (data (get-text-property (point) 'wl-message-button-data)))
     (if callback
-       (funcall callback data))))
+       (funcall callback data)
+      (wl-message-button-dispatcher-internal event))))
 
 (defun wl-message-button-refer-article (data)
   "Read article specified by Message-ID DATA at point."
@@ -607,7 +608,7 @@
                 wl-message-buffer-cur-summary-buffer)
                (if (wl-summary-jump-to-msg-by-message-id msg-id)
                    (wl-summary-redisplay)))
-           (wl-message-button-dispatcher e)))
+           (wl-message-button-dispatcher-internal e)))
       (if (eq mouse-window (get-buffer-window (current-buffer)))
          (select-window window)))))
 

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 2837789..608e639 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -202,7 +202,8 @@ By setting following-method as yank-content."
 (defalias 'wl-message-play-content    'mime-preview-play-current-entity)
 (defalias 'wl-message-extract-content 'mime-preview-extract-current-entity)
 (defalias 'wl-message-quit            'mime-preview-quit)
-(defalias 'wl-message-button-dispatcher 'mime-button-dispatcher)
+(defalias 'wl-message-button-dispatcher-internal
+  'mime-button-dispatcher)
 
 ;;; Summary
 (defun wl-summary-burst-subr (children target number)

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index d3159e3..bc91816 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1816,7 +1816,7 @@ list  : reserved specified permanent marks."
   :group 'wl-highlight)
 
 (defcustom wl-highlight-message-header-button-alist
-  `(("^\\(References\\|Message-I[Dd]\\):" "<[^>]+>"
+  `(("^\\(References\\|Message-Id\\|In-Reply-To\\):" "<[^>]+>"
      0 wl-message-button-refer-article 0)
     ("^[^:]+:" "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)"
      1 wl-message-button-refer-article 3))