Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 441bb1e64a06
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
1542 (interactive "sGroup name: ") 1542 (interactive "sGroup name: ")
1543 (unless (get-buffer gnus-group-buffer) 1543 (unless (get-buffer gnus-group-buffer)
1544 (gnus)) 1544 (gnus))
1545 (gnus-group-read-group nil nil group)) 1545 (gnus-group-read-group nil nil group))
1546 1546
1547 (defvar gnus-ephemeral-group-server 0)
1548
1547 ;; Enter a group that is not in the group buffer. Non-nil is returned 1549 ;; Enter a group that is not in the group buffer. Non-nil is returned
1548 ;; if selection was successful. 1550 ;; if selection was successful.
1549 (defun gnus-group-read-ephemeral-group (group method &optional activate 1551 (defun gnus-group-read-ephemeral-group (group method &optional activate
1550 quit-config request-only) 1552 quit-config request-only)
1551 "Read GROUP from METHOD as an ephemeral group. 1553 "Read GROUP from METHOD as an ephemeral group.
1553 If QUIT-CONFIG, use that window configuration when exiting from the 1555 If QUIT-CONFIG, use that window configuration when exiting from the
1554 ephemeral group. 1556 ephemeral group.
1555 If REQUEST-ONLY, don't actually read the group; just request it. 1557 If REQUEST-ONLY, don't actually read the group; just request it.
1556 1558
1557 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.
1561 (let ((saddr (intern (format "%s-address" (car method)))))
1562 (setq method (gnus-copy-sequence method))
1563 (unless (assq saddr method)
1564 (nconc method `((,saddr ,(cadr method)))))
1565 (setf (cadr method) (format "%s-%d" (cadr method)
1566 (incf gnus-ephemeral-group-server))))
1558 (let ((group (if (gnus-group-foreign-p group) group 1567 (let ((group (if (gnus-group-foreign-p group) group
1559 (gnus-group-prefixed-name group method)))) 1568 (gnus-group-prefixed-name group method))))
1560 (gnus-sethash 1569 (gnus-sethash
1561 group 1570 group
1562 `(-1 nil (,group 1571 `(-1 nil (,group