From 89a0d695a7cf87275b38f2a8bc51a60255a39c59 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Micha=C3=ABl=20Cadilhac?= Date: Sat, 12 May 2007 15:10:15 +0000 Subject: [PATCH] * gnus-util.el (gnus-limit-string): Delete this function. * gnus-sum.el (gnus-simplify-subject-fully): Use `truncate-string-to-width' instead. --- lisp/ChangeLog | 5 +++++ lisp/gnus-sum.el | 4 ++-- lisp/gnus-util.el | 9 --------- 3 files changed, 7 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 42a2ff720..80a6ec7c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -4,6 +4,11 @@ (gnus-summary-insert-old-articles): Don't truncate group name for `read-string'. + * gnus-util.el (gnus-limit-string): Delete this function. + + * gnus-sum.el (gnus-simplify-subject-fully): Use + `truncate-string-to-width' instead. + 2007-05-11 Micha,Ak(Bl Cadilhac * gnus-sum.el (gnus-summary-next-group-on-exit): New variable. Tell if, on diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 556421a4c..f1d0a4806 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1708,8 +1708,8 @@ See `gnus-simplify-buffer-fuzzy' for details." ((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)) + (truncate-string-to-width (gnus-simplify-subject-re subject) + gnus-summary-gather-subject-limit)) (t subject))) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 631e4be76..57e273a77 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -109,15 +109,6 @@ This is a compatibility function for different Emacsen." (set symbol nil)) symbol)) -;; Added by Geoffrey T. Dairiki . 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))) -- 2.34.1