`insert' inside `with-current-buffer' deactivating the mark?

[Michael Heerdegen]

Hi,

if I eval the following in emacs -Q:

--8<---------------cut here---------------start------------->8---
(defun insert-in-some-other-buffer ()
  (with-current-buffer (get-buffer-create "*Test*")
    (insert ".")))

(add-hook 'post-command-hook 'insert-in-some-other-buffer)
--8<---------------cut here---------------end--------------->8---

the mark in any buffer is deactivated immediately after each command.
Looks like a bug to me - the use of `with-current-buffer' should prevent
influencing any other buffer than *Test*.  What am I missing?


Thanks,

Michael.