`mime-view-previous-content' -> `mime-view-move-to-previous'.

[elisp/semi.git] / mime-parse.el

diff --git a/mime-parse.el b/mime-parse.el
index bbd1d8f..ebf5a63 100644 (file)
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -3,8 +3,8 @@
 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-parse.el,v 0.3 1997-02-24 09:12:12 tmorioka Exp $
-;; Keywords: MIME, multimedia, mail, news
+;; Version: $Id: mime-parse.el,v 0.8 1997-03-15 20:11:46 morioka Exp $
+;; Keywords: parse, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
 
@@ -25,9 +25,21 @@
 
 ;;; Code:
 
+(require 'emu)
 (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 (apply (function concat)
+                (mapcar (function
+                         (lambda (s)
+                           (cond ((symbolp s) (symbol-name s))
+                                 ((stringp s) s)
+                                 )))
+                        args))))
+
 (defmacro define-structure (name &rest slots)
   (let ((pred (symbol-concat name '-p)))
     (cons 'progn
@@ -62,6 +74,9 @@
 ;;; @ field parser
 ;;;
 
+(defsubst regexp-* (regexp)
+  (concat regexp "*"))
+
 (defconst rfc822/quoted-pair-regexp "\\\\.")
 (defconst rfc822/qtext-regexp
   (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))
@@ -187,7 +202,7 @@ and return parsed it. [mime-parse.el]"
              '("message/rfc822")
            '("text/plain")
            ))
-        cb ce ct ret ncb children (i 0))
+        cb ce ret ncb children (i 0))
     (save-restriction
       (narrow-to-region beg end)
       (goto-char beg)