lisp/gnus/gnus-msg.el (gnus-summary-resend-message): Don't bug out on non-string...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9968c82faeb2fc2be60ea55ac0b0487daa0ac3dd..be531be941e8b335a9c0c665427429613ffb9a2c 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-27  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-msg.el (gnus-summary-resend-message): Don't bug out on
+       non-string posting styles (bug#13285).
+
 2012-12-27  Glenn Morris  <rgm@gnu.org>
 
        * plstore.el (plstore-passphrase-callback-function):

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 77bb6281bc4f490146033806568d0b0457beb6f6..c967bc06565b0f2520d629eaf7b96407ea14330f 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1384,7 +1384,8 @@ For the \"inline\" alternatives, also see the variable
     (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)))