gnus-msg.el (gnus-summary-resend-message): Honor posting-style for `name' and `address' in Resent-From header

2 files changed, 20 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index df35e998c31..7592c405076 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * gnus-msg.el (gnus-summary-resend-message): Honor posting-style for
+        `name' and `address' in Resent-From header.
+
 2012-08-14  Chong Yidong  <cyd@gnu.org>
 
         * gnus-art.el (article-display-face): Handle failure in
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 594f68bb86f..07748bebb81 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1369,7 +1369,21 @@ For the \"inline\" alternatives, also see the variable
               (nnmail-fetch-field "to"))))
          current-prefix-arg))
   (let ((message-header-setup-hook (copy-sequence message-header-setup-hook))
-        (message-sent-hook (copy-sequence message-sent-hook)))
+        (message-sent-hook (copy-sequence message-sent-hook))
+        ;; Honor posting-style for `name' and `address' in Resent-From header.
+        (styles (gnus-group-find-parameter gnus-newsgroup-name
+                                           'posting-style t))
+        (user-full-name user-full-name)
+        (user-mail-address user-mail-address)
+        tem)
+    (dolist (style (if styles
+                       (append gnus-posting-styles (list (cons ".*" styles)))
+                     gnus-posting-styles))
+      (when (string-match (pop style) gnus-newsgroup-name)
+        (when (setq tem (cadr (assq 'name style)))
+          (setq user-full-name tem))
+        (when (setq tem (cadr (assq 'address style)))
+          (setq user-mail-address tem))))
     ;; `gnus-summary-resend-message-insert-gcc' must run last.
     (add-hook 'message-header-setup-hook
               'gnus-summary-resend-message-insert-gcc t)