indentation of summary buffer after display-as-charset

[Peter Breitfeld]

To change the display of articles to another charset I use the following
function in my .gnus:

(defun brf-view-article-as-charset ()
  (interactive)
  (message "Anzeige in: latin-[1], latin-[9]/15, [u]tf-8, [c]p1252")
  (let ((answer (read-char)))
    (cond
     ((eq answer ?1)
      (gnus-summary-show-article-from-menu-as-charset-iso-8859-1))
     ((eq answer ?9)
      (gnus-summary-show-article-from-menu-as-charset-iso-8859-9))
     ((eq answer ?c)
      (gnus-summary-show-article-from-menu-as-charset-cp1252))
     ((eq answer ?u)
      (gnus-summary-show-article-from-menu-as-charset-utf-8))))
  (gnus-summary-rethread-current))

This works pretty well, but there is a little annoyance:

Sometimes -- not always -- the threading gets distorted. The current
article in the summary thread is shifted to the left or even became the
root of a new thread. This also happens when I call the display change from
the menu (Article/Display/Display as charset).

I tried several approaches for the last line instead of
(gnus-summary-rethread-current) including to omit this line.

What I want is just to have the article altered and keep the
summary-buffer unchanged.

Any hints

TIA
-- 
_________________________________________________________________
Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de