From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Mon, 30 Aug 2010 23:40:10 +0000 (+0000)
Subject: Protect against not having completion-styles bound by Lars Magne Ingebrigtsen <larsi... 
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~198
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0be02d8a41dae178ba6d8c80a4839fa02f3ec4d8;p=emacs.git

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

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)