From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/8975 Path: main.gmane.org!not-for-mail From: Hrvoje Niksic Newsgroups: gmane.emacs.gnus.general Subject: Re: Bug in toolbar? and some minor toolbar comments. Date: 26 Nov 1996 17:31:40 +0100 Sender: hniksic@public.srce.hr Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035149071 15694 80.91.224.250 (20 Oct 2002 21:24:31 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:24:31 +0000 (UTC) Cc: ding@ifi.uio.no Return-Path: Original-Received: (qmail 9380 invoked from smtpd); 26 Nov 1996 16:59:15 -0000 Original-Received: from ifi.uio.no (0@129.240.64.2) by deanna.miranova.com with SMTP; 26 Nov 1996 16:59:14 -0000 Original-Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id ; Tue, 26 Nov 1996 17:31:53 +0100 Original-Received: from hniksic@localhost by jagor.srce.hr (8.8.3/8.6.12.CI) id RAA09491; Tue, 26 Nov 1996 17:31:40 +0100 (MET) Original-To: Lars Magne Ingebrigtsen X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/ X-Attribution: Hrv X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nAEL1M(".[qvI#a2E 6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/XvhAu7qeES0\|MF%$;sI#yn1+y" In-Reply-To: Lars Magne Ingebrigtsen's message of 26 Nov 1996 15:22:48 +0100 Original-Lines: 63 X-Mailer: Red Gnus v0.71/XEmacs 19.14 Xref: main.gmane.org gmane.emacs.gnus.general:8975 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:8975 Lars Magne Ingebrigtsen (larsi@ifi.uio.no) wrote: > Hrvoje Niksic writes: > > > The problem with this command is that it will print the entire buffer, > > including the hidden headers. > > Yup. Fix in Red Gnus v0.71. Speaking of that, could you add the feature that a prefix argument behaves the way it does with ps-print-buffer-with-faces? The following simple patch soves it: *** gnus-sum.el.old Tue Nov 26 17:24:43 1996 --- gnus-sum.el Tue Nov 26 17:29:13 1996 *************** *** 6361,6369 **** (when gnus-break-pages (gnus-narrow-to-page)))) ! (defun gnus-summary-print-article () ! "Generate and print a PostScript image of the article buffer." ! (interactive) (gnus-summary-select-article) (gnus-eval-in-buffer-window gnus-article-buffer (let ((buffer (generate-new-buffer " *print*"))) --- 6361,6374 ---- (when gnus-break-pages (gnus-narrow-to-page)))) ! (defun gnus-summary-print-article (&optional filename) ! "Generate and print a PostScript image of the article buffer. ! ! If the optional 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))) (gnus-summary-select-article) (gnus-eval-in-buffer-window gnus-article-buffer (let ((buffer (generate-new-buffer " *print*"))) *************** *** 6372,6378 **** (copy-to-buffer buffer (point-min) (point-max)) (set-buffer buffer) (article-delete-invisible-text) ! (ps-print-buffer-with-faces)) (kill-buffer buffer))))) (defun gnus-summary-show-article (&optional arg) --- 6377,6383 ---- (copy-to-buffer buffer (point-min) (point-max)) (set-buffer buffer) (article-delete-invisible-text) ! (ps-print-buffer-with-faces filename)) (kill-buffer buffer))))) (defun gnus-summary-show-article (&optional arg) -- Hrvoje Niksic | Hocemo 101-icu! --------------------------------+-------------------------------- If a President doesn't do it to his wife, he'll do it to his country.