Update FSF's address in GPL notices.

[elisp/flim.git] / mmgeneric.el

diff --git a/mmgeneric.el b/mmgeneric.el
index 5bd9686..a5d4cf2 100644 (file)
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -19,13 +19,17 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
 
 (require 'luna)
 
+(eval-when-compile
+  (require 'eword-decode) ; mime-find-field-presentation-method
+  )
+
 
 ;;; @ MIME entity
 ;;;
@@ -37,37 +41,38 @@
 ;; (autoload 'mime-parse-external "mime-parse")
 (autoload 'mime-entity-content "mime")
 
-(eval-and-compile
-  (luna-define-class mime-entity ()
-                    (location
-                     content-type children parent
-                     node-id
-                     content-disposition encoding
-                     ;; for other fields
-                     original-header parsed-header))
-
-  (luna-define-internal-accessors 'mime-entity)
-  )
+(luna-define-class mime-entity ()
+                  (location
+                   content-type children parent
+                   node-id
+                   content-disposition encoding
+                   ;; for other fields
+                   original-header parsed-header))
 
 (defalias 'mime-entity-representation-type-internal 'luna-class-name)
 (defalias 'mime-entity-set-representation-type-internal 'luna-set-class-name)
 
+(luna-define-internal-accessors 'mime-entity)
+
 (luna-define-method mime-entity-fetch-field ((entity mime-entity)
                                             field-name)
   (or (symbolp field-name)
-      (setq field-name (intern (capitalize (capitalize field-name)))))
+      (setq field-name (intern (capitalize field-name))))
   (cdr (assq field-name
             (mime-entity-original-header-internal entity))))
 
+;; unlimited patch by simm-emacs@fan.gr.jp
+;;   Tue, 01 Feb 2000 13:32:14 +0900
 (luna-define-method mime-insert-text-content ((entity mime-entity))
   (insert
-   (decode-mime-charset-string (mime-entity-content entity)
-                              (or (mime-content-type-parameter
-                                   (mime-entity-content-type entity)
-                                   "charset")
-                                  default-mime-charset)
-                              'CRLF)
-   ))
+   (decode-mime-charset-string-unlimited
+    (mime-entity-content entity)
+    (or (mime-content-type-parameter
+        (mime-entity-content-type entity)
+        "charset")
+       default-mime-charset-unlimited
+       default-mime-charset)
+    'CRLF)))
 
 
 ;;; @ for mm-backend