Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 48d667d6f17f
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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.