(assoc-string): Fix typo in argument.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 589f041c3c7..3bfd7172c9b 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,7 @@
+2006-01-17  Bill Wohler  <wohler@newt.com>
+
+        * mh-acros.el (assoc-string): Fix typo in argument.
+
 2006-01-16  Bill Wohler  <wohler@newt.com>
 
         * mh-acros.el (require): Remove defadvice of require as defadvice
diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index de2a714fc77..f126e5e3ff1 100644
--- a/lisp/mh-e/mh-acros.el
+++ b/lisp/mh-e/mh-acros.el
@@ -157,8 +157,8 @@ Case is ignored if CASE-FOLD is non-nil.
 This function added by MH-E for Emacs versions that lack
 `assoc-string', introduced in Emacs 22."
     (if case-fold
-        (assoc-ignore-case key alist)
-      (assoc key alist))))
+        (assoc-ignore-case key list)
+      (assoc key list))))
 
 (provide 'mh-acros)