* remove sender name from alternative "Reply-To"
@ 2007-10-18 20:46 imputerate
0 siblings, 0 replies; only message in thread
From: imputerate @ 2007-10-18 20:46 UTC (permalink / raw)
To: info-gnus-english
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?
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2007-10-18 20:46 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2007-10-18 20:46 remove sender name from alternative "Reply-To" imputerate
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).