procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* message.el (message-setup): Use cons. Suggested by Johan Vromans

Browse source 
<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.
This commit is contained in:
ShengHuo ZHU 2000-12-24 06:36:33 +00:00
parent f717c2baaa
commit 841696203a
6 changed files with 30 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/gnus/ChangeLog
View file

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

1
lisp/gnus/gnus-mh.el
View file

@ -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)))

6
lisp/gnus/gnus-sum.el
View file

@ -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)))

2
lisp/gnus/gnus-topic.el
View file

@ -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

1
lisp/gnus/gnus-vm.el
View file

@ -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)))

2
lisp/gnus/message.el
View file

@ -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