From 437282f548431cf28789a5d752531d6490f4f0da Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 28 Aug 2000 08:10:11 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 15 +++++++++++++++ wl/tm-wl.el | 3 ++- wl/wl-highlight.el | 3 ++- wl/wl-message.el | 5 +++-- wl/wl-mime.el | 3 ++- wl/wl-vars.el | 2 +- 6 files changed, 25 insertions(+), 6 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 63aad23..88c79d7 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,20 @@ 2000-08-28 Daiki Ueno + * 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 + * 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 --- 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 --- 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 --- 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 --- 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 --- 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)) -- 1.7.10.4