diff options
author | Philip Kaludercic <philipk@posteo.net> | 2021-09-29 12:15:18 +0200 |
---|---|---|
committer | Philip Kaludercic <philipk@posteo.net> | 2021-09-29 12:18:54 +0200 |
commit | 1a0f4b3f2352ea5efeac8b3ad704304ed0244f25 (patch) | |
tree | 013ab11d4a7a39efa0251ffe7482290cac4ebc61 /lisp/net/rcirc.el | |
parent | f11f358213da381899a0843559ba2ac9dd014359 (diff) | |
download | emacs-1a0f4b3f2352ea5efeac8b3ad704304ed0244f25.tar.gz |
Remove rcirc-omit-responses-after-join option
The implementation does not work as expected and behaves
unpredictably.
* rcirc.el (rcirc-omit-responses-after-join): Remove option
(rcirc-joined): Remove variable
(rcirc-reconnect): Remove rcirc-joined code
(rcirc-get-buffer-create): Remove rcirc-joined code
(rcirc-print): Remove rcirc-omit-responses-after-join check
* doc/misc/rcirc.texi (Notices): Remove documentation
* etc/NEWS: Remove mention
Diffstat (limited to 'lisp/net/rcirc.el')
-rw-r--r-- | lisp/net/rcirc.el | 21 |
1 files changed, 3 insertions, 18 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index e02d85e21a1..ba7fbbf6b7d 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -195,16 +195,6 @@ If nil, no maximum is applied." "Responses which will be hidden when `rcirc-omit-mode' is enabled." :type '(repeat string)) -(defcustom rcirc-omit-responses-after-join '() - "Types of messages to hide right after joining a channel." - :type '(repeat string) - :version "28.1") - -(defvar-local rcirc-joined nil - "Non-nil means we have just connected. -This is used to hide the message types enumerated in -`rcirc-omit-responses-after-join'.") - (defvar-local rcirc-prompt-start-marker nil "Marker indicating the beginning of the message prompt.") @@ -841,8 +831,7 @@ If QUIET is non-nil, no not emit a message." (dolist (buffer (mapcar #'cdr rcirc-buffer-alist)) (when (buffer-live-p buffer) (with-current-buffer buffer - (setq rcirc-joined (current-time) - mode-line-process ":connecting")))) + (setq mode-line-process ":connecting")))) (let ((nprocess (apply #'rcirc-connect conn-info))) (when (and (< rcirc-failed-attempts rcirc-reconnect-attempts) (eq (process-status nprocess) 'failed)) @@ -1568,8 +1557,7 @@ Create the buffer if it doesn't exist." (with-current-buffer new-buffer (unless (eq major-mode 'rcirc-mode) (rcirc-mode process target)) - (setq mode-line-process nil) - (setq rcirc-joined (current-time))) + (setq mode-line-process nil)) (rcirc-put-nick-channel process (rcirc-nick process) target rcirc-current-line) new-buffer))))) @@ -1970,10 +1958,7 @@ connection." ;; make text omittable (let ((last-activity-lines (rcirc-elapsed-lines process sender target))) (if (and (not (string= (rcirc-nick process) sender)) - (or (member response rcirc-omit-responses) - (and (member response rcirc-omit-responses-after-join) - (< (time-to-seconds (time-since rcirc-joined)) - 1))) + (member response rcirc-omit-responses) (or (not last-activity-lines) (< rcirc-omit-threshold last-activity-lines))) (put-text-property (point-min) (point-max) |