From cdbed0144ed2b2f9c07058c8e7bec5caf3351fb6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 23 Jan 2001 00:44:29 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-sum.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 149c961..ffe316e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-01-22 17:00:00 ShengHuo ZHU + + * gnus-sum.el (gnus-summary-print-article): Take one prefix + argument. Allow to print several articles in one file. + 2001-01-21 12:00:00 ShengHuo ZHU * webmail.el (webmail-type-definition): netaddress changes. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index af835dd..5e313ee 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -7547,8 +7547,7 @@ If the optional first argument FILENAME is nil, send the image to the printer. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is a number, prompt the user for the name of the file to save in." - (interactive (list (ps-print-preprint current-prefix-arg) - current-prefix-arg)) + (interactive (list (ps-print-preprint current-prefix-arg))) (dolist (article (gnus-summary-work-articles n)) (gnus-summary-select-article nil nil 'pseudo article) (gnus-eval-in-buffer-window gnus-article-buffer @@ -7571,8 +7570,9 @@ to save in." (mail-header-date gnus-current-headers) ")")))) (gnus-run-hooks 'gnus-ps-print-hook) (save-excursion - (ps-print-buffer-with-faces filename)))) - (kill-buffer buffer)))))) + (ps-spool-buffer-with-faces)))) + (kill-buffer buffer))))) + (ps-despool filename)) (defun gnus-summary-show-article (&optional arg) "Force re-fetching of the current article. -- 1.7.10.4