Abolish 'symbol-concat because it is not used.

diff --git a/mime-parse.el b/mime-parse.el
index ea75f65..c460932 100644 (file)
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -28,16 +28,6 @@
 (require 'std11)
 (require 'mime-def)
 
-(defsubst symbol-concat (&rest args)
-  "Return a symbol whose name is concatenation of arguments ARGS
-which are string or symbol."
-  (intern (mapconcat (function
-                     (lambda (s)
-                       (cond ((symbolp s) (symbol-name s))
-                             ((stringp s) s)
-                             )))
-                    args "")))
-
 
 ;;; @ field parser
 ;;;