Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-topic.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children 360340f9fd5f
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
428 (numberp (car entry)) 428 (numberp (car entry))
429 (not (member (gnus-info-group (setq info (nth 2 entry))) 429 (not (member (gnus-info-group (setq info (nth 2 entry)))
430 gnus-topic-tallied-groups))) 430 gnus-topic-tallied-groups)))
431 (push (gnus-info-group info) gnus-topic-tallied-groups) 431 (push (gnus-info-group info) gnus-topic-tallied-groups)
432 (incf unread (car entry))) 432 (incf unread (car entry)))
433 (when (and (listp entry) 433 (when (listp entry)
434 (numberp (car entry)))
435 (setq tick t))) 434 (setq tick t)))
436 (goto-char beg) 435 (goto-char beg)
437 ;; Insert the topic line. 436 ;; Insert the topic line.
438 (when (and (not silent) 437 (when (and (not silent)
439 (or gnus-topic-display-empty-topics ;We want empty topics 438 (or gnus-topic-display-empty-topics ;We want empty topics
488 (or insert (not (gnus-topic-visible-p)))) 487 (or insert (not (gnus-topic-visible-p))))
489 (let ((gnus-topic-topology gnus-topic-active-topology) 488 (let ((gnus-topic-topology gnus-topic-active-topology)
490 (gnus-topic-alist gnus-topic-active-alist) 489 (gnus-topic-alist gnus-topic-active-alist)
491 (gnus-group-list-mode (cons 5 t))) 490 (gnus-group-list-mode (cons 5 t)))
492 (gnus-topic-remove-topic 491 (gnus-topic-remove-topic
493 (or insert (not (gnus-topic-visible-p))) nil nil 9))))))) 492 (or insert (not (gnus-topic-visible-p))) nil nil 9)
493 (gnus-topic-enter-dribble)))))))
494 494
495 (defun gnus-topic-insert-topic-line (name visiblep shownp level entries 495 (defun gnus-topic-insert-topic-line (name visiblep shownp level entries
496 &optional unread) 496 &optional unread)
497 (let* ((visible (if visiblep "" "...")) 497 (let* ((visible (if visiblep "" "..."))
498 (indentation (make-string (* gnus-topic-indent-level level) ? )) 498 (indentation (make-string (* gnus-topic-indent-level level) ? ))
1278 (if (not (gnus-group-topic-p)) 1278 (if (not (gnus-group-topic-p))
1279 (error "Nothing to edit on the current line.") 1279 (error "Nothing to edit on the current line.")
1280 (let ((topic (gnus-group-topic-name))) 1280 (let ((topic (gnus-group-topic-name)))
1281 (gnus-edit-form 1281 (gnus-edit-form
1282 (gnus-topic-parameters topic) 1282 (gnus-topic-parameters topic)
1283 "Editing the topic parameters." 1283 (format "Editing the topic parameters for `%s'."
1284 (or group topic))
1284 `(lambda (form) 1285 `(lambda (form)
1285 (gnus-topic-set-parameters ,topic form))))))) 1286 (gnus-topic-set-parameters ,topic form)))))))
1286 1287
1287 (defun gnus-group-sort-topic (func reverse) 1288 (defun gnus-group-sort-topic (func reverse)
1288 "Sort groups in the topics according to FUNC and REVERSE." 1289 "Sort groups in the topics according to FUNC and REVERSE."