scroll to most distant future reference

[Emanuel Berg]

;;; -*- lexical-binding: t -*-

(require 'erc)

(defun next-mention (&optional nick)
  (interactive)
  (let ((nck (or nick erc-nick))
        (ori (point))
        (beg (point-min))
        (end (point-max)) )
    (if (re-search-backward (format "<%s>" nck) beg t)
        (goto-char (match-end 0))
      (goto-char beg) )
    (if (re-search-forward nck end t)
        (goto-char (match-beginning 0))
      (goto-char ori) )))
(defalias 'nm #'next-mention)

https://dataswamp.org/~incal/emacs-init/erc/erc-scroll.el

-- 
underground experts united
https://dataswamp.org/~incal