From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Visuwesh Newsgroups: gmane.emacs.bugs Subject: bug#57977: 29.0.50; [PATCH] Make Gnus respect mode-line-buffer-identification-keymap Date: Fri, 23 Sep 2022 17:13:45 +0530 Message-ID: <875yhee2oe.fsf@gmail.com> References: <8735ckdhit.fsf@gmail.com> <87y1ucc2nh.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="19027"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) To: 57977@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Fri Sep 23 13:46:10 2022 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1obh8D-0004rA-BW for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 23 Sep 2022 13:46:09 +0200 Original-Received: from localhost ([::1]:52878 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1obh8B-0004CA-TA for geb-bug-gnu-emacs@m.gmane-mx.org; Fri, 23 Sep 2022 07:46:07 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:38180) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1obh78-0004Am-Mw for bug-gnu-emacs@gnu.org; Fri, 23 Sep 2022 07:45:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:40524) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1obh78-0003Fk-Bg for bug-gnu-emacs@gnu.org; Fri, 23 Sep 2022 07:45:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1obh78-0003FV-80 for bug-gnu-emacs@gnu.org; Fri, 23 Sep 2022 07:45:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Visuwesh Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 23 Sep 2022 11:45:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 57977 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 57977-submit@debbugs.gnu.org id=B57977.166393348712454 (code B ref 57977); Fri, 23 Sep 2022 11:45:02 +0000 Original-Received: (at 57977) by debbugs.gnu.org; 23 Sep 2022 11:44:47 +0000 Original-Received: from localhost ([127.0.0.1]:39602 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1obh6s-0003En-IJ for submit@debbugs.gnu.org; Fri, 23 Sep 2022 07:44:46 -0400 Original-Received: from mail-pj1-f65.google.com ([209.85.216.65]:42666) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1obh6q-0003EZ-9c for 57977@debbugs.gnu.org; Fri, 23 Sep 2022 07:44:44 -0400 Original-Received: by mail-pj1-f65.google.com with SMTP id s90-20020a17090a2f6300b00203a685a1aaso5204807pjd.1 for <57977@debbugs.gnu.org>; Fri, 23 Sep 2022 04:44:44 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:user-agent:references:message-id:date:in-reply-to :subject:to:from:from:to:cc:subject:date; bh=rQt9Uqco78EGNEgVSG++QjCRMP6RkHO+Nu0+fryZNMI=; b=pEIkbW5Uk9OGFvb48zYFiktRegmqAvsA+GJrIM2InhvttelNbqH4KCPJc8LEC2nyZF bOZ8Bkoy0h0MKr19nD1maRr8eZ5+SeawmpFK79cQAXPZKNb+/6astO5Ft+WiiXvCaJqi 3exslKzkwfrwCGcExOyK64uimL/wI4Ct82Q/gj6/bpGUMZkNZVEdneNspkPaL4A719rp 3964gCE4JZOD3tClQebUyqwKcOmlh3JV7fwd5iHYEkrGl+naB2GW0WYDTBg6S97HpQjM SHxFGPe8j8q4VIJmekvGYSVjcJEnPjpIQJvqsnxBjwLVRyfv+EgXl63pYBp/tybOuDsv /TzA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=mime-version:user-agent:references:message-id:date:in-reply-to :subject:to:from:x-gm-message-state:from:to:cc:subject:date; bh=rQt9Uqco78EGNEgVSG++QjCRMP6RkHO+Nu0+fryZNMI=; b=GQiKVXZ8Sy0MB/po0EUEfNIMktRBM4SQOIJhvlSdySd1pLWdTRStImPXrd0naolBwb tI94PjRKJtPN4UAMy4QwCa+kq2//vfEm7qsCZ+b/L/LaSRXai2wo6tQ49NB1OOqVhWZL gYoxlfYJgY3rB9WmdjKP2lGmtVpfukz3bZtIxsCDjI/6v5Cljn0Ap1jpIgyk2TDw70W2 s12omLvzbC84WReQfbjwarm002Pzl8WP5XS4r5DyPjcpdlAA5mTKzZv+vB8AkpcTdcHi QiC0NJ6hXUaw2BNYbUWnu4rocH4TMhR5LxpD00TfsVSP3A73aZ0ngpiCbTL7sgJNlbeC Spgg== X-Gm-Message-State: ACrzQf3mJRkGLZ3bJZ2f458DRiasAp+YiIm+vgdzsyEjCBq/0F+5ZF3m P2GfUoRREFrtSxAn5cZFOHDTzhCJtt4= X-Google-Smtp-Source: AMsMyM4Z6HA9tOWRfli8gaw7lSdrCqEQsT3mwtdOhCgn2qJYEeA0pY5nxuL4wlBzefIOhq61jgejmg== X-Received: by 2002:a17:902:ac96:b0:178:9faa:6280 with SMTP id h22-20020a170902ac9600b001789faa6280mr8247456plr.34.1663933477825; Fri, 23 Sep 2022 04:44:37 -0700 (PDT) Original-Received: from localhost ([115.240.90.130]) by smtp.gmail.com with ESMTPSA id 22-20020a17090a0d5600b001ef81574355sm1443532pju.12.2022.09.23.04.44.36 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 23 Sep 2022 04:44:37 -0700 (PDT) In-Reply-To: <87y1ucc2nh.fsf@gmail.com> (Visuwesh's message of "Wed, 21 Sep 2022 18:20:26 +0530") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:243460 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: base64 W+CuquCvgeCupOCuqeCvjSDgrprgr4bgrqrgr43grp/grq7gr43grqrgrrDgr40gMjEsIDIwMjJd IFZpc3V3ZXNoIHdyb3RlOg0KDQo+IFvgrqrgr4HgrqTgrqngr40g4K6a4K+G4K6q4K+N4K6f4K6u 4K+N4K6q4K6w4K+NIDIxLCAyMDIyXSBWaXN1d2VzaCB3cm90ZToNCj4NCj4+IFBsZWFzZSBmaW5k IGF0dGFjaGVkLCB0aGFua3MuDQo+DQo+IE9vcHMsIHRoYXQgcGF0Y2ggaGFkIGEgdmVyeSBzaWxs eSB0aGlua28uLi4NCg0KVGhpcyBwYXRjaCB3YXMgYWxzbyB3cm9uZy4gIFN1Ym1pdHRpbmcgYSBw YXRjaCB3aGVuIEkgd2FzIHRpcmVkIGFuZA0KYWJvdXQgdG8gc2xlZXAgd2FzIGFuIGF3ZnVsIG1p c3Rha2UsIHNvcnJ5IGFib3V0IHRoZSBub2lzZS4gIEF0dGFjaGVkDQpwYXRjaCBzaG91bGQgYmUg ZmluYWwsIGhvcGVmdWxseS4NCg0K --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-Make-Gnus-respect-mode-line-buffer-identification-ke.patch >From 3a4b6f752473583a51687b976a6bf410a7b7bc77 Mon Sep 17 00:00:00 2001 From: Visuwesh Date: Fri, 23 Sep 2022 17:10:49 +0530 Subject: [PATCH] Make Gnus respect mode-line-buffer-identification-keymap * lisp/gnus/gnus-group.el (gnus-group-set-mode-line): Use 'propertized-buffer-identification' to buttonise and fontify the buffer name. * lisp/gnus/gnus-sum.el (gnus-set-mode-line): * lisp/gnus/gnus.el (gnus-mode-line-buffer-identification): Adjust calls to above. * lisp/gnus/gnus-srvr.el (gnus-browse-foreign-server): Add missing 'gnus-modeline-buffer-identification' call. (bug#57977) --- lisp/gnus/gnus-group.el | 4 +--- lisp/gnus/gnus-srvr.el | 7 ++++--- lisp/gnus/gnus-sum.el | 3 +-- lisp/gnus/gnus.el | 7 +++++-- 4 files changed, 11 insertions(+), 10 deletions(-) diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index fcad601d0c..d1098be6fd 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1717,9 +1717,7 @@ gnus-group-set-mode-line (setq mode-string (substring mode-string 0 (- max-len 4)))) (prog1 (setq mode-line-buffer-identification - (gnus-mode-line-buffer-identification - (list (propertize mode-string - 'face 'mode-line-buffer-id)))) + (gnus-mode-line-buffer-identification (list mode-string))) (set-buffer-modified-p modified)))))) (defun gnus-group-group-name () diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el index e659a648e1..315381a6dd 100644 --- a/lisp/gnus/gnus-srvr.el +++ b/lisp/gnus/gnus-srvr.el @@ -829,9 +829,10 @@ gnus-browse-foreign-server (erase-buffer)) (gnus-browse-mode) (setq mode-line-buffer-identification - (list - (format - "Gnus: %%b {%s:%s}" (car method) (cadr method)))) + (gnus-mode-line-buffer-identification + (list + (format + "Gnus: %%b {%s:%s}" (car method) (cadr method))))) (let ((buffer-read-only nil) name (prefix (let ((gnus-select-method orig-select-method)) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index dde60caee7..107ad8fd4a 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -6207,8 +6207,7 @@ gnus-set-mode-line ;; Update the mode line. (setq mode-line-buffer-identification (gnus-mode-line-buffer-identification - (list (propertize mode-string - 'face 'mode-line-buffer-id)))) + (list mode-string))) (set-buffer-modified-p t)))) (defun gnus-create-xref-hashtb (from-newsgroup headers unreads) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 0afd873a5d..3a7edf9e08 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -310,12 +310,15 @@ gnus-inhibit-startup-message :type 'boolean) (defun gnus-mode-line-buffer-identification (line) - (let ((str (car-safe line))) + (let* ((str (car-safe line)) + (str (if (stringp str) + (car (propertized-buffer-identification str)) + str))) (if (or (not (fboundp 'find-image)) (not (display-graphic-p)) (not (stringp str)) (not (string-match "^Gnus:" str))) - line + (list str) (let ((load-path (append (mm-image-load-path) load-path))) ;; Add the Gnus logo. (add-text-properties -- 2.35.1 --=-=-=--