[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
remove sender name from alternative "Reply-To"
From: |
imputerate |
Subject: |
remove sender name from alternative "Reply-To" |
Date: |
Thu, 18 Oct 2007 20:46:52 -0000 |
User-agent: |
G2/1.0 |
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?
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- remove sender name from alternative "Reply-To",
imputerate <=