summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
baa2c97)
The tags were coloured using text properties. Unfortunately that text
(the header line) also has an overlay, which overrides the text
properties. There's not point in applying text properties that will
never be seen.
(goto-char (notmuch-show-message-top))
(if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t)
(let ((inhibit-read-only t))
(goto-char (notmuch-show-message-top))
(if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t)
(let ((inhibit-read-only t))
- (replace-match (concat "("
- (propertize (mapconcat 'identity tags " ")
- 'face 'notmuch-tag-face)
- ")"))))))
+ (replace-match (concat "(" (mapconcat 'identity tags " ") ")"))))))
(defun notmuch-show-clean-address (address)
"Try to clean a single email ADDRESS for display. Return
(defun notmuch-show-clean-address (address)
"Try to clean a single email ADDRESS for display. Return
- (propertize (mapconcat 'identity tags " ")
- 'face 'notmuch-tag-face)
+ (mapconcat 'identity tags " ")
")\n")
(overlay-put (make-overlay start (point)) 'face 'notmuch-message-summary-face)))
")\n")
(overlay-put (make-overlay start (point)) 'face 'notmuch-message-summary-face)))