2000-12-22 12:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-topic.el (gnus-topic-create-topic): Use list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e0d436..d4de092 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-12-22 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-topic.el (gnus-topic-create-topic): Use list.
+
        * gnus-vm.el (gnus-summary-save-article-vm): Require gnus-art
        before binding gnus-default-article-saver.
 

diff --git a/lisp/gnus-topic.el b/lisp/gnus-topic.el
index 30ac8fa..89bcbdc 100644 (file)
--- a/lisp/gnus-topic.el
+++ b/lisp/gnus-topic.el
@@ -1175,7 +1175,7 @@ When used interactively, PARENT will be the topic under point."
   (unless parent
     (setq parent (caar gnus-topic-topology)))
   (let ((top (cdr (gnus-topic-find-topology parent)))
-       (full-topic (or full-topic `((,topic visible)))))
+       (full-topic (or full-topic (list (list topic 'visible nil nil)))))
     (unless top
       (error "No such parent topic: %s" parent))
     (if previous