From: Lars Ingebrigtsen Date: Sat, 29 Dec 2012 08:05:17 +0000 (-0800) Subject: Backport gnus-msg fix from trunk X-Git-Tag: emacs-24.2.92~83 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af9bf0ca609858ae50be3417e6c1c26444092b3d;p=emacs.git Backport gnus-msg fix from trunk * lisp/gnus/gnus-msg.el (gnus-summary-resend-message): Don't bug out on non-string posting styles. Fixes: debbugs:13285 --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 1ece8bf9107..fda1b080903 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2012-12-27 Lars Ingebrigtsen + + * gnus-msg.el (gnus-summary-resend-message): Don't bug out on + non-string posting styles (bug#13285). + 2012-12-27 Glenn Morris * plstore.el (plstore-passphrase-callback-function): diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 77bb6281bc4..c967bc06565 100644 --- 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)))