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

diff --git a/FLIM-ELS b/FLIM-ELS
index 8763042..f6eaea0 100644 (file)
--- 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 (file)
--- 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))))