gnus-replace-in-string does not honor 'literal

gnus-replace-in-string does not honor 'literal

[nyc4bos]

Hi,

It appears that `gnus-replace-in-string' is not honoring the
optional parameter 'literal:

gnus-replace-in-string is a Lisp function in `gnus-util.el'.

(gnus-replace-in-string STRING REGEXP NEWTEXT &optional LITERAL)

Replace all matches for REGEXP with NEWTEXT in STRING.
If LITERAL is non-nil, insert NEWTEXT literally.  Return a new
string containing the replacements.


When I use it, I get the following results:

(gnus-replace-in-string
  gnus-newsgroup-name "INBOX" "Sent Items" 'literal)

"nnimap+aol:SENT ITEMS"


This value, however, is honored when using the similiar
`replace-regexp-in-string':

(replace-regexp-in-string
  "INBOX" "Sent Items" gnus-newsgroup-name 'literal)

"nnimap+aol:Sent Items"

I have also tried t (non-nil) in place of 'literal which
gives the same unexpected effect.

Thanks.

Re: gnus-replace-in-string does not honor 'literal

[Katsumi Yamaoka]

nyc4bos@aol.com wrote:
> It appears that `gnus-replace-in-string' is not honoring the
> optional parameter 'literal:

> gnus-replace-in-string is a Lisp function in `gnus-util.el'.

> (gnus-replace-in-string STRING REGEXP NEWTEXT &optional LITERAL)

> Replace all matches for REGEXP with NEWTEXT in STRING.
> If LITERAL is non-nil, insert NEWTEXT literally.  Return a new
> string containing the replacements.

`gnus-replace-in-string' is an imitation of `replace-in-string'
that is an XEmacs function:

(replace-in-string STR REGEXP NEWTEXT &optional LITERAL)

IIUC, `literal' means that `\'s in NEWTEXT are not treated
specially:

(gnus-replace-in-string "foo bar" "\\(bar\\)" "\\1 baz")
 => "foo bar baz"

(gnus-replace-in-string "foo bar" "\\(bar\\)" "\\1 baz" t)
 => "foo \\1 baz"

> When I use it, I get the following results:

> (gnus-replace-in-string
>   gnus-newsgroup-name "INBOX" "Sent Items" 'literal)

> "nnimap+aol:SENT ITEMS"

> This value, however, is honored when using the similiar
> `replace-regexp-in-string':

> (replace-regexp-in-string
>   "INBOX" "Sent Items" gnus-newsgroup-name 'literal)

> "nnimap+aol:Sent Items"

The 4th arg of `replace-regexp-in-string' is not LITERAL. ;-p