Mercurial > emacs

changeset 34858:6c93e7d6a930

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Sun, 24 Dec 2000 06:36:33 +0000
parents 6c2e68c36cdd
children 596342378358
files lisp/gnus/ChangeLog lisp/gnus/gnus-mh.el lisp/gnus/gnus-sum.el lisp/gnus/gnus-topic.el lisp/gnus/gnus-vm.el lisp/gnus/message.el
diffstat 6 files changed, 30 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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)))
 
--- 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)))
 
--- 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
--- 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)))
 
--- 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