Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-int.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
425 (when (stringp method) 425 (when (stringp method)
426 (setq method (gnus-server-to-method method))) 426 (setq method (gnus-server-to-method method)))
427 (let* ((elem (assoc method gnus-opened-servers)) 427 (let* ((elem (assoc method gnus-opened-servers))
428 (status (cadr elem))) 428 (status (cadr elem)))
429 ;; If this hasn't been opened before, we add it to the list. 429 ;; If this hasn't been opened before, we add it to the list.
430 (when (eq status 'denied) 430 (when (eq status 'denied)
431 ;; Set the status of this server. 431 ;; Set the status of this server.
432 (setcar (cdr elem) 'closed)))) 432 (setcar (cdr elem) 'closed))))
433 433
434 (provide 'gnus-int) 434 (provide 'gnus-int)
435 435