* elmo-internal.el (elmo-internal-search): Rewrite.

[elisp/wanderlust.git] / elmo / mmelmo.el

diff --git a/elmo/mmelmo.el b/elmo/mmelmo.el
index 14b24ff..102bda3 100644 (file)
--- a/elmo/mmelmo.el
+++ b/elmo/mmelmo.el
@@ -1,6 +1,6 @@
 ;;; mmelmo.el -- mm-backend by ELMO.
 
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
@@ -156,7 +156,7 @@ If function is specified, its return value is used.")
        (while attrlist
          (setq ret-val (append ret-val
                                (list (cons (downcase (car attrlist))
-                                           (downcase (car (cdr attrlist)))))))
+                                           (car (cdr attrlist))))))
          (setq attrlist (cdr (cdr attrlist))))
        ret-val)))