+1998-10-14 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * SEMI: Version 1.9.1 (Kurikara) released.
+
+1998-10-14 Jari Aalto <jari.aalto@poboxes.com>
+
+ * mime-edit.el (mime-file-types): Add some new mime types, and
+ rearrange the types to logical sections: text; octext text and
+ binary. <cf. [tm-en:1856]>
+
+1998-10-12 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * README.en: Add explanation about `VERSION_SPECIFIC_LISPDIR'.
+
+ * Makefile (install): Add new arg `VERSION_SPECIFIC_LISPDIR'.
+ (install-elc): Likewise.
+
+ * SEMI-MK (config-semi): Refer to `VERSION_SPECIFIC_LISPDIR'.
+
+ * SEMI-CFG (VERSION_SPECIFIC_LISPDIR): New variable.
+
+1998-10-09 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * SEMI-CFG: Abolish variable `SHELL' and `SHELLOPTION'.
+
+1998-10-08 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * SEMI-CFG: Use `add-latest-path' for adding "custom" to
+ load-path.
+
+1998-10-08 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * SEMI-CFG: Don't use `when' before install is required; don't
+ require cl.
+
+1998-10-08 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * SEMI-CFG: Add "custom" to load-path.
+
+\f
+1998-10-07 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * SEMI: Version 1.9.0 (Isurugi) released.
+
+1998-10-06 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * README.en (Required environment): Modify for APEL 9.1 and FLIM
+ 1.10.1.
+
+1998-10-06 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-edit.el (mime-edit-version): Enclose with
+ `eval-and-compile'.
+
+ * mime-edit.el (mime-edit-version): Renamed from
+ `mime-edit-version-string'; use `mime-user-interface-product',
+ `mime-product-name', `mime-product-version' and
+ `mime-product-code-name'.
+ (mime-edit-user-agent-value): Use `mime-user-interface-product',
+ `mime-library-product', `mime-product-name',
+ `mime-product-version' and `mime-product-code-name'.
+ (mime-edit-mime-version-value): Rename `mime-edit-version-string'
+ -> `mime-edit-version'.
+ (mime-edit-mime-version-field-for-message/partial): Likewise.
+
+ * mime-play.el (mime-save-acting-situation-examples): Rename
+ `mime-view-version-string' -> `mime-view-version'.
+
+ * mime-view.el (mime-view-version): Renamed from
+ `mime-view-version-string'; use `mime-user-interface-product',
+ `mime-product-name', `mime-product-version' and
+ `mime-product-code-name'.
+
+ * semi-def.el (mime-user-interface-product): New variable; abolish
+ `mime-user-interface-version'.
+
+1998-10-04 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-play.el (mime-echo-window-is-shared-with-bbdb): Check bbdb
+ is install or not to define default value.
+ (mime-show-echo-buffer): New implementation about
+ `mime-echo-window-is-shared-with-bbdb'.
+
+1998-10-01 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-edit.el (mime-charset-type-list): Use `cn-gb' instead of
+ `cn-gb2312' because `cn-gb2312' is typo.
+
+1998-09-29 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-edit.el (mime-file-types): Use function
+ `mime-encoding-list' instead of variable
+ `mime-file-encoding-method-alist' to define default value.
+ (mime-edit-insert-voice): Use function `mime-encoding-alist'
+ instead of variable `mime-file-encoding-method-alist' for
+ completion.
+ (mime-prompt-for-encoding): Likewise.
+
1998-09-20 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* mime-edit.el (mime-edit-user-agent-value): Add
#
PACKAGE = semi
-VERSION = 1.8.6
+VERSION = 1.9.1
TAR = tar
RM = /bin/rm -f
EXEC_PREFIX = NONE
LISPDIR = NONE
PACKAGEDIR = NONE
+VERSION_SPECIFIC_LISPDIR = NONE
GOMI = *.elc
elc:
$(EMACS) $(FLAGS) -f compile-semi \
- $(PREFIX) $(EXEC_PREFIX) $(LISPDIR)
+ $(PREFIX) $(EXEC_PREFIX) $(LISPDIR) \
+ $(VERSION_SPECIFIC_LISPDIR)
install-elc: elc
$(EMACS) $(FLAGS) -f install-semi \
- $(PREFIX) $(EXEC_PREFIX) $(LISPDIR)
+ $(PREFIX) $(EXEC_PREFIX) $(LISPDIR) \
+ $(VERSION_SPECIFIC_LISPDIR)
install: install-elc
19.14. SEMI also does not support Emacs 19.29 to 19.34, XEmacs
19.15 or XEmacs 20.2 without mule, but SEMI may work with them.
- SEMI requires APEL (8.17 or later) and FLIM (1.9.2 or later)
+ SEMI requires APEL (9.1 or later) and FLIM (1.10.1 or later)
package. Please install them before installing it. APEL package is
available at:
emacs command is used (perhaps /usr/local/share/emacs/site-lisp or
/usr/local/lib/xemacs/site-lisp).
+ If the emu modules (included in APEL package) have been installed in
+ the non-standard directory, you should specify where they will be
+ found, for example:
+
+ % make install VERSION_SPECIFIC_LISPDIR=~/elisp
+
(c) install as a XEmacs package
If you want to install to XEmacs package directory, please do
;;; Code:
-(require 'cl)
-
(defvar default-load-path load-path)
(add-to-list 'load-path
(add-to-list 'load-path
(expand-file-name "." data-directory))
-(when (boundp 'LISPDIR)
- (add-to-list 'default-load-path LISPDIR)
- (add-to-list 'load-path LISPDIR)
- (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
- )
+(if (boundp 'LISPDIR)
+ (progn
+ (add-to-list 'default-load-path LISPDIR)
+ (add-to-list 'load-path LISPDIR)
+ (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
+ ))
+
+(defvar VERSION_SPECIFIC_LISPDIR nil)
+
+(if VERSION_SPECIFIC_LISPDIR
+ (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))
(condition-case nil
(require 'install)
;; (add-path "w3-4.0pre.20" 'all-paths)
-;;; @ shell
+;;;
+;;; @@ Please specify CUSTOM path.
;;;
-;; Please specify shell command path.
-(setq SHELL
- (find-if (function file-exists-p)
- '("/bin/sh" "/usr/bin/sh")
- ))
-
-;; Please specify shell command option.
-(setq SHELLOPTION "-c")
+(add-latest-path "custom")
;;; @ Please specify prefix of install directory.
;;; Code:
(defun config-semi ()
- (let (prefix exec-prefix lisp-dir)
+ (let (prefix exec-prefix lisp-dir version-specific-lisp-dir)
(and (setq prefix (car command-line-args-left))
(or (string-equal "NONE" prefix)
(defvar PREFIX prefix)
(defvar LISPDIR lisp-dir)
))
(setq command-line-args-left (cdr command-line-args-left))
+ (and (setq version-specific-lisp-dir (car command-line-args-left))
+ (or (string-equal "NONE" version-specific-lisp-dir)
+ (progn
+ (defvar VERSION_SPECIFIC_LISPDIR version-specific-lisp-dir)
+ (princ (format "VERSION_SPECIFIC_LISPDIR=%s\n"
+ VERSION_SPECIFIC_LISPDIR)))
+ ))
+ (setq command-line-args-left (cdr command-line-args-left))
)
(load-file "SEMI-CFG")
(load-file "SEMI-ELS")
1.8.4 Takaoka \e$(B9b2,\e(B ; = JR \e$(BI98+@~!">kC<@~\e(B
1.8.5 Nishi-Takaoka \e$(B@>9b2,\e(B
1.8.6 Fukuoka \e$(BJ!2,\e(B
------ Isurugi \e$(B@PF0\e(B
------ Kurikara \e$(B6fMx2@Me\e(B
+1.9.0 Isurugi \e$(B@PF0\e(B
+1.9.1 Kurikara \e$(B6fMx2@Me\e(B
----- Tsubata \e$(BDEH(\e(B
----- Morimoto \e$(B?9K\\e(B
------- Higashi-Kanazawa \e$(BEl6bBt\e(B
1.8.2 Katahama \e$(BJRIM\e(B
1.8.4 Hara \e$(B86\e(B
1.8.5 Higashi-Tagonoura \e$(BElED;R%N1:\e(B
------ Yoshiwara \e$(B5H86\e(B ; = \e$(B3YFnE4F;\e(B
------ Fuji \e$(BIY;N\e(B ; = JR \e$(B?H1d@~\e(B
+1.8.6 Yoshiwara \e$(B5H86\e(B ; = \e$(B3YFnE4F;\e(B
+1.9.0 Fuji \e$(BIY;N\e(B ; = JR \e$(B?H1d@~\e(B
+----- Fujikawa \e$(BIY;N@n\e(B
+----- Shin-Kambara \e$(B?73w86\e(B
+----- Kambara \e$(B3w86\e(B
+----- Yui \e$(BM3Hf\e(B
+----- Okitsu \e$(B6=DE\e(B
+----- Shimizu \e$(B@6?e\e(B
+----- Kusanagi \e$(BApFe\e(B
+----- Shizuoka \e$(B@E2,\e(B
+----- Abekawa \e$(B0BG\@n\e(B
+----- Mochimune \e$(BMQ=!\e(B
+----- Yaizu \e$(B>FDE\e(B
+----- Nishi-Yaizu \e$(B@>>FDE\e(B
+----- Fijieda \e$(BF#;^\e(B
+----- Rokug\e-Dò\e-A \e$(BO;9g\e(B
+----- Shimada \e$(BEgED\e(B
+----- Kanaya \e$(B6bC+\e(B ; = \e$(BBg0f@nE4F;\e(B
+----- Kikugawa \e$(B5F@n\e(B
+----- Kakegawa \e$(B3]@n\e(B ; = \e$(BE7N5IML>8PE4F;\e(B
: : :
----- Kanayama \e$(B6b;3\e(B ; =\e$(B!J\e(BJR \e$(BCf1{K\@~!K\e(B
----- Ot\e-Dòbashi\e-A \e$(BHxF,66\e(B
;;; @ version
;;;
-(defconst mime-edit-version-string
- `,(concat (car mime-user-interface-version) " "
- (mapconcat #'number-to-string
- (cddr mime-user-interface-version) ".")
- " - \"" (cadr mime-user-interface-version) "\""))
+(eval-and-compile
+ (defconst mime-edit-version
+ (eval-when-compile
+ (concat
+ (mime-product-name mime-user-interface-product) " "
+ (mapconcat #'number-to-string
+ (mime-product-version mime-user-interface-product) ".")
+ " - \"" (mime-product-code-name mime-user-interface-product) "\"")))
+ )
;;; @ variables
"*Alist of content-type, subtype, parameters and its values.")
(defcustom mime-file-types
- '(("\\.txt$"
+ '(
+
+ ;; Programming languages
+
+ ("\\.cc$"
+ "application" "octet-stream" (("type" . "C++"))
+ "7bit"
+ "attachment" (("filename" . file))
+ )
+
+ ("\\.el$"
+ "application" "octet-stream" (("type" . "emacs-lisp"))
+ "7bit"
+ "attachment" (("filename" . file))
+ )
+
+ ("\\.lsp$"
+ "application" "octet-stream" (("type" . "common-lisp"))
+ "7bit"
+ "attachment" (("filename" . file))
+ )
+
+ ("\\.pl$"
+ "application" "octet-stream" (("type" . "perl"))
+ "7bit"
+ "attachment" (("filename" . file))
+ )
+
+ ;; Text or translated text
+
+ ("\\.txt$"
"text" "plain" nil
nil
"inline" (("filename" . file))
)
- ("\\.pln$"
+
+ ;; .rc : procmail modules pm-xxxx.rc
+ ;; *rc : other resource files
+
+ ("\\.\\(rc\\|lst\\|log\\|sql\\|mak\\)$\\|\\..*rc$"
"text" "plain" nil
nil
- "inline" (("filename" . file))
+ "attachment" (("filename" . file))
)
+
("\\.html$"
"text" "html" nil
nil
nil nil)
+
+ ("\\.diff$\\|\\.patch$"
+ "application" "octet-stream" (("type" . "patch"))
+ nil
+ "attachment" (("filename" . file))
+ )
+
+ ("\\.signature"
+ "text" "plain" nil nil nil nil)
+
+
+ ;; Octect binary text
+
+ ("\\.doc$" ;MS Word
+ "application" "winword" nil
+ "base64"
+ "attachment" (("filename" . file))
+ )
+
+ ("\\.pln$"
+ "text" "plain" nil
+ nil
+ "inline" (("filename" . file))
+ )
("\\.ps$"
"application" "postscript" nil
"quoted-printable"
"attachment" (("filename" . file))
)
+
+ ;; Pure binary
+
("\\.jpg$"
"image" "jpeg" nil
"base64"
"base64"
"attachment" (("filename" . file))
)
- ("\\.el$"
- "application" "octet-stream" (("type" . "emacs-lisp"))
- "7bit"
- "attachment" (("filename" . file))
- )
- ("\\.lsp$"
- "application" "octet-stream" (("type" . "common-lisp"))
- "7bit"
- "attachment" (("filename" . file))
- )
("\\.tar\\.gz$"
"application" "octet-stream" (("type" . "tar+gzip"))
"base64"
"base64"
"attachment" (("filename" . file))
)
- ("\\.diff$"
- "application" "octet-stream" (("type" . "patch"))
- nil
- "attachment" (("filename" . file))
- )
- ("\\.patch$"
- "application" "octet-stream" (("type" . "patch"))
- nil
- "attachment" (("filename" . file))
- )
- ("\\.signature"
- "text" "plain" nil nil nil nil)
+
+ ;; Rest
+
(".*"
"application" "octet-stream" nil
nil
,@(cons
'(const nil)
(mapcar (lambda (cell)
- (list 'item (car cell))
+ (list 'item cell)
)
- mime-file-encoding-method-alist)))
+ (mime-encoding-list))))
;; disposition-type
(choice :tag "Disposition-Type"
(item nil)
(iso-2022-jp 7 "base64")
(iso-2022-kr 7 "base64")
(euc-kr 8 "base64")
- (cn-gb2312 8 "base64")
+ (cn-gb 8 "base64")
(gb2312 8 "base64")
(cn-big5 8 "base64")
(big5 8 "base64")
"*If non-nil, insert User-Agent header field.")
(defvar mime-edit-user-agent-value
- (concat (car mime-user-interface-version)
+ (concat (mime-product-name mime-user-interface-product)
"/"
(mapconcat #'number-to-string
- (cddr mime-user-interface-version) ".")
+ (mime-product-version mime-user-interface-product) ".")
" ("
- (cadr mime-user-interface-version)
+ (mime-product-code-name mime-user-interface-product)
") "
- (car mime-library-version)
+ (mime-product-name mime-library-product)
"/"
(mapconcat #'number-to-string
- (cddr mime-library-version) ".")
+ (mime-product-version mime-library-product) ".")
" ("
- (cadr mime-library-version)
+ (mime-product-code-name mime-library-product)
") "
(if (featurep 'xemacs)
(concat (if (featurep 'mule) "MULE")
Tspecials means any character that matches with it in header must be quoted.")
(defconst mime-edit-mime-version-value
- (concat "1.0 (generated by " mime-edit-version-string ")")
+ (eval-when-compile
+ (concat "1.0 (generated by " mime-edit-version ")"))
"MIME version number.")
(defconst mime-edit-mime-version-field-for-message/partial
- (concat "MIME-Version: 1.0 (split by " mime-edit-version-string ")\n")
+ (eval-when-compile
+ (concat "MIME-Version: 1.0 (split by " mime-edit-version ")\n"))
"MIME version field for message/partial.")
(let ((encoding
(completing-read
"What transfer encoding: "
- mime-file-encoding-method-alist nil t nil)))
+ (mime-encoding-alist) nil t nil)))
(mime-edit-insert-tag "audio" "basic" nil)
(mime-edit-define-encoding encoding)
(save-restriction
(setq encoding
(completing-read
"What transfer encoding: "
- mime-file-encoding-method-alist nil t default)
+ (mime-encoding-alist) nil t default)
)
""))
encoding))
(erase-buffer)
(insert ";;; " (file-name-nondirectory file) "\n")
(insert "\n;; This file is generated automatically by "
- mime-view-version-string "\n\n")
+ mime-view-version "\n\n")
(insert ";;; Code:\n\n")
(pp `(setq mime-acting-situation-example-list
',mime-acting-situation-example-list)
(remove-alist 'mime-mailcap-method-filename-alist process)
(message (format "%s %s" process event)))
-(defvar mime-echo-window-is-shared-with-bbdb t
+(defvar mime-echo-window-is-shared-with-bbdb
+ (module-installed-p 'bbdb)
"*If non-nil, mime-echo window is shared with BBDB window.")
(defvar mime-echo-window-height
"Show mime-echo buffer to display MIME-playing information."
(get-buffer-create mime-echo-buffer-name)
(let ((the-win (selected-window))
- (win (get-buffer-window mime-echo-buffer-name))
+ (win (get-buffer-window mime-echo-buffer-name)))
+ (unless win
+ (unless (and mime-echo-window-is-shared-with-bbdb
+ (condition-case nil
+ (setq win (get-buffer-window bbdb-buffer-name))
+ (error nil)))
+ (select-window (get-buffer-window mime-preview-buffer))
+ (setq win (split-window-vertically
+ (- (window-height)
+ (if (functionp mime-echo-window-height)
+ (funcall mime-echo-window-height)
+ mime-echo-window-height)
+ )))
)
- (or win
- (if (and mime-echo-window-is-shared-with-bbdb
- (boundp 'bbdb-buffer-name)
- (setq win (get-buffer-window bbdb-buffer-name))
- )
- (set-window-buffer win mime-echo-buffer-name)
- (select-window (get-buffer-window mime-preview-buffer))
- (setq win (split-window-vertically
- (- (window-height)
- (if (functionp mime-echo-window-height)
- (funcall mime-echo-window-height)
- mime-echo-window-height)
- )))
- (set-window-buffer win mime-echo-buffer-name)
- ))
+ (set-window-buffer win mime-echo-buffer-name)
+ )
(select-window win)
(goto-char (point-max))
(if forms
;;; @ version
;;;
-(defconst mime-view-version-string
- `,(concat (car mime-user-interface-version) " MIME-View "
+(defconst mime-view-version
+ (eval-when-compile
+ (concat (mime-product-name mime-user-interface-product) " MIME-View "
(mapconcat #'number-to-string
- (cddr mime-user-interface-version) ".")
- " (" (cadr mime-user-interface-version) ")"))
+ (mime-product-version mime-user-interface-product) ".")
+ " (" (mime-product-code-name mime-user-interface-product) ")")))
;;; @ variables
(require 'custom)
-(defconst mime-user-interface-version '("SEMI" "Fukuoka" 1 8 6)
- "Implementation name, version name and numbers of MIME-kernel package.")
+(defconst mime-user-interface-product ["SEMI" (1 9 1) "Kurikara"]
+ "Product name, version number and code name of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
"Caesar rotation of current region." t)
projects / elisp / semi.git / commitdiff