Don't open closed servers on `g'

Don't open closed servers on `g'

[Tassilo Horn]

Hi all,

I sometimes close some servers in the *Server* buffer, because I'm not
interested in getting updates for them right now, for example because
I'm on a slow network or a server is down and I don't want to interrupt
Gnus contacting that broken server over and over again.

Unfortunately, when hitting `g' in *Group*, Gnus re-opens all servers
forcefully.  Can that be changed somehow?

Bye,
Tassilo

Re: Don't open closed servers on `g'

[Lars Magne Ingebrigtsen]

Tassilo Horn <tassilo@member.fsf.org> writes:

> Unfortunately, when hitting `g' in *Group*, Gnus re-opens all servers
> forcefully.  Can that be changed somehow?

If you mark the servers as denied (`D' in the server buffer), Gnus won't
reopen them.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Don't open closed servers on `g'

[Tassilo Horn]

[-- Attachment #1: Type: Text/Plain, Size: 730 bytes --]

On Monday 06 December 2010 14:21:03 Lars Magne Ingebrigtsen wrote:

Hi Lars & Didier,

> > Unfortunately, when hitting `g' in *Group*, Gnus re-opens all servers
> > forcefully.  Can that be changed somehow?
> 
> If you mark the servers as denied (`D' in the server buffer), Gnus
> won't reopen them.

Argh, that was much too easy.  But as an excuse, (info "(gnus)Server
Commands") does mention neither `C' nor `D'. :-)

(info "(gnus)Unavailable Servers") mentions them, but I think the former
section should mention them, too.  I appended a patch that adds at least
C, D and O to that section.  I tried to be a littlebit funny in the
description of D, but feel free to remove any humor in case I didn't
succeed. ;-)

Bye,
Tassilo

[-- Attachment #2: server-commands-texi.patch --]
[-- Type: text/x-patch, Size: 1110 bytes --]

diff --git a/texi/gnus.texi b/texi/gnus.texi
index d81b9ba..3b6e9b7 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -13877,12 +13877,30 @@ a mail back end that has gotten out of sync.
 @item z
 @kindex z (Server)
 @findex gnus-server-compact-server
-
 Compact all groups in the server under point
 (@code{gnus-server-compact-server}).  Currently implemented only in
 nnml (@pxref{Mail Spool}).  This removes gaps between article numbers,
 hence getting a correct total article count.
 
+@item C
+@kindex C (Server)
+@findex gnus-server-close-server
+Close the server under point.  When trying to get new messages, Gnus
+will try to re-open closed servers.
+
+@item D
+@kindex D (Server)
+@findex gnus-server-deny-server
+Mark the server under point as unreachable.  In contrast to closed
+servers, Gnus won't try to re-open denied servers, so this is the
+right thing if you want to disable some servers explicitly due to low
+network bandwidth or general information overload.
+
+@item O
+@kindex O (Server)
+@findex gnus-server-open-server
+Try to re-connect to the server under point.
+
 @end table
 
 

Re: Don't open closed servers on `g'

[Lars Magne Ingebrigtsen]

Tassilo Horn <tassilo@member.fsf.org> writes:

> (info "(gnus)Unavailable Servers") mentions them, but I think the former
> section should mention them, too.  I appended a patch that adds at least
> C, D and O to that section. 

The manual usually doesn't document the same things more than once, but
a "see also" referencing other pages might be nice.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Don't open closed servers on `g'

[Tassilo Horn]

On Monday 06 December 2010 20:42:04 Lars Magne Ingebrigtsen wrote:

> > (info "(gnus)Unavailable Servers") mentions them, but I think the
> > former section should mention them, too.  I appended a patch that
> > adds at least C, D and O to that section.
> 
> The manual usually doesn't document the same things more than once,
> but a "see also" referencing other pages might be nice.

Here we go:

--8<---------------cut here---------------start------------->8---
diff --git a/texi/gnus.texi b/texi/gnus.texi
index d81b9ba..d57c10e 100644
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -13885,6 +13885,9 @@ hence getting a correct total article count.
 
 @end table
 
+Some more commands for closing, disabling, and re-opening servers are
+listed in @ref{Unavailable Servers}.
 
 @node Example Methods
 @subsection Example Methods
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo

Re: Don't open closed servers on `g'

[Lars Magne Ingebrigtsen]

Tassilo Horn <tassilo@member.fsf.org> writes:

> Here we go:

Thanks; applied.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: Don't open closed servers on `g'

[Didier Verna]

Tassilo Horn <tassilo@member.fsf.org> wrote:

> I sometimes close some servers in the *Server* buffer, because I'm not
> interested in getting updates for them right now, for example because
> I'm on a slow network or a server is down and I don't want to
> interrupt Gnus contacting that broken server over and over again.
>
> Unfortunately, when hitting `g' in *Group*, Gnus re-opens all servers
> forcefully.  Can that be changed somehow?

  You can go to the servers buffer and hit D to deny a server. Gnus
don't try to re-open denied servers when you 'g' in the Groups buffer.


Here's a little hack I use on top of that in order to display groups in
server-status-specific colors:

;; How it works: the advice below adds a `server-status' local variable that
;; can be used in `gnus-group-highlight'. For instance, you can use forms like
;; (eq server-status 'closed) or (eq server-status 'denied) in conjunction
;; with the two following faces:
(defface gnus-group-server-denied-face '((t ()))
  "Face used for groups belonging to a denied server."
  :group 'gnus-group)

(defface gnus-group-server-closed-face '((t ()))
  "Face used for groups belonging to a denied server."
  :group 'gnus-group)

(defadvice gnus-group-highlight-line (around server-status activate)
  "Add a SERVER-STATUS local variable for use in `gnus-group-highlight'."
  (let (server-status)
    ;; Let's do this outside the let to avoid a load-time warning
    (setq server-status (gnus-server-status
			 (gnus-find-method-for-group
			  (gnus-group-group-name))))
    ad-do-it))


-- 
Resistance is futile. You will be jazzimilated.

Scientific site:   http://www.lrde.epita.fr/~didier
Music (Jazz) site: http://www.didierverna.com