* etc/icons/*.xbm: Replaced "-" with "_" to make them can be handled by

[elisp/wanderlust.git] / wl / wl-highlight.el

diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
index de046e9..bbb0e1f 100644 (file)
--- a/wl/wl-highlight.el
+++ b/wl/wl-highlight.el
@@ -1,4 +1,4 @@
-;;; wl-highlight.el -- Hilight modules for Wanderlust.
+;;; wl-highlight.el --- Hilight modules for Wanderlust.
 
 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
@@ -886,7 +886,7 @@
       (put-text-property bol eol 'face fsymbol)
       (when dest
        (put-text-property (next-single-property-change
-                           (next-single-property-change 
+                           (next-single-property-change
                             bol 'wl-summary-destination
                             nil eol)
                            'wl-summary-destination nil eol)
@@ -1032,36 +1032,10 @@ This function is defined for `window-scroll-functions'"
                 (point-max))))
     (wl-highlight-message beg end nil)
     (unless for-draft
-      (wl-highlight-message-add-buttons-to-header beg end)
       (when wl-highlight-x-face-function
        (funcall wl-highlight-x-face-function)))
     (run-hooks 'wl-highlight-headers-hook)))
 
-(defun wl-highlight-message-add-buttons-to-header (start end)
-  (save-excursion
-    (save-restriction
-      (narrow-to-region start end)
-      (let ((case-fold-search t)
-           (alist wl-highlight-message-header-button-alist)
-           entry)
-       (while alist
-         (setq entry (car alist)
-               alist (cdr alist))
-         (goto-char (point-min))
-         (while (re-search-forward (car entry) nil t)
-           (setq start (match-beginning 0)
-                 end (if (re-search-forward "^[^ \t]" nil t)
-                         (match-beginning 0)
-                       (point-max)))
-           (goto-char start)
-           (while (re-search-forward (nth 1 entry) end t)
-             (goto-char (match-end 0))
-             (wl-message-add-button
-              (match-beginning (nth 2 entry))
-              (match-end (nth 2 entry))
-              (nth 3 entry) (match-string (nth 4 entry))))
-           (goto-char end)))))))
-
 (defun wl-highlight-body-all ()
   (wl-highlight-message (point-min) (point-max) t t))