remove sender name from alternative "Reply-To"

[imputerate <imputerate@gmail.com>]

i have this
in .gnus.el:

-------------
snip------------------
(setq user-full-name "peter
hodgson")
------------------
snip-----------
(defun rs-message-replace-header (header new-
value)
  "Remove HEADER and insert the NEW-
VALUE."
  ;; Similar to `nnheader-replace-header' but for message
buffers.
  (save-
excursion
    (save-
restriction
      (message-narrow-to-
headers)
      (message-remove-header
header))
    (message-position-on-field
header)
    (insert new-
value)))

(defun rs-message-change-address (from reply-
to)
  "Change FROM and REPLY-
TO."
 
(interactive)
  (rs-message-replace-header "Reply-
To"
                             (format "%s (%s)" reply-to user-full-
name))
  (rs-message-replace-header
"From"
                             (format "%s (%s)" from user-full-
name)))

(define-key message-mode-map (kbd "C-c a
1")
  (lambda
()
 
(interactive)
;;    (rs-message-change-address
"myfrom-1@invalid"
"replyto-1@invalid")))
  (rs-message-change-address ""
"imputerate@puteracy.com")))
----------------------
snip------------

When i type `C-c a 1' i get this in the
header:

"Reply-To: imputerate@puteracy.com (peter
hodgson)"

How can i get rid of the "(peter hodgson)" part?