* mail/pmaildesc.el (pmail-desc-get-match-index):

  Fix malformed let binding.

diff --git a/lisp/mail/ChangeLog.pmail b/lisp/mail/ChangeLog.pmail
index ce079b800126287d9f533c8f651c936adf3085be..adbbd5a1a7d2a3bd01ab2162b3411dccf19bdbec 100644 (file)
--- a/lisp/mail/ChangeLog.pmail
+++ b/lisp/mail/ChangeLog.pmail
@@ -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 --git a/lisp/mail/pmaildesc.el b/lisp/mail/pmaildesc.el
index f2274cc23cb8e8ed62c3c77f939747a20e537b21..a63ea5cb207b0e8d8bc995d1aa69ba1c3598bbdf 100644 (file)
--- a/lisp/mail/pmaildesc.el
+++ b/lisp/mail/pmaildesc.el
@@ -370,7 +370,7 @@ non-null will reverse the sense of the attribute test."
   "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)))