- (save-excursion (end-of-line) (setq eol (point)))
- (if smark
- (setq status-mark smark)
- (setq looked-at (looking-at sregexp))
- (setq status-mark (buffer-substring (match-beginning 2)
- (match-end 2))))
- (when temp-too
- (unless looked-at
- (setq looked-at (looking-at sregexp)))
- (when looked-at
- (setq temp-mark (buffer-substring (match-beginning 1)
- (match-end 1)))
- (cond
- ((string= temp-mark "*")
- (setq fsymbol 'wl-highlight-summary-temp-face))
- ((string= temp-mark "D")
- (setq fsymbol 'wl-highlight-summary-deleted-face))
- ((string= temp-mark "O")
- (setq fsymbol 'wl-highlight-summary-copied-face))
- ((string= temp-mark "o")
- (setq fsymbol 'wl-highlight-summary-refiled-face)))))
- (if (not fsymbol)
- (cond
- ((and (string= temp-mark "+")
- (member status-mark (list wl-summary-unread-cached-mark
- wl-summary-unread-uncached-mark
- wl-summary-new-mark)))
- (setq fsymbol 'wl-highlight-summary-high-unread-face))
- ((and (string= temp-mark "-")
- (member status-mark (list wl-summary-unread-cached-mark
- wl-summary-unread-uncached-mark
- wl-summary-new-mark)))
- (setq fsymbol 'wl-highlight-summary-low-unread-face))
- ((string= status-mark wl-summary-new-mark)
- (setq fsymbol 'wl-highlight-summary-new-face))
- ((member status-mark (list wl-summary-unread-cached-mark
- wl-summary-unread-uncached-mark))
- (setq fsymbol 'wl-highlight-summary-unread-face))
- ((string= status-mark wl-summary-important-mark)
- (setq fsymbol 'wl-highlight-summary-important-face))
- ;; score mark
- ((string= temp-mark "-")
- (setq fsymbol 'wl-highlight-summary-low-read-face))
- ((string= temp-mark "+")
- (setq fsymbol 'wl-highlight-summary-high-read-face))
- ;;
- (t (if (and looked-at
- (string= (buffer-substring
- (match-beginning 3)
- (match-end 3)) ""))
- (setq fsymbol 'wl-highlight-summary-thread-top-face)
- (setq fsymbol 'wl-highlight-summary-normal-face)))))
- (put-text-property bol eol 'face fsymbol)
- (if wl-use-highlight-mouse-line
- (put-text-property bol;(1- (match-end 0))
- eol 'mouse-face 'highlight))
-; (put-text-property (match-beginning 3) (match-end 3)
-; 'face 'wl-highlight-thread-indent-face)
- ;; Dnd stuff.
- (if wl-use-dnd
- (wl-dnd-set-drag-starter bol eol)))))
-
-(defun-hilit2 wl-highlight-folder (start end)
+ (setq spec (wl-highlight-summary-line-face-spec
+ (elmo-message-flags wl-summary-buffer-elmo-folder
+ number)
+ (wl-summary-temp-mark)
+ (wl-thread-entity-get-parent-entity
+ (wl-thread-get-entity number))))
+ (when (car spec)
+ (put-text-property bol eol 'face (car spec)))
+ (when (cdr spec)
+ (put-text-property (next-single-property-change
+ (next-single-property-change
+ bol 'wl-summary-action-argument
+ nil eol)
+ 'wl-summary-action-argument nil eol)
+ eol
+ 'face
+ 'wl-highlight-action-argument-face))
+ (when wl-use-highlight-mouse-line
+ (put-text-property bol eol 'mouse-face 'highlight))
+ (when wl-use-flag-folder-help-echo
+ (wl-highlight-summary-line-flag-folder number bol eol))
+ (when wl-use-dnd
+ (wl-dnd-set-drag-starter bol eol)))))
+
+(defun wl-highlight-folder (start end)