"J.P." <jp@HIDDEN>
to control <at> debbugs.gnu.org
.
Full text available.Received: (at 70127) by debbugs.gnu.org; 2 Apr 2024 18:23:55 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Tue Apr 02 14:23:55 2024 Received: from localhost ([127.0.0.1]:56318 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1rrinX-0004Pq-N2 for submit <at> debbugs.gnu.org; Tue, 02 Apr 2024 14:23:55 -0400 Received: from mail-108-mta201.mxroute.com ([136.175.108.201]:37079) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <jp@HIDDEN>) id 1rrinU-0004PX-8r for 70127 <at> debbugs.gnu.org; Tue, 02 Apr 2024 14:23:50 -0400 Received: from filter006.mxroute.com ([136.175.111.2] filter006.mxroute.com) (Authenticated sender: mN4UYu2MZsgR) by mail-108-mta201.mxroute.com (ZoneMTA) with ESMTPSA id 18ea00d77a90003bea.001 for <70127 <at> debbugs.gnu.org> (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384); Tue, 02 Apr 2024 18:23:40 +0000 X-Zone-Loop: f21e0b5fedab5c01993d0098b095e0b053151243922f X-Originating-IP: [136.175.111.2] DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=neverwas.me ; s=x; h=Content-Type:MIME-Version:Message-ID:Date:References:In-Reply-To: Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=JneM+YKufMwnfxGUwRPR3GGAq81+cBp+6vKmW6BN2dw=; b=YLfAu0vlyql22qhb3xFLFwTC+I zmQkEB+CJQ/va0bdWiypweHbgyEFUZDT3E9pgUK8ZGz61d5v5V9jp3uEqWUQvYCaG0j+8MrW0IbfF URhLkWLkpBoDDO0E7xct7eQVy65ck3rZggFLmM9fIUjM7ds3ZyRpLY0Ay+GbNY8IkZse8CgX3PFBz VG0DV4NyVvzHx8BkGiuDKjZ6EsH9yob93FdRBez+sdB/wUz+15GP6rYNybuJbSLip09CfA5YG51Ru 8/Lo+e8rewzY/ZnbFSIiaLRaHqkYiMdhEh0FtKrrygUloiYO1gTXbMGwzEbWobO6X0Y+n28SKcSGV FT77QTcw==; From: "J.P." <jp@HIDDEN> To: Alcor <alcor@HIDDEN> Subject: Re: bug#70127: 29.3; ERC 5.6-git: /ignore timeouts are not cancelled/reset In-Reply-To: <87y19xarh5.fsf@HIDDEN> (Alcor via General discussion about's message of "Mon, 01 Apr 2024 20:05:26 +0200") References: <87y19xarh5.fsf@HIDDEN> Date: Tue, 02 Apr 2024 11:23:37 -0700 Message-ID: <87edbnei8m.fsf@HIDDEN> User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Authenticated-Id: masked@HIDDEN X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 70127 Cc: 70127 <at> debbugs.gnu.org, emacs-erc@HIDDEN X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -1.0 (-) --=-=-= Content-Type: text/plain Alcor via General discussion about ERC <emacs-erc@HIDDEN> writes: > Severity: wishlist > > On Erc (5.6snapshot0.20240323.151032): > > 1. /IGNORE a specific nick with an explicit timeout (e.g. 5m) > 2. /IGNORE the same nick again with a different timeout (e.g. 10m) > > Expected behavior: > > The /IGNORE'ed nick is unignored after 10 minutes. > > Observed behavior: > > The /IGNORE'ed nick is unignored after 5 minutes, afterwhich it is > unignored again after 10 minutes. The latter command is a no-op though, > as the nick would be already unignored at that point. I'm taking the liberty of "extending" this bug to include a somewhat related issue. I suppose that's bad practice, but it'll allow us to roll the original request into the fix without much hassle. From Emacs -Q: 1. M-x erc RET localhost RET RET RET RET 2. /ignore foo RET 3. Hit RET to forgo adding a timer (doesn't impact result) 4. /unignore fool RET ; note the trailing "l" 5. Answer "y" when asked whether to remove "foo" 6. /ignore RET 7. Notice "foo" is still listed and still appears in `erc-ignore-list' The attached patch tries to address this issue as well as the original UX problem regarding rustic timeout handling, with ideas borrowed from Alcor's gist shared on the emacs-erc list. Not to keep harping on this, but I'd much rather we rewrite the ignore and lurker stuff completely and move it to a new module in a new file. Anyone feeling up to the challenge, please step forward. Thanks. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-5.6-Allow-updating-of-IGNORE-timeouts-in-ERC.patch From 61d5b7ae9eb7adb1b04383dae1498c957f0608b5 Mon Sep 17 00:00:00 2001 From: "F. Jason Park" <jp@HIDDEN> Date: Mon, 1 Apr 2024 15:27:47 -0700 Subject: [PATCH] [5.6] Allow updating of /IGNORE timeouts in ERC * lisp/erc/erc.el (erc--read-time-period, erc--decode-time-period): Move body of former, now a superficial wrapper, to latter, a new function. (erc--labeled-time-duration): New function. (erc--get-ignore-timer-args): New function. (erc--find-ignore-timer): New function to search through `timer-list' to find registered timer. (erc-cmd-IGNORE): Refactor. Add new optional `timespec' parameter. Update an existing timer instead of always creating one, and display time remaining in "ignore list" output. Pass server buffer instead of current buffer to timer callbacks because `erc--unignore-user' displays its messages in the `active' buffer, not necessarily the issuing one. However, doing this does discard potentially useful information. If ever reverting, we can change the `cl-find' :test in `erc--find-ignore-timer' to something that compares the `erc-server-process' of both buffers. ;; ;; Something like: ;; ;; (defun erc--ignore-timers-equal-p (a b) ;; (and (equal (car a) (car b)) ;; (eq (buffer-local-value 'erc-server-process (cadr a)) ;; (buffer-local-value 'erc-server-process (cadr b))))) ;; (erc-cmd-UNIGNORE): Pass `erc-ignore-list' member matching `user' parameter to `erc--unignore-user' instead of original, raw parameter, along with the server buffer. (erc--unignore-user): Cancel existing timer and don't bother switching to server buffer since we're already there. (erc-message-english-ignore-list): New variable. * test/lisp/erc/erc-scenarios-ignore.el: New file. * test/lisp/erc/erc-tests.el (erc--read-time-period): New test. (erc-cmd-UNIGNORE): New test. (Bug#70127) --- lisp/erc/erc.el | 92 ++++++++++++++++++++------- test/lisp/erc/erc-scenarios-ignore.el | 79 +++++++++++++++++++++++ test/lisp/erc/erc-tests.el | 24 +++++++ 3 files changed, 172 insertions(+), 23 deletions(-) create mode 100644 test/lisp/erc/erc-scenarios-ignore.el diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 0750463a4e7..909712c8db7 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -4191,8 +4191,11 @@ erc--read-time-period If input is blank, this function returns nil. Otherwise it returns the time spec converted to a number of seconds." - (let ((period (string-trim - (read-string prompt nil 'erc--read-time-period-history)))) + (erc--decode-time-period + (string-trim (read-string prompt nil 'erc--read-time-period-history)))) + +(defun erc--decode-time-period (period) + (progn (cond ;; Blank input. ((zerop (length period)) @@ -4223,36 +4226,76 @@ erc--read-time-period (user-error "%s is not a valid time period" period)) (decoded-time-period time)))))) -(defun erc-cmd-IGNORE (&optional user) - "Ignore USER. This should be a regexp matching nick!user@host. -If no USER argument is specified, list the contents of `erc-ignore-list'." +(defun erc--labeled-time-duration (secs) + "Return a string with hour/minute/second labels for duration SECS." + (let* ((hours (floor secs 3600)) + (minutes (floor (mod secs 3600) 60)) + (seconds (mod secs 60))) + (cond ((>= secs 3600) (format "%dh%dm%ds" hours minutes (round seconds))) + ((>= secs 60) (format "%dm%ds" minutes (round seconds))) + (t (format "%ds" (round seconds)))))) + +(defun erc--get-ignore-timer-args (inst) + ;; The `cl-struct' `pcase' pattern and `cl-struct-slot-value' emit + ;; warnings when compiling because `timer' is un-`:named'. + (when (and (timerp inst) + (eq (aref inst (cl-struct-slot-offset 'timer 'function)) + 'erc--unignore-user)) + (aref inst (cl-struct-slot-offset 'timer 'args)))) + +(defun erc--find-ignore-timer (&rest args) + "Find an existing ignore timer." + (cl-find args timer-list :key #'erc--get-ignore-timer-args :test #'equal)) + +(defun erc-cmd-IGNORE (&optional user timespec) + "Drop messages from senders, like nick!user@host, matching regexp USER. +With human-readable TIMESPEC, ignore messages from matched senders for +the specified duration, like \"20m\". Without USER, list the contents +of `erc-ignore-list'." (if user - (let ((quoted (regexp-quote user))) + (let ((quoted (regexp-quote user)) + (prompt "Add a timeout? (Blank for no, or a time spec like 2h): ") + timeout msg) (when (and (not (string= user quoted)) (y-or-n-p (format "Use regexp-quoted form (%s) instead? " quoted))) (setq user quoted)) - (let ((timeout - (erc--read-time-period - "Add a timeout? (Blank for no, or a time spec like 2h): ")) - (buffer (current-buffer))) + (unless timespec + (setq timespec + (read-string prompt nil 'erc--read-time-period-history))) + (setq timeout (erc--decode-time-period (string-trim timespec)) + msg (if timeout + (format "Now ignoring %s for %s" user + (erc--labeled-time-duration timeout)) + (format "Now ignoring %s" user))) + (erc-with-server-buffer (when timeout - (run-at-time timeout nil - (lambda () - (erc--unignore-user user buffer)))) - (erc-display-message nil 'notice 'active - (format "Now ignoring %s" user)) - (erc-with-server-buffer (add-to-list 'erc-ignore-list user)))) + (if-let ((existing (erc--find-ignore-timer user (current-buffer)))) + (timer-set-time existing (timer-relative-time nil timeout)) + (run-at-time timeout nil #'erc--unignore-user user + (current-buffer)))) + (erc-display-message nil 'notice 'active msg) + (cl-pushnew user erc-ignore-list :test #'equal))) (if (null (erc-with-server-buffer erc-ignore-list)) (erc-display-message nil 'notice 'active "Ignore list is empty") (erc-display-message nil 'notice 'active "Ignore list:") - (mapc (lambda (item) - (erc-display-message nil 'notice 'active item)) - (erc-with-server-buffer erc-ignore-list)))) + (erc-with-server-buffer + (let ((seen (copy-sequence erc-ignore-list))) + (dolist (timer timer-list) + (when-let ((args (erc--get-ignore-timer-args timer)) + ((eq (current-buffer) (nth 1 args))) + (user (car args)) + (delta (- (timer-until timer (current-time)))) + (duration (erc--labeled-time-duration delta))) + (setq seen (delete user seen)) + (erc-display-message nil 'notice 'active 'ignore-list + ?p user ?s duration))) + (dolist (pattern seen) + (erc-display-message nil 'notice 'active pattern)))))) t) (defun erc-cmd-UNIGNORE (user) - "Remove the user specified in USER from the ignore list." + "Remove the first pattern in `erc-ignore-list' matching USER." (let ((ignored-nick (car (erc-with-server-buffer (erc-member-ignore-case (regexp-quote user) erc-ignore-list))))) @@ -4264,16 +4307,18 @@ erc-cmd-UNIGNORE (erc-display-message nil 'notice 'active (format "%s is not currently ignored!" user)))) (when ignored-nick - (erc--unignore-user user (current-buffer)))) + (erc--unignore-user ignored-nick (erc-server-buffer)))) t) (defun erc--unignore-user (user buffer) (when (buffer-live-p buffer) (with-current-buffer buffer + (cl-assert (erc--server-buffer-p)) (erc-display-message nil 'notice 'active (format "No longer ignoring %s" user)) - (erc-with-server-buffer - (setq erc-ignore-list (delete user erc-ignore-list)))))) + (setq erc-ignore-list (delete user erc-ignore-list)) + (when-let ((existing (erc--find-ignore-timer user buffer))) + (cancel-timer existing))))) (defvar erc--pre-clear-functions nil "Abnormal hook run when truncating buffers. @@ -9299,6 +9344,7 @@ english . "\n\n*** Connection failed! Re-establishing connection...\n") (disconnected-noreconnect . "\n\n*** Connection failed! Not re-establishing connection.\n") + (ignore-list . "%-8p %s") (reconnecting . "Reconnecting in %ms: attempt %i/%n ...") (reconnect-canceled . "Canceled %u reconnect timer with %cs to go...") (finished . "\n\n*** ERC finished ***\n") diff --git a/test/lisp/erc/erc-scenarios-ignore.el b/test/lisp/erc/erc-scenarios-ignore.el new file mode 100644 index 00000000000..c830e9d2c87 --- /dev/null +++ b/test/lisp/erc/erc-scenarios-ignore.el @@ -0,0 +1,79 @@ +;;; erc-scenarios-ignore.el --- Misc commands for ERC -*- lexical-binding: t -*- + +;; Copyright (C) 2023-2024 Free Software Foundation, Inc. + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; TODO add test covering the same ignored speaker in two different +;; channels on the same server: they should be ignored in both. + +;;; Code: + +(require 'ert-x) +(eval-and-compile + (let ((load-path (cons (ert-resource-directory) load-path))) + (require 'erc-scenarios-common))) + +(ert-deftest erc-scenarios-ignore/basic () + :tags '(:expensive-test) + (erc-scenarios-common-with-cleanup + ((erc-scenarios-common-dialog "base/assoc/multi-net") + (erc-server-flood-penalty 0.1) + (dumb-server-foonet (erc-d-run "localhost" t 'foonet)) + (dumb-server-barnet (erc-d-run "localhost" t 'barnet)) + (erc-autojoin-channels-alist '((foonet "#chan") (barnet "#chan"))) + (port-foonet (process-contact dumb-server-foonet :service)) + (port-barnet (process-contact dumb-server-barnet :service)) + (expect (erc-d-t-make-expecter))) + + (ert-info ("Connect to two networks") + (with-current-buffer (erc :server "127.0.0.1" + :port port-barnet + :nick "tester" + :password "changeme" + :full-name "tester")) + (with-current-buffer (erc :server "127.0.0.1" + :port port-foonet + :nick "tester" + :password "changeme" + :full-name "tester") + (funcall expect 10 "debug mode"))) + + (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan@foonet")) + (funcall expect 10 "<bob> tester, welcome!") + (funcall expect 10 "<alice> tester, welcome!") + (erc-scenarios-common-say "/ignore alice 1m") + (erc-scenarios-common-say "/ignore mike 1h") + (funcall expect 10 "ignoring alice for 1m0s") + (funcall expect 10 "<bob> alice: Signior Iachimo") + (erc-scenarios-common-say "/ignore") + (funcall expect 10 "alice 60s") + (funcall expect 10 "mike 59m60s") + (funcall expect -0.1 "<alice>") + (funcall expect 10 "<bob> alice: The ground is bloody") + (erc-scenarios-common-say "/unignore alice") + (funcall expect 10 "<alice>")) + + ;; No <mike> messages were ignored on network barnet. + (with-current-buffer (erc-d-t-wait-for 10 (get-buffer "#chan@barnet")) + (funcall expect 10 "<mike> tester, welcome!") + (funcall expect 10 "<joe> tester, welcome!") + (funcall expect 10 "<mike> joe: Whipp'd") + (funcall expect 10 "<mike> joe: Double")))) + +;;; erc-scenarios-ignore.el ends here diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el index 3e8ddef3731..ad6074ab6d3 100644 --- a/test/lisp/erc/erc-tests.el +++ b/test/lisp/erc/erc-tests.el @@ -50,6 +50,30 @@ erc--read-time-period (cl-letf (((symbol-function 'read-string) (lambda (&rest _) "1d"))) (should (equal (erc--read-time-period "foo: ") 86400)))) +(ert-deftest erc--labeled-time-duration () + (should (equal (erc--labeled-time-duration 10) "10s")) + (should (equal (erc--labeled-time-duration 10.1) "10s")) + (should (equal (erc--labeled-time-duration 100) "1m40s")) + (should (equal (erc--labeled-time-duration 100.1) "1m40s")) + (should (equal (erc--labeled-time-duration 1000) "16m40s"))) + +;; This asserts that the first pattern on file matching a supplied +;; `user' parameter will be removed after confirmation. +(ert-deftest erc-cmd-UNIGNORE () + (should (local-variable-if-set-p 'erc-ignore-list)) + (erc-tests-common-make-server-buf) + + (setq erc-ignore-list (list ".")) ; match anything + (ert-simulate-keys (list ?\r) + (erc-cmd-IGNORE "abc")) + (should (equal erc-ignore-list '("abc" "."))) + + (cl-letf (((symbol-function 'y-or-n-p) #'always)) + (erc-cmd-UNIGNORE "abcdef") + (should (equal erc-ignore-list '("."))) + (erc-cmd-UNIGNORE "foo")) + (should-not erc-ignore-list)) + (ert-deftest erc-with-all-buffers-of-server () (let (proc-exnet proc-onet -- 2.44.0 --=-=-=--
bug-gnu-emacs@HIDDEN
:bug#70127
; Package emacs
.
Full text available.Received: (at submit) by debbugs.gnu.org; 1 Apr 2024 18:05:47 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Mon Apr 01 14:05:46 2024 Received: from localhost ([127.0.0.1]:51516 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1rrM2U-0002xg-8F for submit <at> debbugs.gnu.org; Mon, 01 Apr 2024 14:05:46 -0400 Received: from lists.gnu.org ([2001:470:142::17]:44770) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <alcor@HIDDEN>) id 1rrM2Q-0002xP-8I for submit <at> debbugs.gnu.org; Mon, 01 Apr 2024 14:05:44 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from <alcor@HIDDEN>) id 1rrM2H-00009s-C2 for bug-gnu-emacs@HIDDEN; Mon, 01 Apr 2024 14:05:33 -0400 Received: from tilde.club ([142.44.150.184]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from <alcor@HIDDEN>) id 1rrM2F-0007Fn-4L for bug-gnu-emacs@HIDDEN; Mon, 01 Apr 2024 14:05:33 -0400 Received: from topazii.tilde.club (unknown [IPv6:2001:9e8:7df:2800:dcfc:a08e:d884:4e13]) by tilde.club (Postfix) with ESMTPSA id 2755A2222DFA4 for <bug-gnu-emacs@HIDDEN>; Mon, 1 Apr 2024 18:05:29 +0000 (UTC) DKIM-Filter: OpenDKIM Filter v2.11.0 tilde.club 2755A2222DFA4 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=tilde.club; s=mail; t=1711994729; bh=xu5T34jhOxrNAd/XOBm241mqw7iKuD0q2BOlMorHts4=; h=From:To:Subject:Date:From; b=k2lvhjqoCw5GrM2BHAjEmYeGh9lPqteV8DRXhdw3eaDIVt/fTNMFXSe1439+eoakd IZc20yl6CXvSVy1JsgyeeHB+Rppcf/qpDNowH8scCavlEwu5+uPfk1V4PALDSLR9dY w+JJs92k8bbfkDcXM4itxQ1zyW6WHz8iylFJjGdo= From: Alcor <alcor@HIDDEN> To: bug-gnu-emacs@HIDDEN Subject: 29.3; ERC 5.6-git: /ignore timeouts are not cancelled/reset X-Debbugs-CC: emacs-erc@HIDDEN Date: Mon, 01 Apr 2024 20:05:26 +0200 Message-ID: <87y19xarh5.fsf@HIDDEN> User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: text/plain Received-SPF: pass client-ip=142.44.150.184; envelope-from=alcor@HIDDEN; helo=tilde.club X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: 0.9 (/) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -0.1 (/) Severity: wishlist On Erc (5.6snapshot0.20240323.151032): 1. /IGNORE a specific nick with an explicit timeout (e.g. 5m) 2. /IGNORE the same nick again with a different timeout (e.g. 10m) Expected behavior: The /IGNORE'ed nick is unignored after 10 minutes. Observed behavior: The /IGNORE'ed nick is unignored after 5 minutes, afterwhich it is unignored again after 10 minutes. The latter command is a no-op though, as the nick would be already unignored at that point. Additional Information: As per https://lists.gnu.org/archive/html/emacs-erc/2024-04/msg00005.html, erc does not save the handles to the created timeout. This will have to be changed in order to achieve the desired behavior. In GNU Emacs 29.3 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.24.20, cairo version 1.16.0) of 2024-03-25 built on bos03-amd64-034 Repository revision: 73d7d08f3f07a68b198e5ba230a474ba019e6a8a Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12201001 System Description: Ubuntu 22.04.4 LTS Configured using: 'configure --prefix=/snap/emacs/current/usr --with-x-toolkit=gtk3 --without-xaw3d --with-modules --with-cairo --with-native-compilation=aot --without-pgtk --with-xinput2 --with-tree-sitter --with-json 'CFLAGS=-isystem/build/emacs/parts/emacs/install/usr/include -isystem/build/emacs/parts/emacs/install/usr/include/x86_64-linux-gnu -isystem/build/emacs/stage/usr/include -O2' 'CPPFLAGS=-isystem/build/emacs/parts/emacs/install/usr/include -isystem/build/emacs/parts/emacs/install/usr/include/x86_64-linux-gnu -isystem/build/emacs/stage/usr/include' 'LDFLAGS=-L/build/emacs/parts/emacs/install/lib -L/build/emacs/parts/emacs/install/usr/lib -L/build/emacs/parts/emacs/install/lib/x86_64-linux-gnu -L/build/emacs/parts/emacs/install/usr/lib/x86_64-linux-gnu -L/build/emacs/stage/usr/lib'' Configured features: ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG JSON LCMS2 LIBOTF LIBSELINUX LIBSYSTEMD LIBXML2 M17N_FLT MODULES NATIVE_COMP NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS TREE_SITTER X11 XDBE XIM XINPUT2 XPM GTK3 ZLIB Important settings: value of $LANG: de_DE.UTF-8 value of $XMODIFIERS: @im=ibus locale-coding-system: utf-8-unix Major mode: Group Minor modes in effect: gnus-undo-mode: t pixel-scroll-precision-mode: t minibuffer-depth-indicate-mode: t global-whitespace-mode: t global-auto-revert-mode: t fido-vertical-mode: t icomplete-vertical-mode: t icomplete-mode: t fido-mode: t desktop-save-mode: t erc-services-mode: t erc-ring-mode: t erc-notifications-mode: t erc-netsplit-mode: t erc-menu-mode: t erc-list-mode: t erc-irccontrols-mode: t erc-keep-place-mode: t erc-move-to-prompt-mode: t erc-readonly-mode: t erc-scrolltobottom-mode: t erc-imenu-mode: t erc-button-mode: t erc-fill-mode: t erc-stamp-mode: t erc-bufbar-mode: t erc-track-mode: t erc-match-mode: t erc-autojoin-mode: t erc-autoaway-mode: t erc-networks-mode: t windmove-mode: t recentf-mode: t override-global-mode: t tooltip-mode: t global-eldoc-mode: t show-paren-mode: t electric-indent-mode: t mouse-wheel-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t buffer-read-only: t column-number-mode: t line-number-mode: t indent-tabs-mode: t transient-mark-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t Features: (shadow emacsbug mailalias smtpmail misearch multi-isearch pulse xref project elec-pair shortdoc help-fns radix-tree mule-util sort smiley gnus-cite qp mm-archive mail-extr textsec uni-scripts idna-mapping ucs-normalize uni-confusable textsec-check gnus-async gnus-bcklg gnus-ml nndraft nnmh nnfolder utf-7 network-stream nsm gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg nntp gnus-cache display-line-numbers goto-addr org-element org-persist org-id org-refile avl-tree generator oc-basic ol-eww eww url-queue thingatpt mm-url ol-rmail ol-mhe ol-irc ol-info ol-gnus nnselect gnus-art mm-uu mml2015 mm-view mml-smime smime gnutls dig gnus-sum shr pixel-fill kinsoku url-file svg dom gnus-group gnus-undo gnus-start gnus-dbus gnus-cloud nnimap nnmail mail-source utf7 nnoo parse-time gnus-spec gnus-int gnus-range message yank-media puny rfc822 mml mml-sec epa derived epg rfc6068 epg-config mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader gnus-win ol-docview doc-view jka-compr image-mode exif dired dired-loaddefs ol-bibtex bibtex iso8601 ol-bbdb ol-w3m ol-doi org-link-doi org ob ob-tangle ob-ref ob-lob ob-table ob-exp org-macro org-src ob-comint org-pcomplete org-list org-footnote org-faces org-entities noutline outline ob-emacs-lisp ob-core ob-eval org-cycle org-table ol org-fold org-fold-core org-keys oc org-loaddefs find-func cal-menu calendar cal-loaddefs org-version org-compat org-macs disp-table leuven-dark-theme pixel-scroll cua-base mb-depth whitespace autorevert filenotify icomplete desktop frameset sendmail rfc2047 rfc2045 ietf-drums gnus nnheader gnus-util text-property-search mail-utils range mm-util mail-prsvr xdg cus-edit pp erc-services erc-ring erc-desktop-notifications notifications dbus xml erc-nicks color erc-netsplit erc-menu erc-list erc-goodies erc-imenu imenu erc-pcomplete time-date pcomplete comint ansi-osc ansi-color ring erc-button erc-fill erc-stamp erc-status-sidebar erc-track erc-match erc-join erc-autoaway erc format-spec erc-backend erc-networks erc-common erc-compat compat erc-loaddefs windmove recentf tree-widget wid-edit cus-load edmacro kmacro use-package-bind-key bind-key easy-mmode use-package-ensure use-package-core site-start comp comp-cstr warnings icons rx cl-extra help-mode erc-autoloads info compat-autoloads markdown-mode-autoloads package browse-url url url-proxy url-privacy url-expand url-methods url-history url-cookie generate-lisp-file url-domsuf url-util mailcap url-handlers url-parse auth-source cl-seq eieio eieio-core cl-macs password-cache json subr-x map byte-opt gv bytecomp byte-compile url-vars cl-loaddefs cl-lib rmc iso-transl tooltip cconv eldoc paren electric uniquify ediff-hook vc-hooks lisp-float-type elisp-mode mwheel term/x-win x-win term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors frame minibuffer nadvice seq simple cl-generic indonesian philippine cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese composite emoji-zwj charscript charprop case-table epa-hook jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs theme-loaddefs faces cus-face macroexp files window text-properties overlay sha1 md5 base64 format env code-pages mule custom widget keymap hashtable-print-readable backquote threads dbusbind inotify lcms2 dynamic-setting system-font-setting font-render-setting cairo move-toolbar gtk x-toolkit xinput2 x multi-tty make-network-process native-compile emacs) Memory information: ((conses 16 594467 77435) (symbols 48 30085 3) (strings 32 121202 5619) (string-bytes 1 3810229) (vectors 16 78960) (vector-slots 8 1374718 116320) (floats 8 636 1057) (intervals 56 1151 66) (buffers 984 22))
Alcor <alcor@HIDDEN>
:emacs-erc@HIDDEN, bug-gnu-emacs@HIDDEN
.
Full text available.emacs-erc@HIDDEN, bug-gnu-emacs@HIDDEN
:bug#70127
; Package emacs
.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.