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

This commit is contained in:
Lars Ingebrigtsen 2012-12-27 14:58:36 +00:00 committed by Katsumi Yamaoka
parent 541aff54ba
commit e06151b396
2 changed files with 7 additions and 1 deletions

View file

@ -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):

View file

@ -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)))