2001-10-15 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>

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

diff --git a/elmo/mmelmo.el b/elmo/mmelmo.el
index d04e5a4..0e54dd8 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
@@ -33,8 +33,7 @@
 (require 'mime-parse)
 (require 'mmbuffer)
 
-(require 'product)
-(product-provide (provide 'mmelmo) (require 'elmo-version))
+(provide 'mmelmo)                      ; circular dependency
 (require 'mmelmo-imap4)
 
 (eval-and-compile
@@ -156,7 +155,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)))
 
@@ -253,11 +252,14 @@ size:   size of the entity."
     (buffer-substring (mime-buffer-entity-body-start-internal entity)
                      (mime-buffer-entity-body-end-internal entity))))
 
-;(luna-define-method mime-entity-content ((entity mime-elmo-entity))
-;  (mime-decode-string
-;   (with-current-buffer (mime-buffer-entity-buffer-internal entity)
-;     (buffer-substring (mime-buffer-entity-body-start-internal entity)
-;                     (mime-buffer-entity-body-end-internal entity)))
-;   (mime-entity-encoding entity)))
+;;(luna-define-method mime-entity-content ((entity mime-elmo-entity))
+;;  (mime-decode-string
+;;   (with-current-buffer (mime-buffer-entity-buffer-internal entity)
+;;     (buffer-substring (mime-buffer-entity-body-start-internal entity)
+;;                    (mime-buffer-entity-body-end-internal entity)))
+;;   (mime-entity-encoding entity)))
+
+(require 'product)
+(product-provide (provide 'mmelmo) (require 'elmo-version))
 
 ;;; mmelmo.el ends here