X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=eword-decode.el;h=7d4cbfbc093ec8c7a256afa47de299bc5077a665;hb=41e4fd4242e2a1f959c312e74854025cbb9d0f80;hp=528a927264b0de6766397331ffddec63d10abd28;hpb=41fe6bdf8523a73c43e73612b5df85caa5622081;p=elisp%2Fflim.git

diff --git a/eword-decode.el b/eword-decode.el
index 528a927..7d4cbfb 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -32,11 +32,11 @@
 
 ;;; Code:
 
-(require 'std11)
-(require 'mel)
 (require 'mime-def)
+(require 'mel)
+(require 'std11)
 
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl))	; list*, pop
 
 (defgroup eword-decode nil
   "Encoded-word decoding"
@@ -300,20 +300,20 @@ If mode is `nil', corresponding decoder is set up for every modes."
   "Return field-presentation-method from NAME.
 NAME must be `plain', `wide', `summary' or `nov'."
   (cond ((eq name nil)
-	 `(or (assq 'summary mime-field-decoder-cache)
-	      '(summary))
-	 )
+	 (` (or (assq 'summary mime-field-decoder-cache)
+		'(summary))
+	    ))
 	((and (consp name)
 	      (car name)
 	      (consp (cdr name))
 	      (symbolp (car (cdr name)))
 	      (null (cdr (cdr name))))
-	 `(or (assq ,name mime-field-decoder-cache)
-	      (cons ,name nil))
-	 )
+	 (` (or (assq (, name) mime-field-decoder-cache)
+		(cons (, name) nil))
+	    ))
 	(t
-	 `(or (assq (or ,name 'summary) mime-field-decoder-cache)
-	      (cons (or ,name 'summary) nil))
+	 (` (or (assq (or (, name) 'summary) mime-field-decoder-cache)
+		(cons (or (, name) 'summary) nil)))
 	 )))
 
 (defun mime-find-field-decoder-internal (field &optional mode)
@@ -402,19 +402,19 @@ Default value of MODE is `summary'."
     (setq field (pop fields))
     (mime-set-field-decoder
      field
-     'plain	#'eword-decode-structured-field-body
-     'wide	#'eword-decode-and-fold-structured-field-body
-     'summary	#'eword-decode-and-unfold-structured-field-body
-     'nov	#'eword-decode-and-unfold-structured-field-body)
-    ))
+     'plain	(function eword-decode-structured-field-body)
+     'wide	(function eword-decode-and-fold-structured-field-body)
+     'summary	(function eword-decode-and-unfold-structured-field-body)
+     'nov	(function eword-decode-and-unfold-structured-field-body)
+     )))
 
 ;; unstructured fields (default)
 (mime-set-field-decoder
  t
- 'plain	#'eword-decode-unstructured-field-body
- 'wide	#'eword-decode-unstructured-field-body
- 'summary #'eword-decode-and-unfold-unstructured-field-body
- 'nov	#'eword-decode-unfolded-unstructured-field-body)
+ 'plain	(function eword-decode-unstructured-field-body)
+ 'wide	(function eword-decode-unstructured-field-body)
+ 'summary (function eword-decode-and-unfold-unstructured-field-body)
+ 'nov	(function eword-decode-unfolded-unstructured-field-body))
 
 ;;;###autoload
 (defun mime-decode-field-body (field-body field-name