Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/gnus/gnus-topic.el	Mon Aug 13 08:50:31 2007 +0200
+++ b/lisp/gnus/gnus-topic.el	Mon Aug 13 08:51:03 2007 +0200
@@ -430,8 +430,7 @@
 			      gnus-topic-tallied-groups)))
 	(push (gnus-info-group info) gnus-topic-tallied-groups)
 	(incf unread (car entry)))
-      (when (and (listp entry)
-		 (numberp (car entry)))
+      (when (listp entry)
 	(setq tick t)))
     (goto-char beg)
     ;; Insert the topic line.
@@ -490,7 +489,8 @@
 		(gnus-topic-alist gnus-topic-active-alist)
 		(gnus-group-list-mode (cons 5 t)))
 	    (gnus-topic-remove-topic
-	     (or insert (not (gnus-topic-visible-p))) nil nil 9)))))))
+	     (or insert (not (gnus-topic-visible-p))) nil nil 9)
+	    (gnus-topic-enter-dribble)))))))
 
 (defun gnus-topic-insert-topic-line (name visiblep shownp level entries 
 					  &optional unread)
@@ -1280,7 +1280,8 @@
       (let ((topic (gnus-group-topic-name)))
 	(gnus-edit-form
 	 (gnus-topic-parameters topic)
-	 "Editing the topic parameters."
+	 (format "Editing the topic parameters for `%s'."
+		 (or group topic))
 	 `(lambda (form)
 	    (gnus-topic-set-parameters ,topic form)))))))