diff options
| -rw-r--r-- | lisp/mail/ChangeLog.pmail | 5 | ||||
| -rw-r--r-- | lisp/mail/pmaildesc.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/mail/ChangeLog.pmail b/lisp/mail/ChangeLog.pmail index ce079b80012..adbbd5a1a7d 100644 --- a/lisp/mail/ChangeLog.pmail +++ b/lisp/mail/ChangeLog.pmail | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2008-09-02 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * mail/pmaildesc.el (pmail-desc-get-match-index): | ||
| 4 | Fix malformed let binding. | ||
| 5 | |||
| 1 | 2008-09-01 Paul Reilly <pmr@pajato.com> | 6 | 2008-09-01 Paul Reilly <pmr@pajato.com> |
| 2 | 7 | ||
| 3 | * mbox-changes/rmail.el.changes: | 8 | * mbox-changes/rmail.el.changes: |
diff --git a/lisp/mail/pmaildesc.el b/lisp/mail/pmaildesc.el index f2274cc23cb..a63ea5cb207 100644 --- a/lisp/mail/pmaildesc.el +++ b/lisp/mail/pmaildesc.el | |||
| @@ -370,7 +370,7 @@ non-null will reverse the sense of the attribute test." | |||
| 370 | "Return the index N if the associated descriptor has a matching | 370 | "Return the index N if the associated descriptor has a matching |
| 371 | attribute, nil otherwise. The attribute value must be set if | 371 | attribute, nil otherwise. The attribute value must be set if |
| 372 | SENSE is nil, or unset if SENSE is non-nil." | 372 | SENSE is nil, or unset if SENSE is non-nil." |
| 373 | (let (flag (pmail-desc-attr-p attr-index n)) | 373 | (let ((flag (pmail-desc-attr-p attr-index n))) |
| 374 | (if (or (and flag (not sense)) (and (not flag) sense)) | 374 | (if (or (and flag (not sense)) (and (not flag) sense)) |
| 375 | n | 375 | n |
| 376 | nil))) | 376 | nil))) |