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)