From: yamaoka Date: Sun, 4 Jan 2004 23:28:39 +0000 (+0000) Subject: T-gnus 6.16.6 revision 00. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Ft-gnus-6_16-quimby;p=elisp%2Fgnus.git- T-gnus 6.16.6 revision 00. --- diff --git a/ChangeLog b/ChangeLog index 3ebc9c4..ea338cb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2004-01-04 Katsumi Yamaoka + * lisp/gnus-vers.el: T-gnus 6.16.6 revision 00. + +2004-01-04 Katsumi Yamaoka + * lisp/gnus-vers.el: T-gnus 6.16.5 revision 00. 2004-01-04 Katsumi Yamaoka diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7ad93f5..f2f699f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-01-04 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.10.6 is released. + +2004-01-04 Kai Grossjohann + + * gnus-sum.el (gnus-summary-print-article): Doc fix. + 2004-01-04 Lars Magne Ingebrigtsen * gnus.el (gnus-version-number): Bump. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 2dd2bd4..a8938f3 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -8648,10 +8648,16 @@ article. If BACKWARD (the prefix) is non-nil, search backward instead." "[()]" "\\\\\\&")) (defun gnus-summary-print-article (&optional filename n) - "Generate and print a PostScript image of the N next (mail) articles. + "Generate and print a PostScript image of the process-marked (mail) articles. -If N is negative, print the N previous articles. If N is nil and articles -have been marked with the process mark, print these instead. +If used interactively, print the current article if none are +process-marked. With prefix arg, prompt the user for the name of the +file to save in. + +When used from Lisp, accept two optional args FILENAME and N. N means +to print the next N articles. If N is negative, print the N previous +articles. If N is nil and articles have been marked with the process +mark, print these instead. 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 diff --git a/lisp/mail-source.el b/lisp/mail-source.el index 0942443..061530e 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -262,7 +262,7 @@ If non-nil, this maildrop will be checked periodically for new mail." :group 'mail-source :type 'integer) -(defcustom mail-source-delete-incoming nil +(defcustom mail-source-delete-incoming t "*If non-nil, delete incoming files after handling. If t, delete immediately, if nil, never delete. If a positive number, delete files older than number of days."