# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1220356365 0
# Node ID 9a4e29eac778809f5b78dd6cdfe2aa010e314cf2
# Parent  2c2adcbee8a6e48615dbf8e5ba48fe8549e10ca4
* mail/pmaildesc.el (pmail-desc-get-match-index):
  Fix malformed let binding.

diff -r 2c2adcbee8a6 -r 9a4e29eac778 lisp/mail/ChangeLog.pmail
--- a/lisp/mail/ChangeLog.pmail	Tue Sep 02 11:45:08 2008 +0000
+++ b/lisp/mail/ChangeLog.pmail	Tue Sep 02 11:52:45 2008 +0000
@@ -1,3 +1,8 @@
+2008-09-02  Juanma Barranquero  <lekktu@gmail.com>
+
+	* mail/pmaildesc.el (pmail-desc-get-match-index):
+	Fix malformed let binding.
+
 2008-09-01  Paul Reilly <pmr@pajato.com>
 
 	* mbox-changes/rmail.el.changes:
diff -r 2c2adcbee8a6 -r 9a4e29eac778 lisp/mail/pmaildesc.el
--- a/lisp/mail/pmaildesc.el	Tue Sep 02 11:45:08 2008 +0000
+++ b/lisp/mail/pmaildesc.el	Tue Sep 02 11:52:45 2008 +0000
@@ -370,7 +370,7 @@
   "Return the index N if the associated descriptor has a matching
 attribute, nil otherwise.  The attribute value must be set if
 SENSE is nil, or unset if SENSE is non-nil."
-  (let (flag (pmail-desc-attr-p attr-index n))
+  (let ((flag (pmail-desc-attr-p attr-index n)))
     (if (or (and flag (not sense)) (and (not flag) sense))
 	n
       nil)))