Index: lisp/gnus-util.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-util.el,v
retrieving revision 7.62
diff -c -r7.62 gnus-util.el
*** lisp/gnus-util.el	27 Apr 2007 08:39:17 -0000	7.62
--- lisp/gnus-util.el	8 May 2007 13:23:23 -0000
***************
*** 109,123 ****
  	 (set symbol nil))
       symbol))
  
- ;; Added by Geoffrey T. Dairiki <dairiki@u.washington.edu>.  A safe way
- ;; to limit the length of a string.  This function is necessary since
- ;; `(substr "abc" 0 30)' pukes with "Args out of range".
- ;; Fixme: Why not `truncate-string-to-width'?
- (defsubst gnus-limit-string (str width)
-   (if (> (length str) width)
-       (substring str 0 width)
-     str))
- 
  (defsubst gnus-goto-char (point)
    (and point (goto-char point)))
  
--- 109,114 ----
Index: lisp/gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 7.182
diff -c -r7.182 gnus-sum.el
*** lisp/gnus-sum.el	27 Apr 2007 08:39:17 -0000	7.182
--- lisp/gnus-sum.el	8 May 2007 13:21:58 -0000
***************
*** 1678,1685 ****
     ((eq gnus-summary-gather-subject-limit 'fuzzy)
      (gnus-simplify-subject-fuzzy subject))
     ((numberp gnus-summary-gather-subject-limit)
!     (gnus-limit-string (gnus-simplify-subject-re subject)
! 		       gnus-summary-gather-subject-limit))
     (t
      subject)))
  
--- 1678,1685 ----
     ((eq gnus-summary-gather-subject-limit 'fuzzy)
      (gnus-simplify-subject-fuzzy subject))
     ((numberp gnus-summary-gather-subject-limit)
!     (truncate-string-to-width (gnus-simplify-subject-re subject)
! 			      gnus-summary-gather-subject-limit))
     (t
      subject)))
  
Index: lisp/ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 7.1543
diff -C0 -r7.1543 ChangeLog
*** lisp/ChangeLog	3 May 2007 18:34:28 -0000	7.1543
--- lisp/ChangeLog	8 May 2007 13:22:03 -0000
***************
*** 0 ****
--- 1,7 ----
+ 2007-05-08  Michaël Cadilhac  <michael@cadilhac.name>
+ 
+ 	* gnus-util.el (gnus-limit-string): Delete this function.
+ 
+ 	* gnus-sum.el (gnus-simplify-subject-fully): Use
+ 	`truncate-string-to-width' instead.
+