(assoc-string): Fix typo in argument.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 589f041c3c749239fdef652c729785087f0f76b8..3bfd7172c9b8178285736315138883cf0bd9214d 100644 (file)
--- 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 de2a714fc77105ead373c0fe057194ebd78a4f4a..f126e5e3ff1770f46d56ab9baabfce65703fa367 100644 (file)
--- 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)