Mercurial > emacs
comparison lisp/gnus/gnus-int.el @ 69247:6580c61aced7
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-134
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 43-48)
- Munge arch explicit ids in etc/images to match Emacs
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 03 Mar 2006 07:45:27 +0000 |
| parents | 1077b8039c32 |
| children | e3694f1cb928 5754737d1e04 |
comparison
equal
deleted
inserted
replaced
| 69246:6e1a513dfa3b | 69247:6580c61aced7 |
|---|---|
| 248 ;; Set the server's status to the unopen | 248 ;; Set the server's status to the unopen |
| 249 ;; status. If that status is offline, | 249 ;; status. If that status is offline, |
| 250 ;; recurse to open the agent's backend. | 250 ;; recurse to open the agent's backend. |
| 251 (setq open-offline (eq gnus-server-unopen-status 'offline)) | 251 (setq open-offline (eq gnus-server-unopen-status 'offline)) |
| 252 gnus-server-unopen-status) | 252 gnus-server-unopen-status) |
| 253 ((gnus-y-or-n-p | 253 ((and |
| 254 (format "Unable to open %s:%s, go offline? " | 254 (not gnus-batch-mode) |
| 255 (car gnus-command-method) | 255 (gnus-y-or-n-p |
| 256 (cadr gnus-command-method))) | 256 (format "Unable to open %s:%s, go offline? " |
| 257 (car gnus-command-method) | |
| 258 (cadr gnus-command-method)))) | |
| 257 (setq open-offline t) | 259 (setq open-offline t) |
| 258 'offline) | 260 'offline) |
| 259 (t | 261 (t |
| 260 ;; This agentized server was still denied | 262 ;; This agentized server was still denied |
| 261 'denied))) | 263 'denied))) |