[Emacs-diffs] /srv/bzr/emacs/trunk r109708: gnus-msg.el (gnus-summary-resend-message): Honor posting-style for `name' and `address' in Resent-From header

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 109708
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2012-08-21 01:23:57 +0000
message:
  gnus-msg.el (gnus-summary-resend-message): Honor posting-style for `name' and 
`address' in Resent-From header
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-msg.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-08-14 05:34:20 +0000
+++ b/lisp/gnus/ChangeLog       2012-08-21 01:23:57 +0000
@@ -1,3 +1,8 @@
+2012-08-21  Katsumi Yamaoka  <address@hidden>
+
+       * gnus-msg.el (gnus-summary-resend-message): Honor posting-style for
+       `name' and `address' in Resent-From header.
+
 2012-08-14  Chong Yidong  <address@hidden>
 
        * gnus-art.el (article-display-face): Handle failure in

=== modified file 'lisp/gnus/gnus-msg.el'
--- a/lisp/gnus/gnus-msg.el     2012-08-15 16:29:11 +0000
+++ b/lisp/gnus/gnus-msg.el     2012-08-21 01:23:57 +0000
@@ -1369,7 +1369,21 @@
              (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)