* 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 --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f6f9229794bfb14ce172fe789c80ca7e91cf59f7..a88151febda76af9cec08e31794c59ef2b889aca 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/gnus-mh.el b/lisp/gnus/gnus-mh.el
index a73e90b6ab3cb438bd93c2c180c6da19020d2904..dd54c8134df513265a4d93f8084db7d26d8fe19a 100644 (file)
--- a/lisp/gnus/gnus-mh.el
+++ b/lisp/gnus/gnus-mh.el
@@ -47,6 +47,7 @@ If N is a negative number, save the N previous articles.
 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 --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 33023546ccdde1ab1803eba0fc3bf823ed1cb523..697224c160789b074863e32bbbf5013cd666f771 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -9138,6 +9138,7 @@ If N is a negative number, pipe the N previous articles.
 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 a negative number, save the N previous articles.
 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 a negative number, save the N previous articles.
 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 a negative number, save the N previous articles.
 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 a negative number, save the N previous articles.
 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 a negative number, save the N previous articles.
 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 --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el
index 4b22a4d78400fe2ce200edac492a12658fdff558..3761dbc17b9ec5bf96e16f98db1a44ce65c83c49 100644 (file)
--- a/lisp/gnus/gnus-topic.el
+++ b/lisp/gnus/gnus-topic.el
@@ -1130,7 +1130,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

diff --git a/lisp/gnus/gnus-vm.el b/lisp/gnus/gnus-vm.el
index d9abe3e586739e834efa624908486d589b528f86..53b741f711c7e2a200a58921f68a27be5b62a552 100644 (file)
--- a/lisp/gnus/gnus-vm.el
+++ b/lisp/gnus/gnus-vm.el
@@ -84,6 +84,7 @@ If N is a negative number, save the N previous articles.
 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 --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 3044bdc196b89e10840d823d8d2ab1dd258c0878..ae3b3a5d71ae1237263b9933b02e9b85b8acbf0a 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -3595,7 +3595,7 @@ than 988 characters long, and if they are not, trim them until they are."
     (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