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
"[EMAIL PROTECTED]"
"[EMAIL PROTECTED]")))
(rs-message-change-address ""
"[EMAIL PROTECTED]")))
----------------------
snip------------
When i type `C-c a 1' i get this in the
header:
"Reply-To: [EMAIL PROTECTED] (peter
hodgson)"
How can i get rid of the "(peter hodgson)" part?
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
