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

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f2af7b2614f..991a9910e7f 100644
--- 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 f9f97071eb5..adab5650dc3 100644
--- 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)