# # # A P

# # # A P

[Michael R Cook]

If I mark multiple articles (# # #), and then try to print them (A
P), gnus-summary-print-article prints only one article--the one
point is on.  Is this a bug?  Or am I misunderstanding how # is
supposed to work?

Michael.

Re: # # # A P

[Lars Balker Rasmussen]

Michael R Cook <mcook@cognex.com> writes:
> If I mark multiple articles (# # #), and then try to print them (A
> P), gnus-summary-print-article prints only one article--the one
> point is on.  Is this a bug?  Or am I misunderstanding how # is
> supposed to work?

Gnus doesn't currently use the process mark for all functions.

Maybe you just need to tell Lars about it when you spot a place you
think it's missing :-)
-- 
Lars Balker Rasmussen                                                 "No."

Re: # # # A P

[Lars Balker Rasmussen]

Lars Balker Rasmussen <lbr@image.dk> writes:
> Gnus doesn't currently use the process mark for all functions.
> 
> Maybe you just need to tell Lars about it when you spot a place you
> think it's missing :-)

Like `J u' for instance.
-- 
Lars Balker Rasmussen                                                 "No."

Re: # # # A P

[Michael R Cook]

>>>>> "LBR" == Lars Balker Rasmussen <lbr@image.dk> writes:

 >> If I mark multiple articles (# # #), and then try to print them (A
 >> P), gnus-summary-print-article prints only one article--the one
 >> point is on.  Is this a bug?  Or am I misunderstanding how # is
 >> supposed to work?

 LBR> Gnus doesn't currently use the process mark for all functions.

 LBR> Maybe you just need to tell Lars about it when you spot a place you
 LBR> think it's missing :-)

If someone could give us a quick tutorial on how to convert a
typical #-oblivious function to be #-aware, we could send
patches, rather than just asking Lars to do the work.

Michael.

Re: # # # A P

[jari.aalto]

 97-12-21 Michael R Cook <mcook@cognex.com> list.ding
| >>>>> "LBR" == Lars Balker Rasmussen <lbr@image.dk> writes:
|
| If someone could give us a quick tutorial on how to convert a
| typical #-oblivious function to be #-aware, we could send
| patches, rather than just asking Lars to do the work.

The framework goes something like this, this is excerpt from my TinyGnus.el
package. Notice that I reset some hooks in #-processing functions.

jari

(put 'tign-summary-map-articles-macro 'lisp-indent-function 0)
(defmacro tign-summary-map-articles-macro (&rest body)
  "Map through marked articles in Summary buffer.
The variable `nbr' has the current article number. Use command
 (return) to stop the loop."
  (`
   (let* ((articles (gnus-summary-work-articles nil))
          gnus-article-display-hook     ;Do not run this
          gnus-article-prepare-hook
          gnus-select-article-hook
          gnus-article-mode-hook
          gnus-visual-mark-article-hook
          )
     ;; (gnus-summary-save-process-mark)
     (dolist (nbr articles)
       (,@ body)
       ))))


    (tign-summary-map-articles-macro
      (gnus-summary-select-article 'all nil 'pseudo nbr)
      ...Do action...
      )

Re: # # # A P

[Justin Sheehy]

Lars Balker Rasmussen <lbr@image.dk> writes:

> Gnus doesn't currently use the process mark for all functions.
> 
> Maybe you just need to tell Lars about it when you spot a place you
> think it's missing :-)

Of course, until your function of choice does support
process/prefix, you can always just make it act like it with M-&...

-- 
Justin Sheehy

In a cloud bones of steel.
  

Re: # # # A P

[Michael R Cook]

>>>>> "J" ==   <jari.aalto@poboxes.com> writes:

 J> The framework goes something like this, this is excerpt from my
 J> TinyGnus.el package.

Okay, this patch makes `gnus-summary-print-article' #-aware.  This
patch includes an interface change (`gnus-summary-print-article' was
a 1-option arg function, now it's a 2-optional arg function).

*** gnus-sum.el.~1~	Sat Dec  6 11:45:19 1997
--- gnus-sum.el	Wed Dec 24 14:36:48 1997
***************
*** 6676,6700 ****
      (when gnus-page-broken
        (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*")))
!       (unwind-protect
! 	  (progn
! 	    (copy-to-buffer buffer (point-min) (point-max))
! 	    (set-buffer buffer)
! 	    (gnus-article-delete-invisible-text)
! 	    (run-hooks 'gnus-ps-print-hook)
! 	    (ps-print-buffer-with-faces filename))
! 	(kill-buffer buffer)))))
  
  (defun gnus-summary-show-article (&optional arg)
    "Force re-fetching of the current article.
--- 6676,6706 ----
      (when gnus-page-broken
        (gnus-narrow-to-page))))
  
! (defun gnus-summary-print-article (&optional n filename)
!   "Generate and print a PostScript image of the N next (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 the optional second 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 current-prefix-arg
! 		     (ps-print-preprint current-prefix-arg)))
!   (let ((articles (gnus-summary-work-articles n)))
!     (dolist (nbr articles)
!       (gnus-summary-select-article 'all nil 'pseudo nbr)
!       (gnus-eval-in-buffer-window gnus-article-buffer
! 	(let ((buffer (generate-new-buffer " *print*")))
! 	  (unwind-protect
! 	      (progn
! 		(copy-to-buffer buffer (point-min) (point-max))
! 		(set-buffer buffer)
! 		(gnus-article-delete-invisible-text)
! 		(run-hooks 'gnus-ps-print-hook)
! 		(ps-print-buffer-with-faces filename))
! 	    (kill-buffer buffer)))))))
  
  (defun gnus-summary-show-article (&optional arg)
    "Force re-fetching of the current article.

Michael.

Re: # # # A P

[Lars Magne Ingebrigtsen]

Lars Balker Rasmussen <lbr@image.dk> writes:

> > Maybe you just need to tell Lars about it when you spot a place you
> > think it's missing :-)
> 
> Like `J u' for instance.

Yup.  Fix in Quassia Gnus v0.19.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen