[Emacs-diffs] /srv/bzr/emacs/trunk r111348: lisp/gnus/gnus-msg.el (gnus-summary-resend-message): Don't bug out on non-string posting styles (bug#13285)

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 111348
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2012-12-27 14:58:36 +0000
message:
  lisp/gnus/gnus-msg.el (gnus-summary-resend-message): Don't bug out on 
non-string posting styles (bug#13285)
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-msg.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-12-27 14:44:01 +0000
+++ b/lisp/gnus/ChangeLog       2012-12-27 14:58:36 +0000
@@ -1,3 +1,8 @@
+2012-12-27  Lars Ingebrigtsen  <address@hidden>
+
+       * gnus-msg.el (gnus-summary-resend-message): Don't bug out on
+       non-string posting styles (bug#13285).
+
 2012-12-27  Glenn Morris  <address@hidden>
 
        * plstore.el (plstore-passphrase-callback-function):

=== modified file 'lisp/gnus/gnus-msg.el'
--- a/lisp/gnus/gnus-msg.el     2012-10-06 20:30:26 +0000
+++ b/lisp/gnus/gnus-msg.el     2012-12-27 14:58:36 +0000
@@ -1384,7 +1384,8 @@
     (dolist (style (if styles
                       (append gnus-posting-styles (list (cons ".*" styles)))
                     gnus-posting-styles))
-      (when (string-match (pop style) gnus-newsgroup-name)
+      (when (and (stringp (car style))
+                (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)))