Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-srvr.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 85ec50267440
children
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
501 " " gnus-browse-read-group 501 " " gnus-browse-read-group
502 "=" gnus-browse-select-group 502 "=" gnus-browse-select-group
503 "n" gnus-browse-next-group 503 "n" gnus-browse-next-group
504 "p" gnus-browse-prev-group 504 "p" gnus-browse-prev-group
505 "\177" gnus-browse-prev-group 505 "\177" gnus-browse-prev-group
506 [delete] gnus-browse-prev-group
506 "N" gnus-browse-next-group 507 "N" gnus-browse-next-group
507 "P" gnus-browse-prev-group 508 "P" gnus-browse-prev-group
508 "\M-n" gnus-browse-next-group 509 "\M-n" gnus-browse-next-group
509 "\M-p" gnus-browse-prev-group 510 "\M-p" gnus-browse-prev-group
510 "\r" gnus-browse-select-group 511 "\r" gnus-browse-select-group
659 660
660 (defun gnus-browse-unsubscribe-current-group (arg) 661 (defun gnus-browse-unsubscribe-current-group (arg)
661 "(Un)subscribe to the next ARG groups." 662 "(Un)subscribe to the next ARG groups."
662 (interactive "p") 663 (interactive "p")
663 (when (eobp) 664 (when (eobp)
664 (error "No group at current line.")) 665 (error "No group at current line"))
665 (let ((ward (if (< arg 0) -1 1)) 666 (let ((ward (if (< arg 0) -1 1))
666 (arg (abs arg))) 667 (arg (abs arg)))
667 (while (and (> arg 0) 668 (while (and (> arg 0)
668 (not (eobp)) 669 (not (eobp))
669 (gnus-browse-unsubscribe-group) 670 (gnus-browse-unsubscribe-group)