gistfile1.el

(defun wl-highlight-message-reverse-citation ()
  "Highlight citation prefix only, and unhighlight those messages."
  (goto-char (point-min))
  (while (not (eobp))
    (goto-char (or (next-single-property-change (point) 'face) (point-max)))
    (let ((face (get-text-property (point) 'face)))
      (when (memq face wl-highlight-citation-face-list)
	(put-text-property (point) (save-excursion (forward-line) (point)) 'face nil)
	(put-text-property (line-beginning-position) (point) 'face face)
	(forward-line)))))

(setq wl-highlight-force-citation-header-regexp "^$")
(add-hook 'wl-highlight-message-hook 'wl-highlight-message-reverse-citation)

(mapatoms
 (lambda (x)
   (when (and (facep x)
              (string-match "^wl-highlight-message-cited-text-[0-9]+"
                            (symbol-name x)))
     (set-face-attribute x nil :weight 'bold))))