Re: auth-source (.authinfo.gpg) stopped working?

[Katsumi Yamaoka <yamaoka@jpl.org>]

Ueno-san wrote:
[...]
> XEmacs does not have rot13-string and dgnushack.el defines rot13-string
> as a macro:

> (defmacro rot13-string (string)
>   "Return ROT13 encryption of STRING."
>   `(with-temp-buffer
>     (insert ,string)
>     (translate-region (point-min) (point-max) ,rot13-display-table)
>     (buffer-string)))

> netrc-parse uses it as to save the contents:

> (setq netrc-cache ... (rot13-string (base64-encode-string (buffer-string))))

> Guess what will happen.  Since buffer-string is called from the buffer
> created by rot13-string, it will always return "".

Oops, I see the macro I added to dgnushack.el was designed badly.

> I'm attaching a patch.

Thanks.  But when XEmacs' rot13.el follows Emacs' someday, it
will get needless.  So, I rewrote the macro instead:

(defmacro rot13-string (string)
  "Return ROT13 encryption of STRING."
  `(let ((string ,string))
     (with-temp-buffer
       (insert string)
       (translate-region (point-min) (point-max) ,rot13-display-table)
       (buffer-string))))