Re: ldap cert retrieval and pem encoding

[Simon Josefsson <jas@extundo.com>]

Ulf Stegemann <ulf@zeitform.de> writes:

> Simon Josefsson <jas@extundo.com> wrote:
>
> [...]
>
>> Applied to CVS.
>
> [...]
>
>>>   (replace-in-string 
>>>    (cadaar ldapresult) 
>>>    "\\(\n\\|\r\\|-----BEGIN CERTIFICATE-----\\|-----END CERTIFICATE-----\\)"
>>>    "" t))
>>
>> This one too, let me know whether it works now.
>
> Yes, it works for xemacs.  I think emacs will need the original
> replace-regexp-in-string instead.  My emacs does not know replace-in-string.

Well, we want something that works in both.  Perhaps we could
duplicate the stuff from gnus-util.el in smime.el?  Renaming it to
smime-replace-in-string first, of course.  Better ideas welcome; I'll
install the best idea tomorrow, unless someone beats me to it.

(eval-and-compile
  (cond
   ((fboundp 'replace-in-string)
    (defalias 'gnus-replace-in-string 'replace-in-string))
   ((fboundp 'replace-regexp-in-string)
    (defun 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.

This is a compatibility function for different Emacsen."
      (replace-regexp-in-string regexp newtext string nil literal)))))