Mercurial > hg > xemacs-beta
comparison lisp/gnus/gnus-group.el @ 112:48d667d6f17f r20-1b8
Import from CVS: tag r20-1b8
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:20:48 +0200 |
| parents | fe104dbd9147 |
| children | 8619ce7e4c50 |
comparison
equal
deleted
inserted
replaced
| 111:164ab62060bf | 112:48d667d6f17f |
|---|---|
| 1558 | 1558 |
| 1559 Return the name of the group is selection was successful." | 1559 Return the name of the group is selection was successful." |
| 1560 ;; Transform the select method into a unique server. | 1560 ;; Transform the select method into a unique server. |
| 1561 (let ((saddr (intern (format "%s-address" (car method))))) | 1561 (let ((saddr (intern (format "%s-address" (car method))))) |
| 1562 (setq method (gnus-copy-sequence method)) | 1562 (setq method (gnus-copy-sequence method)) |
| 1563 (unless (assq saddr method) | 1563 (require (car method)) |
| 1564 (nconc method `((,saddr ,(cadr method))))) | 1564 (when (boundp saddr) |
| 1565 (setf (cadr method) (format "%s-%d" (cadr method) | 1565 (unless (assq saddr method) |
| 1566 (incf gnus-ephemeral-group-server)))) | 1566 (nconc method `((,saddr ,(cadr method))))) |
| 1567 (setf (cadr method) (format "%s-%d" (cadr method) | |
| 1568 (incf gnus-ephemeral-group-server))))) | |
| 1567 (let ((group (if (gnus-group-foreign-p group) group | 1569 (let ((group (if (gnus-group-foreign-p group) group |
| 1568 (gnus-group-prefixed-name group method)))) | 1570 (gnus-group-prefixed-name group method)))) |
| 1569 (gnus-sethash | 1571 (gnus-sethash |
| 1570 group | 1572 group |
| 1571 `(-1 nil (,group | 1573 `(-1 nil (,group |