Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents d620409f5eb8
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
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 (require (car method)) 1563 (require (car method))
1564 (when (boundp saddr) 1564 (when (boundp saddr)
1565 (unless (assq saddr method) 1565 (unless (assq saddr method)
1566 (nconc method `((,saddr ,(cadr method))))) 1566 (nconc method `((,saddr ,(cadr method))))
1567 (setf (cadr method) (format "%s-%d" (cadr method) 1567 (setf (cadr method) (format "%s-%d" (cadr method)
1568 (incf gnus-ephemeral-group-server))))) 1568 (incf gnus-ephemeral-group-server))))))
1569 (let ((group (if (gnus-group-foreign-p group) group 1569 (let ((group (if (gnus-group-foreign-p group) group
1570 (gnus-group-prefixed-name group method)))) 1570 (gnus-group-prefixed-name group method))))
1571 (gnus-sethash 1571 (gnus-sethash
1572 group 1572 group
1573 `(-1 nil (,group 1573 `(-1 nil (,group
2536 "Unsubscribe the current group." 2536 "Unsubscribe the current group."
2537 (interactive "P") 2537 (interactive "P")
2538 (gnus-group-unsubscribe-current-group n 'unsubscribe)) 2538 (gnus-group-unsubscribe-current-group n 'unsubscribe))
2539 2539
2540 (defun gnus-group-subscribe (&optional n) 2540 (defun gnus-group-subscribe (&optional n)
2541 "Unsubscribe the current group." 2541 "Subscribe the current group."
2542 (interactive "P") 2542 (interactive "P")
2543 (gnus-group-unsubscribe-current-group n 'subscribe)) 2543 (gnus-group-unsubscribe-current-group n 'subscribe))
2544 2544
2545 (defun gnus-group-unsubscribe-current-group (&optional n do-sub) 2545 (defun gnus-group-unsubscribe-current-group (&optional n do-sub)
2546 "Toggle subscription of the current group. 2546 "Toggle subscription of the current group.