From: Pavel@Janik.cz (Pavel Janík)
Cc: ding@gnus.org
Subject: Re: Feature request: Plugged/Unplugged via Mouse-2
Date: Wed, 01 Aug 2001 02:10:23 +0200 [thread overview]
Message-ID: <m366c8iqs0.fsf@SnowWhite.SuSE.cz> (raw)
In-Reply-To: <2nbsm52ev1.fsf@piglet.jia.vnet> (ShengHuo ZHU's message of "Sat, 28 Jul 2001 09:33:06 -0700")
From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Sat, 28 Jul 2001 09:33:06 -0700
Hi,
> > we can toggle topics off via Mouse-2 on "Topic" in the mode-line. What
> > about Mouse-2 on Unplugged to become Plugged and Mouse-2 on Plugged to
> > become Unplugged? It shouldn't be that hard - if no one will implement it
> > over weekend, I can do it myself.
>
> Have you got this implemented?
yes, I have this implemented, but I do not think that this should be added
to Gnus as is, because it will not work for other Emacs flavors. But here
it is (maybe I should also add help-echo property there):
--- gnus/lisp/gnus-agent.el Mon Jul 30 10:15:12 2001
+++ gnus-pj/lisp/gnus-agent.el Wed Aug 1 01:57:19 2001
@@ -318,11 +318,17 @@
(setq gnus-plugged plugged)
(gnus-agent-possibly-synchronize-flags)
(gnus-run-hooks 'gnus-agent-plugged-hook)
- (setcar (cdr gnus-agent-mode-status) " Plugged"))
+ (setcar (cdr gnus-agent-mode-status)
+ (propertize " Plugged"
+ 'local-map
+ (make-mode-line-mouse2-map 'gnus-agent-toggle-plugged))))
(gnus-agent-close-connections)
(setq gnus-plugged plugged)
(gnus-run-hooks 'gnus-agent-unplugged-hook)
- (setcar (cdr gnus-agent-mode-status) " Unplugged"))
+ (setcar (cdr gnus-agent-mode-status)
+ (propertize " Unplugged"
+ 'local-map
+ (make-mode-line-mouse2-map 'gnus-agent-toggle-plugged))))
(set-buffer-modified-p t))
(defun gnus-agent-close-connections ()
--
Pavel Janík
You're right, this should be fixed. Do you happen to have a patch?
-- Rik van Riel in linux-kernel about VM bug
next prev parent reply other threads:[~2001-08-01 0:10 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2001-06-27 21:39 Pavel Janík
2001-07-28 16:33 ` ShengHuo ZHU
2001-08-01 0:10 ` Pavel Janík [this message]
2001-08-01 0:52 ` ShengHuo ZHU
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m366c8iqs0.fsf@SnowWhite.SuSE.cz \
--to=pavel@janik.cz \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).