# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 977639793 0
# Node ID 6c93e7d6a9307e1e7477ae1d706c8bf97f5f797c
# Parent  6c2e68c36cdddf91c48ef67daf673042c1a33480
* message.el (message-setup): Use cons. Suggested by Johan Vromans
<jvromans@squirrel.nl>.

* 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.

* gnus-sum.el (gnus-summary-save-article):
(gnus-summary-pipe-output):
(gnus-summary-save-article-mail):
(gnus-summary-save-article-rmail):
(gnus-summary-save-article-file):
(gnus-summary-write-article-file):
(gnus-summary-save-article-body-file): Ditto.

* gnus-mh.el (gnus-summary-save-article-folder): Ditto.

diff -r 6c2e68c36cdd -r 6c93e7d6a930 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sat Dec 23 23:09:04 2000 +0000
+++ b/lisp/gnus/ChangeLog	Sun Dec 24 06:36:33 2000 +0000
@@ -1,3 +1,23 @@
+2000-12-24 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* message.el (message-setup): Use cons. Suggested by Johan Vromans
+	<jvromans@squirrel.nl>.
+
+	* 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.
+
+	* gnus-sum.el (gnus-summary-save-article): 
+	(gnus-summary-pipe-output): 
+	(gnus-summary-save-article-mail): 
+	(gnus-summary-save-article-rmail): 
+	(gnus-summary-save-article-file): 
+	(gnus-summary-write-article-file): 
+	(gnus-summary-save-article-body-file): Ditto.
+
+	* gnus-mh.el (gnus-summary-save-article-folder): Ditto.
+
 2000-12-22  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* gnus-art.el (gnus-article-check-hidden-text): Return t.
diff -r 6c2e68c36cdd -r 6c93e7d6a930 lisp/gnus/gnus-mh.el
--- a/lisp/gnus/gnus-mh.el	Sat Dec 23 23:09:04 2000 +0000
+++ b/lisp/gnus/gnus-mh.el	Sun Dec 24 06:36:33 2000 +0000
@@ -47,6 +47,7 @@
 If N is nil and any articles have been marked with the process mark,
 save those articles instead."
   (interactive "P")
+  (require 'gnus-art)
   (let ((gnus-default-article-saver 'gnus-summary-save-in-folder))
     (gnus-summary-save-article arg)))
 
diff -r 6c2e68c36cdd -r 6c93e7d6a930 lisp/gnus/gnus-sum.el
--- a/lisp/gnus/gnus-sum.el	Sat Dec 23 23:09:04 2000 +0000
+++ b/lisp/gnus/gnus-sum.el	Sun Dec 24 06:36:33 2000 +0000
@@ -9138,6 +9138,7 @@
 If N is nil and any articles have been marked with the process mark,
 pipe those articles instead."
   (interactive "P")
+  (require 'gnus-art)
   (let ((gnus-default-article-saver 'gnus-summary-save-in-pipe))
     (gnus-summary-save-article arg t))
   (gnus-configure-windows 'pipe))
@@ -9149,6 +9150,7 @@
 If N is nil and any articles have been marked with the process mark,
 save those articles instead."
   (interactive "P")
+  (require 'gnus-art)
   (let ((gnus-default-article-saver 'gnus-summary-save-in-mail))
     (gnus-summary-save-article arg)))
 
@@ -9159,6 +9161,7 @@
 If N is nil and any articles have been marked with the process mark,
 save those articles instead."
   (interactive "P")
+  (require 'gnus-art)
   (let ((gnus-default-article-saver 'gnus-summary-save-in-rmail))
     (gnus-summary-save-article arg)))
 
@@ -9169,6 +9172,7 @@
 If N is nil and any articles have been marked with the process mark,
 save those articles instead."
   (interactive "P")
+  (require 'gnus-art)
   (let ((gnus-default-article-saver 'gnus-summary-save-in-file))
     (gnus-summary-save-article arg)))
 
@@ -9179,6 +9183,7 @@
 If N is nil and any articles have been marked with the process mark,
 save those articles instead."
   (interactive "P")
+  (require 'gnus-art)
   (let ((gnus-default-article-saver 'gnus-summary-write-to-file))
     (gnus-summary-save-article arg)))
 
@@ -9189,6 +9194,7 @@
 If N is nil and any articles have been marked with the process mark,
 save those articles instead."
   (interactive "P")
+  (require 'gnus-art)
   (let ((gnus-default-article-saver 'gnus-summary-save-body-in-file))
     (gnus-summary-save-article arg)))
 
diff -r 6c2e68c36cdd -r 6c93e7d6a930 lisp/gnus/gnus-topic.el
--- a/lisp/gnus/gnus-topic.el	Sat Dec 23 23:09:04 2000 +0000
+++ b/lisp/gnus/gnus-topic.el	Sun Dec 24 06:36:33 2000 +0000
@@ -1130,7 +1130,7 @@
   (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
diff -r 6c2e68c36cdd -r 6c93e7d6a930 lisp/gnus/gnus-vm.el
--- a/lisp/gnus/gnus-vm.el	Sat Dec 23 23:09:04 2000 +0000
+++ b/lisp/gnus/gnus-vm.el	Sun Dec 24 06:36:33 2000 +0000
@@ -84,6 +84,7 @@
 If N is nil and any articles have been marked with the process mark,
 save those articles instead."
   (interactive "P")
+  (require 'gnus-art)
   (let ((gnus-default-article-saver 'gnus-summary-save-in-vm))
     (gnus-summary-save-article arg)))
 
diff -r 6c2e68c36cdd -r 6c93e7d6a930 lisp/gnus/message.el
--- a/lisp/gnus/message.el	Sat Dec 23 23:09:04 2000 +0000
+++ b/lisp/gnus/message.el	Sun Dec 24 06:36:33 2000 +0000
@@ -3595,7 +3595,7 @@
     (if (not (and message-this-is-mail mua))
 	(message-setup-1 headers replybuffer actions)
       (if replybuffer
-	  (setq yank-action (list 'insert-buffer replybuffer)))
+	  (setq yank-action (cons 'insert-buffer replybuffer)))
       (setq headers (copy-sequence headers))
       (setq field (assq 'Subject headers))
       (when field