From: akr <akr>
Date: Sun, 16 Aug 1998 12:03:16 +0000 (+0000)
Subject: * FLIM-ELS (flim-modules): Reorder.
X-Git-Tag: doodle-1_9_0~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aef4ee0063c00d59a634e7a9b5f62d68d5d80d6b;p=elisp%2Fflim.git

* FLIM-ELS (flim-modules): Reorder.
---

diff --git a/FLIM-ELS b/FLIM-ELS
index 8763042..f6eaea0 100644
--- a/FLIM-ELS
+++ b/FLIM-ELS
@@ -4,13 +4,7 @@
 
 ;;; Code:
 
-(setq flim-modules '(std11
-		     mime-def
-		     mel mel-dl mel-b mel-q mel-u mel-g
-		     eword-decode eword-encode
-		     mime mime-parse mmbuffer mmcooked
-		     ;; mime-lib
-		     mailcap
+(setq flim-modules '(
                      closure
                      natset
                      digraph
@@ -26,6 +20,13 @@
                      ew-scan-m
                      ew-scan-u
                      ew-dec
+		     std11
+		     mime-def
+		     mel mel-dl mel-b mel-q mel-u mel-g
+		     eword-decode eword-encode
+		     mime mime-parse mmbuffer mmcooked
+		     ;; mime-lib
+		     mailcap
                      ))
 
 (if (fboundp 'dynamic-link)
diff --git a/eword-decode.el b/eword-decode.el
index affdce6..180559e 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -366,6 +366,8 @@ mime-charset, it decodes non-ASCII bit patterns as the mime-charset.
 Otherwise it decodes non-ASCII bit patterns as the
 default-mime-charset."
   (interactive "*r")
+  (rotate-memo args-eword-decode-region
+	       (list start end (buffer-substring start end) unfolding must-unfold code-conversion))
   (save-excursion
     (save-restriction
       (narrow-to-region start end)
@@ -706,6 +708,8 @@ If MAX-COLUMN is omitted, `fill-column' is used.
 If MUST-UNFOLD is non-nil, it unfolds and eliminates line-breaks even
 if there are in decoded encoded-words (generated by bad manner MUA
 such as a version of Net$cape)."
+  (rotate-memo args-eword-decode-and-fold-structured-field
+	       (list string start-column max-column must-unfold))
   (or max-column
       (setq max-column fill-column))
   (let ((c start-column)
@@ -819,6 +823,8 @@ If no name can be extracted, FULL-NAME will be nil.
 It decodes non us-ascii characters in FULL-NAME encoded as
 encoded-words or invalid \"raw\" string.  \"Raw\" non us-ascii
 characters are regarded as variable `default-mime-charset'."
+  (rotate-memo args-eword-extract-address-components
+	       (list string))
   (let* ((structure (car (std11-parse-address
 			  (eword-lexical-analyze
 			   (std11-unfold-string string) 'must-unfold))))