mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

Protect against not having completion-styles bound by Lars Magne Ingebrigtsen <larsi@gnus.org>.

Browse Source
This commit is contained in:
Katsumi Yamaoka 2010-08-30 23:40:10 +00:00
parent a3e01263b1
commit 0be02d8a41
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View File

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

3
lisp/gnus/gnus-group.el
View File

@ -2202,7 +2202,8 @@ be permanent."
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)