diff options
| -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 @@ | |||
| 1 | 2012-12-27 Lars Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * gnus-msg.el (gnus-summary-resend-message): Don't bug out on | ||
| 4 | non-string posting styles (bug#13285). | ||
| 5 | |||
| 1 | 2012-12-27 Glenn Morris <rgm@gnu.org> | 6 | 2012-12-27 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * plstore.el (plstore-passphrase-callback-function): | 8 | * 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 | |||
| 1384 | (dolist (style (if styles | 1384 | (dolist (style (if styles |
| 1385 | (append gnus-posting-styles (list (cons ".*" styles))) | 1385 | (append gnus-posting-styles (list (cons ".*" styles))) |
| 1386 | gnus-posting-styles)) | 1386 | gnus-posting-styles)) |
| 1387 | (when (string-match (pop style) gnus-newsgroup-name) | 1387 | (when (and (stringp (car style)) |
| 1388 | (string-match (pop style) gnus-newsgroup-name)) | ||
| 1388 | (when (setq tem (cadr (assq 'name style))) | 1389 | (when (setq tem (cadr (assq 'name style))) |
| 1389 | (setq user-full-name tem)) | 1390 | (setq user-full-name tem)) |
| 1390 | (when (setq tem (cadr (assq 'address style))) | 1391 | (when (setq tem (cadr (assq 'address style))) |