diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2012-12-27 14:58:36 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-12-27 14:58:36 +0000 |
commit | e06151b3968dec667e35059f236bb24186d26ac9 (patch) | |
tree | 819309f6759ef7433ffd3eed7887629f5b54b49a /lisp/gnus | |
parent | 541aff54ba8caf9c3fff1d2039cce29e44a7a7f0 (diff) | |
download | emacs-e06151b3968dec667e35059f236bb24186d26ac9.tar.gz |
lisp/gnus/gnus-msg.el (gnus-summary-resend-message): Don't bug out on non-string posting styles (bug#13285)
Diffstat (limited to 'lisp/gnus')
-rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/gnus/gnus-msg.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9968c82faeb..be531be941e 100644 --- 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 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))) |