From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/64597 Path: news.gmane.org!not-for-mail From: michael@cadilhac.name (=?iso-8859-1?Q?Micha=EBl?= Cadilhac) Newsgroups: gmane.emacs.gnus.general Subject: Re: =?iso-8859-1?Q?=AB?= How many articles from ? =?iso-8859-1?Q?=BB?= group width. Date: Tue, 08 May 2007 15:27:45 +0200 Organization: Epita/LRDE Message-ID: <87ps5b78dq.fsf@lrde.org> References: <87bqjav34k.fsf@lrde.org> <87zm6uid3w.fsf@catnip.gol.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: sea.gmane.org 1178630900 5908 80.91.229.12 (8 May 2007 13:28:20 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 8 May 2007 13:28:20 +0000 (UTC) Cc: ding@gnus.org To: Miles Bader Original-X-From: ding-owner+M13108@lists.math.uh.edu Tue May 08 15:28:18 2007 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1HlPjk-0008J1-VS for ding-account@gmane.org; Tue, 08 May 2007 15:28:17 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1HlPjL-0004ze-TI; Tue, 08 May 2007 08:27:51 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1HlPjJ-0004zI-I5 for ding@lists.math.uh.edu; Tue, 08 May 2007 08:27:49 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.63) (envelope-from ) id 1HlPjI-0004jP-CW for ding@lists.math.uh.edu; Tue, 08 May 2007 08:27:49 -0500 Original-Received: from smtp3-g19.free.fr ([212.27.42.29]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1HlPjH-0007GJ-00 for ; Tue, 08 May 2007 15:27:47 +0200 Original-Received: from localhost (ivr94-6-82-230-255-91.fbx.proxad.net [82.230.255.91]) by smtp3-g19.free.fr (Postfix) with ESMTP id CD8045F029; Tue, 8 May 2007 15:27:46 +0200 (CEST) X-Website: http://michael.cadilhac.name Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAMAAABg3Am1AAAAYFBMVEUWCwUyFQk6JBNLGglQK BVRMiRkHQtwMBZuOCRyRi1iQiZyUUCFNxuIPCKRTC2mVTSpZTqVVS2SW0OYZkixb0qraE/KeU7EcT +4h2bPhVfQkm7hlnDkvZjYqIjrwJnzwqB5+4wZAAAACXBIWXMAAAsTAAALEwEAmpwYAAAACXZwQWc AAAAwAAAAMADO7oxXAAADvUlEQVRIx32Wi5ajIAyGRcCAchErVqu27/+W+wfbs724i3Mcz5n/S0JI wlTbyXrs+zrFEL1zPuIdY7xO6+PBf6u27f4DrFPO3jvoQYRYFoj9CXyu+7ZPEWrXUNM0zpEfgjuY9 RTY1hyg5qUNgMb44Dwiiz5OZ8DCwVCjpdLaGNOVtw+M+Lz+AlNwRAhGSamh1abrtFKmG0DkmL8BhE +GdCNlreChBaO7DpjpIvbv/fr4AnqErhoYF6KI4aPrLIeFQLGj6RO4JWLjtdZ1WQXhvegGG0EKyO/ vwH7xJBk4tLrW5UPxN3zAufHDO3Axh4MCMPLisKQyRuJo/Btw60gpWcu6OogjsmIeiRIKgUlj3oCp a1QtRP1ywT9VfXCiZMEg4X+BfYADAHhhdc+NV1UBBT9SIedvgFFwDFslkO7S8e+KtQcohJCyefdgt DoC4pe+FB8VL3bDeiGB/AVurZJCvY5AtdaSKpYLJArxCXCOlMUpiRpF0Sbb8nZYBnGBPoGZuOCGAd lTqgXRlrrDuUgpDh+VNPYN0IRALnkIFsVTiBanbBQbesYl1Num584iojnnHIPVJRSJvFnrrFHPmD6 yBKJVbZ+nKScjIVfatlSaJ9BBiIbcW1rnOSF4F/OYGiFLQaCXyAUsLTggnAN9VOuMaBtuX1QmHwok RD4CIHzXChG5z37oWkRhxx5tCmdKNUSp7/tUYlQwQ/6z424JPtr+mlwwwbbGQj5CXwBjyPj4NQRmJ J7GZez7mPpk02W+jvgMnFrUaozhE7jPF9va+QZinMaxn0dGMSy5ExuHmdZ8APf7felTv9zGccGal3 le2JdHt0lJaGklvjwA6JcVACwXpugd+gAJQvuIL2C7r9eJgQscXQH0I+sxkrBjjE0ukW9gui7rMo9 DAoGnTzyZceA8lYh+AMxWeFiu/ZhSLCeAUex4hhPr6XsPPAqu0xRxNVAaS0J58pODvhCN/AFWziLP rMtYjsxD6y0dDpDeH2Cf+sxEyPmSYuIJbOi1zCmQc/DkbQg2FQ/O2RfgDP0Aj8eU+VpDmlpLvBkqe kTJpe5+r6xtz9A7VnCxlthfAJkz4JGRJfzVcEiHHK36BOgE2PYRPpIna0K5wAzGCLcWN6A6A3CRRu SJWo+NoybQfag9TA/CxymwTdnDWkh4cPOweckTRCkhzgH8K+ChxkKG2L4oQBlPp8B2G/sc02CDKTp xXExlOJ3q79vcpyGYlmelFOXRxyj/hwe+XnBhw6osY17wJfB/IB/3o2a14Hl8jNfqDx44iLN4w0aG AAAAAElFTkSuQmCC In-Reply-To: <87zm6uid3w.fsf@catnip.gol.com> (Miles Bader's message of "Sun\, 04 Mar 2007 00\:02\:59 +0900") User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.95 (gnu/linux) X-Spam-Score: -1.6 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:64597 Archived-At: --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Miles Bader writes: > michael@cadilhac.name (Micha=EBl Cadilhac) writes: >> There's a little thing that annoys me from time to time : I have >> (quite) long group names, and when the =AB How many articles =BB questi= on >> is asked, the name is truncated to 35 chars, and I don't see the >> entire group name. > > Why is it necessary to truncate it at all? Emacs from version 21 on > will grow the minibuffer as necessary to show the whole prompt. Right! And why not delete `gnus-limit-string' after that? `truncate-s-t-width' seems to be in (X)Emacs for quite a long time. --=-=-= Content-Type: text/x-patch; charset=iso-8859-1 Content-Disposition: inline; filename=gnus-sum-rs.patch Content-Transfer-Encoding: quoted-printable Index: lisp/gnus-sum.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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 =2D-- lisp/gnus-sum.el 8 May 2007 13:17:41 -0000 *************** *** 5634,5642 **** (read-string (format "How many articles from %s (%s %d): " ! (gnus-limit-string ! (gnus-group-decoded-name gnus-newsgroup-name) ! 35) (if initial "max" "default") number) (if initial =2D-- 5634,5640 ---- (read-string (format "How many articles from %s (%s %d): " ! (gnus-group-decoded-name gnus-newsgroup-name) (if initial "max" "default") number) (if initial *************** *** 12245,12252 **** (read-string (format "How many articles from %s (%s %d): " ! (gnus-limit-string ! (gnus-group-decoded-name gnus-newsgroup-name) 35) (if initial "max" "default") len) (if initial =2D-- 12243,12249 ---- (read-string (format "How many articles from %s (%s %d): " ! (gnus-group-decoded-name gnus-newsgroup-name) (if initial "max" "default") len) (if initial Index: lisp/ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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 =2D-- lisp/ChangeLog 8 May 2007 13:17:47 -0000 *************** *** 0 **** =2D-- 1,6 ---- + 2007-05-08 Micha=EBl Cadilhac +=20 + * gnus-sum.el (gnus-articles-to-read) + (gnus-summary-insert-old-articles): Don't truncate group name for + read-string. +=20 --=-=-= Content-Type: text/x-patch; charset=iso-8859-1 Content-Disposition: inline; filename=gnus-sum-ts.patch Content-Transfer-Encoding: quoted-printable Index: lisp/gnus-util.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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 =2D-- lisp/gnus-util.el 8 May 2007 13:23:23 -0000 *************** *** 109,123 **** (set symbol nil)) symbol)) =20=20 =2D ;; Added by Geoffrey T. Dairiki . A safe way =2D ;; to limit the length of a string. This function is necessary since =2D ;; `(substr "abc" 0 30)' pukes with "Args out of range". =2D ;; Fixme: Why not `truncate-string-to-width'? =2D (defsubst gnus-limit-string (str width) =2D (if (> (length str) width) =2D (substring str 0 width) =2D str)) =2D=20 (defsubst gnus-goto-char (point) (and point (goto-char point))) =20=20 =2D-- 109,114 ---- Index: lisp/gnus-sum.el =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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 =2D-- 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))) =20=20 =2D-- 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))) =20=20 Index: lisp/ChangeLog =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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 =2D-- lisp/ChangeLog 8 May 2007 13:22:03 -0000 *************** *** 0 **** =2D-- 1,7 ---- + 2007-05-08 Micha=EBl Cadilhac +=20 + * gnus-util.el (gnus-limit-string): Delete this function. +=20 + * gnus-sum.el (gnus-simplify-subject-fully): Use + `truncate-string-to-width' instead. +=20 --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable =2D-=20 | Micha=EBl `Micha' Cadilhac | (\(\ This is the cute bunny virus= , | | http://michael.cadilhac.name | (^.^) please copy this into your = | | JID/MSN: | (")") sig so it can spread. = | `---- michael.cadilhac@gmail.com | - = --' --=-=-=-- --==-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v2.0.2 (GNU/Linux) iD8DBQFGQHrRUJhDmOfFA3URAiRFAJ9E7DtiRE6jrLFOMducPcfU4/fx1ACgqnGT 25Y0ljLSl7TOO2+WZRO9KOs= =zv86 -----END PGP SIGNATURE----- --==-=-=--