;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1997/6/27
-;; Version: $Id: mailcap.el,v 0.0 1997-06-27 10:15:46 morioka Exp $
+;; Version: $Id: mailcap.el,v 0.1 1997-07-02 16:43:23 morioka Exp $
;; Keywords: mailcap, setting, configuration, MIME, multimedia
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;;;
(defsubst mailcap-look-at-token ()
- (if (looking-at mime/token-regexp)
+ (if (looking-at mime-token-regexp)
(let ((beg (match-beginning 0))
(end (match-end 0)))
(goto-char end)
;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-def.el,v 0.54 1997-07-02 16:41:06 morioka Exp $
+;; Version: $Id: mime-def.el,v 0.55 1997-07-02 16:43:25 morioka Exp $
;; Keywords: definition, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;;;
(defconst mime-tspecials "][\000-\040()<>@,\;:\\\"/?.=")
-(defconst mime/token-regexp (concat "[^" mime-tspecials "]+"))
-(defconst mime-charset-regexp mime/token-regexp)
+(defconst mime-token-regexp (concat "[^" mime-tspecials "]+"))
+(defconst mime-charset-regexp mime-token-regexp)
(defconst mime/content-type-subtype-regexp
- (concat mime/token-regexp "/" mime/token-regexp))
+ (concat mime-token-regexp "/" mime-token-regexp))
-(defconst mime/disposition-type-regexp mime/token-regexp)
+(defconst mime/disposition-type-regexp mime-token-regexp)
;;; @ button
;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-parse.el,v 0.8 1997-03-15 20:11:46 morioka Exp $
+;; Version: $Id: mime-parse.el,v 0.9 1997-07-02 16:43:26 morioka Exp $
;; Keywords: parse, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
"\\|[^; \t\n]*\\)"))
(defconst mime::parameter-regexp
- (concat "^[ \t]*\;[ \t]*\\(" mime/token-regexp "\\)"
+ (concat "^[ \t]*\;[ \t]*\\(" mime-token-regexp "\\)"
"[ \t]*=[ \t]*\\(" mime/content-parameter-value-regexp "\\)"))
(defun mime-parse-parameter (str)