From 364a96d930f941e5bfc322c15934fd459794b512 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Thu, 24 Apr 2003 13:41:25 +0000 Subject: [PATCH] (nnrss-node-text): Ditto. --- lisp/ChangeLog | 2 ++ lisp/nnrss.el | 11 ++++++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d24da3cbd..6e78a90a0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,8 @@ * sieve.el (sieve-upload): Don't use replace-regexp-in-string. + * nnrss.el (nnrss-node-text): Ditto. + 2003-04-24 Katsumi Yamaoka * gnus-msg.el (gnus-inews-do-gcc): Make sure the obsolete variable diff --git a/lisp/nnrss.el b/lisp/nnrss.el index 4eefba0a8..bb238f2ce 100644 --- a/lisp/nnrss.el +++ b/lisp/nnrss.el @@ -514,11 +514,12 @@ It is useful when `(setq nnrss-use-local t)'." (text (if (and node (listp node)) (nnrss-node-just-text node) node)) - (cleaned-text (if text - (replace-regexp-in-string - " *$" "" (replace-regexp-in-string - "^ *" "" (replace-regexp-in-string - "^[[:cntrl:]]+" "" text)))))) + (cleaned-text (if text (gnus-replace-regexp-in-string + (gnus-replace-regexp-in-string + (gnus-replace-regexp-in-string + text "^[[:cntrl:]]+" "") + "^ *" "") + " *$" "")))) (if (string-equal "" cleaned-text) nil cleaned-text))) -- 2.34.1