Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-topic.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents 585fb297b004
children 59463afc5666
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
1022 (if all (cons (if (numberp all) all 7) t) gnus-group-list-mode))) 1022 (if all (cons (if (numberp all) all 7) t) gnus-group-list-mode)))
1023 (gnus-topic-fold all)) 1023 (gnus-topic-fold all))
1024 (gnus-group-read-group all no-article group))) 1024 (gnus-group-read-group all no-article group)))
1025 1025
1026 (defun gnus-topic-create-topic (topic parent &optional previous full-topic) 1026 (defun gnus-topic-create-topic (topic parent &optional previous full-topic)
1027 "Create a new TOPIC under PARENT.
1028 When used interactively, PARENT will be the topic under point."
1027 (interactive 1029 (interactive
1028 (list 1030 (list
1029 (read-string "New topic: ") 1031 (read-string "New topic: ")
1030 (gnus-current-topic))) 1032 (gnus-current-topic)))
1031 ;; Check whether this topic already exists. 1033 ;; Check whether this topic already exists.