Re: new wifi connection = nntp timeout = Emacs restart?

[David Engster <deng@randomsample.de>]

> David Engster <deng@randomsample.de> writes:
>
>>> Hey, that's pretty handy! Just FYI, the function name is quoted
>>> unnecessarily
>>
>> Oops...
>>
>>> and sleep-start is actually nil when it's going to sleep,
>>> who knows why.
>>
>> Uhm, not for me. I just tested again to make sure. On sleep it is 't',
>> on wakup it is nil. This is also the documented behavior:
>
> Huh, the first time I tried it, it only seemed to fire on wakeup (giving
> me a nil). And I forgot that `gnus-close-all-servers' doesn't actually
> redisplay the *Server* buffer, so was confusing myself.

Yes, I noticed this as well. There's `gnus-close-server' and there's
`gnus-server-close-server', and the latter does a bit more, like setting
the server's status to 'closed' and updating the server buffer. I don't
think it matters for the connection, though, it's just confusing.

> On wakeup all my nnimap servers were denied, but I'm sure it's just a
> matter of messing with it sufficiently.

I'll try this for a while and see how it goes. I think this could be
expanded, like for instance checking for 'State' of NetworkManager
before trying to open servers that require an active connection.

For the record, this is what I'm using now:

(require 'dbus)
(defun my-go-to-sleep-handler (sleep-start)
  (when sleep-start
    (message "Gnus: Machine going to sleep, closing connections")
    (gnus-close-all-servers)))

(dbus-register-signal :system
		      "org.freedesktop.login1"
		      "/org/freedesktop/login1"
		      "org.freedesktop.login1.Manager"
		      "PrepareForSleep"
		      'my-go-to-sleep-handler)

(defun my-network-state-handler (name change-vals change-novals)
  (let ((state (assoc "State" change-vals)))
    (when (and state
	       (= (caadr state) 30))
      (message "Gnus: Networking going down, closing servers.")
      (gnus-close-all-servers))))

(dbus-register-signal :system
		      "org.freedesktop.Networkmanager"
		      "/org/freedesktop/NetworkManager"
		      "org.freedesktop.DBus.Properties"		      
		      "PropertiesChanged"
		      'my-network-state-handler)


-David