From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/46078
Path: main.gmane.org!not-for-mail
From: Reiner Steib <4uce.02.r.steib@gmx.net>
Newsgroups: gmane.emacs.gnus.general
Subject: [Patch] printing articles differently than displaying them
Date: Fri, 09 Aug 2002 20:52:37 +0200
Sender: owner-ding@hpc.uh.edu
Message-ID: <v91y97q2yy.fsf@marauder.physik.uni-ulm.de>
Reply-To: reiner.steib@gmx.de
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: main.gmane.org 1028919380 28520 127.0.0.1 (9 Aug 2002 18:56:20 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 9 Aug 2002 18:56:20 +0000 (UTC)
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 17dEvr-0007Pt-00
	for <ding-account@gmane.org>; Fri, 09 Aug 2002 20:56:19 +0200
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 17dEsf-0006j9-00; Fri, 09 Aug 2002 13:53:01 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 09 Aug 2002 13:53:29 -0500 (CDT)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id NAA00028
	for <ding@hpc.uh.edu>; Fri, 9 Aug 2002 13:53:13 -0500 (CDT)
Original-Received: (qmail 26437 invoked by alias); 9 Aug 2002 18:52:40 -0000
Original-Received: (qmail 26432 invoked from network); 9 Aug 2002 18:52:40 -0000
Original-Received: from theotp5.physik.uni-ulm.de (134.60.10.145)
  by gnus.org with SMTP; 9 Aug 2002 18:52:39 -0000
Original-Received: (from ste@localhost)
	by theotp5.physik.uni-ulm.de (8.11.2/8.11.2) id g79IqbL15025;
	Fri, 9 Aug 2002 20:52:37 +0200
X-Authentication-Warning: theotp5.physik.uni-ulm.de: ste set sender to reiner.steib@physik.uni-ulm.de using -f
Original-To: ding@gnus.org
Mail-Followup-To: ding@gnus.org
X-Face: P05mdcZT&lL[-s2=mw~RsllZ0zZAb?vdE}.s<l:C!'y=7MhVA[J6}92Ma:vvdy](YbA+AS!
 n"JLX4vFh8fL,.+XSC(B%i/V9e]L$EiVH,QI;j+ffz9#AW~w)n
Original-Lines: 48
User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.3.50
 (i586-pc-linux-gnu)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:46078
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:46078

--=-=-=

I use normally use (setq gnus-treat-hide-citation t). But when I print
some process marked articles I'd like to see the cited text in the
printed version. Well, I could change `gnus-treat-hide-citation'
before (and after) printing manually, but I think there should be a
hook to do this job. `gnus-ps-print-hook' comes too late.

I'm quite new to elisp, so I'd appreciate comments. Maybe my patch is
nonsense. ;-)

I added a hook that is run from `gnus-summary-print-article'
(whereas `gnus-ps-print-hook' is run from `gnus-print-buffer').

But even if I toggle `gnus-treat-hide-citation' I have to re-display
the current article again, because `gnus-summary-select-article' is
called with FORCE (2nd optional arg) set to nil. Therefore I added a
variable to customize this: `gnus-ps-print-refetch-selected-article'.

Inside `gnus-summary-print-article' I made `gnus-treat-hide-citation'
and `gnus-treat-hide-citation-maybe' local variables.

Now I'm able to print w/o hidden citations:

(setq gnus-ps-print-refetch-selected-article t)
(add-hook 'gnus-ps-print-select-article-hook 
	  '(lambda ()
	     (setq gnus-treat-hide-citation nil)))

The patch may also be useful if someone wants to read with citations
and print without citations.

The current behavior of `gnus-summary-print-article' is not changed
(`gnus-ps-print-select-article-hook' and
`gnus-ps-print-refetch-selected-article' are nil by default).

In case the patch will be accepted, I could write some lines for
<info://gnus/Article+Commands> too. There's the documentation for
`gnus-summary-print-article' and `gnus-ps-print-hook'.

So, here's the patch:


--=-=-=
Content-Type: text/x-patch
Content-Disposition: inline; filename=gnus-sum.print-article.patch
Content-Description: patch for gnus-summary-print-article

--- gnus-sum.el	2002/08/03 23:06:05	6.220
+++ gnus-sum.el	2002/08/08 21:16:50
@@ -833,6 +833,11 @@
   :group 'gnus-summary
   :type 'hook)
 
+(defcustom gnus-ps-print-select-article-hook nil
+  "*A hook run before selecting an article for ps-printing."
+  :group 'gnus-summary
+  :type 'hook)
+
 (defcustom gnus-summary-display-arrow
   (and (fboundp 'display-graphic-p)
        (display-graphic-p))
@@ -1016,6 +1021,12 @@
   :group 'gnus-summary
   :type '(choice boolean regexp))
 
+(defcustom gnus-ps-print-refetch-selected-article nil
+  "Whether Gnus should re-fetch articles before printing."
+  :version "21.3"
+  :type 'boolean
+  :group 'gnus-article)
+
 (defcustom gnus-summary-muttprint-program "muttprint"
   "Command (and optional arguments) used to run Muttprint."
   :version "21.3"
@@ -8182,12 +8193,16 @@
 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)))
-  (dolist (article (gnus-summary-work-articles n))
-    (gnus-summary-select-article nil nil 'pseudo article)
-    (gnus-eval-in-buffer-window gnus-article-buffer
-      (gnus-print-buffer))
-    (gnus-summary-remove-process-mark article))
-  (ps-despool filename))
+  (let ((gnus-treat-hide-citation)
+	(gnus-treat-hide-citation-maybe))
+    (gnus-run-hooks 'gnus-ps-print-select-article-hook)
+    (dolist (article (gnus-summary-work-articles n))
+      (gnus-summary-select-article nil gnus-ps-print-refetch-selected-article
+       'pseudo article)
+      (gnus-eval-in-buffer-window gnus-article-buffer
+	(gnus-print-buffer))
+      (gnus-summary-remove-process-mark article))
+    (ps-despool filename)))
 
 (defun gnus-print-buffer ()
   (let ((buffer (generate-new-buffer " *print*")))

--=-=-=


Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/

--=-=-=--