feature/rcirc-update 2ef6691: Add rcirc-track-ignore-server-buffer-flag option

[Philip Kaludercic]

branch: feature/rcirc-update
commit 2ef6691602b9dd93c4fad9cc5e271e0104988a21
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add rcirc-track-ignore-server-buffer-flag option
    
    * rcirc.el (rcirc-track-ignore-server-buffer-flag): Add option
    (rcirc-record-activity): Use rcirc-track-ignore-server-buffer-flag
---
 lisp/net/rcirc.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index a3f87d4..2bdc3d6 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -415,6 +415,11 @@ will be killed."
   :version "28.1"
   :type 'function)
 
+(defcustom rcirc-track-ignore-server-buffer-flag nil
+  "Non-nil means activities in the server buffer are not traced."
+  :version "28.1"
+  :type 'boolean)
+
 (defvar-local rcirc-nick nil
   "The nickname used for the current connection.")
 
@@ -2249,7 +2254,9 @@ activity.  Only run if the buffer is not visible and
   (with-current-buffer buffer
     (let ((old-activity rcirc-activity)
          (old-types rcirc-activity-types))
-      (when (not (get-buffer-window (current-buffer) t))
+      (when (and (not (get-buffer-window (current-buffer) t))
+                 (not (and rcirc-track-ignore-server-buffer-flag
+                           (eq rcirc-server-buffer (current-buffer)))))
        (setq rcirc-activity
              (sort (if (memq (current-buffer) rcirc-activity) rcirc-activity
                       (cons (current-buffer) rcirc-activity))