*** gnus-cite.el.~1.22.~	2007-01-21 23:44:37.000000000 +0100
--- gnus-cite.el	2007-07-04 21:39:28.000000000 +0200
***************
*** 493,498 ****
--- 493,500 ----
  
  (defun gnus-article-fill-cited-article (&optional force width)
    "Do word wrapping in the current article.
+ If a region of the article buffer is selected, wrap only that region,
+ otherwise, do wrapping in the entire article buffer.
  If WIDTH (the numerical prefix), use that text width when filling."
    (interactive (list t current-prefix-arg))
    (save-excursion
***************
*** 511,518 ****
  		(fill-prefix
  		 (if (string= (cdar marks) "") ""
  		   (concat (cdar marks) " ")))
  		use-hard-newlines)
! 	    (fill-region (point-min) (point-max)))
  	  (set-marker (caar marks) nil)
  	  (setq marks (cdr marks)))
  	(when marks
--- 513,526 ----
  		(fill-prefix
  		 (if (string= (cdar marks) "") ""
  		   (concat (cdar marks) " ")))
+ 		(beg (if mark-active
+ 			 (max (region-beginning) (point-min))
+ 		       (point-min)))
+ 		(end (if (and mark-active (> (region-end) (point-min)))
+ 			 (min (region-end) (point-max))
+ 		       (point-max)))
  		use-hard-newlines)
! 	    (fill-region beg end))
  	  (set-marker (caar marks) nil)
  	  (setq marks (cdr marks)))
  	(when marks