Mercurial > emacs
changeset 110042:d8ded88bb148
Protect against not having completion-styles bound by Lars Magne Ingebrigtsen <larsi@gnus.org>.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 30 Aug 2010 23:40:10 +0000 |
| parents | 46d881ed5491 |
| children | c47359d0e31a |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-group.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Mon Aug 30 23:35:19 2010 +0000 +++ b/lisp/gnus/ChangeLog Mon Aug 30 23:40:10 2010 +0000 @@ -1,5 +1,11 @@ 2010-08-30 Lars Magne Ingebrigtsen <larsi@gnus.org> + * gnus-group.el (gnus-group-completing-read): Protect against not + having completion-styles bound. + + * mml.el (mml-insert-mime-headers-always): Change the default to t, to + make broken recipients happier. + * gnus-html.el (gnus-html-put-image): Use gnus-put-image. * gnus-ems.el (gnus-put-image): Have gnus-put-image take an optional
--- a/lisp/gnus/gnus-group.el Mon Aug 30 23:35:19 2010 +0000 +++ b/lisp/gnus/gnus-group.el Mon Aug 30 23:40:10 2010 +0000 @@ -2202,7 +2202,8 @@ The arguments are the same as `completing-read' except that COLLECTION and HIST default to `gnus-active-hashtb' and `gnus-group-history' respectively if they are omitted." - (let ((completion-styles completion-styles) + (let ((completion-styles (and (boundp 'completion-styles) + completion-styles)) group) (push 'substring completion-styles) (mapatoms (lambda (symbol)