Protect against not having completion-styles bound by Lars Magne Ingebrigtsen <larsi...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f2af7b2614fe1f95da2ca24599e02b83bc1057e4..991a9910e7fec3c0197e6d8e1cb696721661f9af 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index f9f97071eb51cef082f3c2e1a6f3a911877f4f51..adab5650dc346cd55fb265f7a07c017a28afc8f9 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -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)