Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-int.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents ec9a17fef872
children e04119814345
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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