From: akr <akr>
Date: Sun, 17 Jan 1999 15:49:28 +0000 (+0000)
Subject: * ew-compat.el (ew-mime-update-field-decoder-cache): Abolished
X-Git-Tag: doodle-199901171900
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=917b6806afe807616fafdfcc4165e3a233fcdd5a;p=elisp%2Fflim.git

* ew-compat.el (ew-mime-update-field-decoder-cache): Abolished
because duplicated.

* mmgeneric.el (mime-insert-header-from-buffer): Convert LF to CRLF for
original-field-body.
---

diff --git a/ChangeLog b/ChangeLog
index e8cee73..c6992bc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1999-01-17  Tanaka Akira      <akr@jaist.ac.jp>
+
+	* ew-compat.el (ew-mime-update-field-decoder-cache): Abolished
+	because duplicated.
+
+	* mmgeneric.el (mime-insert-header-from-buffer): Convert LF to CRLF for
+	original-field-body.
+
 1999-01-05  Tanaka Akira      <akr@jaist.ac.jp>
 
 	* eword-decode.el (mime-decode-header-in-region): Typo fix.
diff --git a/ew-compat.el b/ew-compat.el
index eaa55e7..b855ac0 100644
--- a/ew-compat.el
+++ b/ew-compat.el
@@ -25,66 +25,3 @@
 	   (message "gnus-unstructured-field-decoder error: %s" string)
 	   (decode-mime-charset-string string 'x-ctext))))
     (eword-decode-unstructured-field-body (std11-unfold-string string) 'must-unfold)))
-
-(defun ew-mime-update-field-decoder-cache (field mode)
-  (let ((fun (cond
-              ((eq mode 'plain)
-               (lexical-let ((field-name (symbol-name field)))
-                 (lambda (field-body &optional start-column max-column must-unfold)
-                   (setq field-body (ew-lf-to-crlf field-body))
-                   (let ((res (ew-crlf-to-lf
-                               (ew-decode-field field-name field-body))))
-                     (add-text-properties
-                      0 (length res)
-                      (list 'original-field-name field-name
-                            'original-field-body field-body)
-                      res)
-                     res))))
-              ((eq mode 'wide)
-               (lexical-let ((field-name (symbol-name field)))
-                 (lambda (field-body &optional start-column max-column must-unfold)
-                   (setq field-body (ew-lf-to-crlf field-body))
-                   (let ((res (ew-crlf-to-lf
-                               (ew-crlf-refold
-                                (ew-decode-field field-name field-body)
-                                (length field-name)
-                                (or max-column fill-column)))))
-                     (add-text-properties
-                      0 (length res)
-                      (list 'original-field-name field-name
-                            'original-field-body field-body)
-                      res)
-                     res))))
-              ((eq mode 'summary)
-               (lexical-let ((field-name (symbol-name field)))
-                 (lambda (field-body &optional start-column max-column must-unfold)
-                   (setq field-body (ew-lf-to-crlf field-body))
-                   (let ((res (ew-crlf-to-lf
-                               (ew-crlf-unfold
-                                (ew-decode-field field-name field-body)))))
-                     (add-text-properties
-                      0 (length res)
-                      (list 'original-field-name field-name
-                            'original-field-body field-body)
-                      res)
-                     res))))
-              ((eq mode 'nov)
-               (lexical-let ((field-name (symbol-name field)))
-                 (lambda (field-body &optional start-column max-column must-unfold)
-                   (setq field-body (ew-lf-to-crlf field-body))
-                   (require 'ew-var)
-                   (let ((ew-ignore-76bytes-limit t))
-                     (let ((res (ew-crlf-to-lf
-                                 (ew-crlf-unfold
-                                  (ew-decode-field field-name field-body)))))
-                       (add-text-properties
-                        0 (length res)
-                        (list 'original-field-name field-name
-                              'original-field-body field-body)
-                        res)
-                       res)))))
-              (t
-               nil))))
-    (mime-update-field-decoder-cache field mode fun)))
-
-(setq mime-update-field-decoder-cache 'ew-mime-update-field-decoder-cache)
diff --git a/mmgeneric.el b/mmgeneric.el
index 98eccf1..f015b4f 100644
--- a/mmgeneric.el
+++ b/mmgeneric.el
@@ -179,7 +179,7 @@
 	      (insert "\n")
               (add-text-properties p (point)
                                    (list 'original-field-name field-name
-                                         'original-field-body field-body))
+                                         'original-field-body (ew-lf-to-crlf field-body)))
 	      )))))))
 
 (mm-define-method insert-header ((entity generic)