[Emacs-diffs] /srv/bzr/emacs/trunk r101229: Protect against not having completion-styles bound by Lars Magne Ingebrigtsen <address@hidden>.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101229
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-08-30 23:40:10 +0000
message:
  Protect against not having completion-styles bound by Lars Magne Ingebrigtsen 
<address@hidden>.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-group.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-08-30 23:29:56 +0000
+++ b/lisp/gnus/ChangeLog       2010-08-30 23:40:10 +0000
@@ -1,5 +1,11 @@
 2010-08-30  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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

=== modified file 'lisp/gnus/gnus-group.el'
--- a/lisp/gnus/gnus-group.el   2010-08-30 23:24:56 +0000
+++ b/lisp/gnus/gnus-group.el   2010-08-30 23:40:10 +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)