- (ring-insert riece-channel-history last)))
- (if (memq 'riece-guess riece-addons)
- (add-hook 'riece-guess-channel-try-functions
- 'riece-guess-channel-from-history)))
+ (if (and last
+ (not (riece-identity-equal last riece-current-channel)))
+ (ring-insert riece-channel-history last))))
+ (add-hook 'riece-format-channel-list-line-functions
+ 'riece-history-format-channel-list-line)
+ (if (memq 'riece-highlight riece-addons)
+ (setq riece-channel-list-mark-face-alist
+ (cons '(?+ . riece-channel-list-history-face)
+ riece-channel-list-mark-face-alist)))
+;;; (if (memq 'riece-guess riece-addons)
+;;; (add-hook 'riece-guess-channel-try-functions
+;;; 'riece-guess-channel-from-history))
+ )