;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-def.el,v 0.52 1997-06-21 04:08:04 morioka Exp $
+;; Version: $Id: mime-def.el,v 0.53 1997-07-02 16:28:48 morioka Exp $
;; Keywords: definition, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
(defconst mime-echo-buffer-name "*MIME-echo*"
"Name of buffer to display MIME-playing information.")
-(defconst mime/temp-buffer-name " *MIME-temp*")
+(defconst mime-temp-buffer-name " *MIME-temp*")
;;; @ definitions about MIME
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/12/7
;; Renamed: 1997/2/27 from tm-pgp.el
-;; Version: $Id: mime-pgp.el,v 0.19 1997-05-12 12:29:13 morioka Exp $
+;; Version: $Id: mime-pgp.el,v 0.20 1997-07-02 16:28:49 morioka Exp $
;; Keywords: PGP, security, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
(let ((p-min (mime::content-info/point-min oinfo))
(p-max (mime::content-info/point-max oinfo))
)
- (set-buffer (get-buffer-create mime/temp-buffer-name))
+ (set-buffer (get-buffer-create mime-temp-buffer-name))
(insert-buffer-substring raw-buf p-min p-max)
)
(goto-char (point-min))
(and (search-forward "\n\n")
(match-end 0))
)))
- (set-buffer (setq kbuf (get-buffer-create mime/temp-buffer-name)))
+ (set-buffer (setq kbuf (get-buffer-create mime-temp-buffer-name)))
(insert-buffer-substring raw-buf p-min end)
)
(mime-decode-region (point-min)(point-max) encoding)
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/9/26 (separated from tm-view.el)
;; Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.45 1997-06-19 03:27:22 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.46 1997-07-02 16:28:50 morioka Exp $
;; Keywords: MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
(or (file-exists-p total-file)
(save-excursion
(set-buffer
- (get-buffer-create mime/temp-buffer-name))
+ (get-buffer-create mime-temp-buffer-name))
(erase-buffer)
(insert total)
(write-file total-file)
(if (and total (> total 0))
(catch 'tag
(save-excursion
- (set-buffer (get-buffer-create mime/temp-buffer-name))
+ (set-buffer (get-buffer-create mime-temp-buffer-name))
(let ((full-buf (current-buffer)))
(erase-buffer)
(let ((i 1))