Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-topic.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children ec9a17fef872
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
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."