From: yamaoka Date: Tue, 23 Jan 2001 00:44:29 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_0-05-quimby-last-~33 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cdbed0144ed2b2f9c07058c8e7bec5caf3351fb6;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- 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.