1998-04-09 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.2.1 (Nomachi) was released.
-
-1998-04-09 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
* mime-view.el (mime-view-setup-buffers): Don't use
'mime-raw-flatten-message-info.
(mime-view-display-entity): Display recursively.
* TODO: New file.
+\f
+1998-04-07 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * WEMI: Version 1.2.0 (T\e-Dòkyò)\e-A was released.
+
+ * README.en: Modify for WEMI.
+
1998-04-03 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* eword-decode.el (eword-decode-version): Use
* mime-edit.el (mime-edit-version-string): Use
`mime-module-version' instead of `semi-version'.
+1998-04-03 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-text.el (mime-text-add-url-buttons): Use
+ `widget-convert-text' instead of `mime-add-button'.
+
* mime-view.el (mime-view-version-string): Use
- `mime-module-version' instead of `semi-version'.
+ `mime-module-version' instead of `semi-version'.
+ (mime-view-insert-message/partial-button): Use
+ `mime-insert-button'.
* mime-def.el (mime-module-version): New variable; abolish
- `semi-version'.
+ `semi-version'.
+ (mime-insert-button): Use `widget-create'; abolish
+ `mime-add-button'.
\f
1998-03-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
#
-# Makefile for SEMI kernel.
+# Makefile for WEMI.
#
VERSION = 1.2.1
tar:
cvs commit
- sh -c 'cvs tag -RF semi-`echo $(VERSION) \
+ sh -c 'cvs tag -RF wemi-`echo $(VERSION) \
| sed s/\\\\./_/ | sed s/\\\\./_/`; \
cd /tmp; \
cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \
- export -d semi-$(VERSION) \
- -r semi-`echo $(VERSION) \
+ export -d wemi-$(VERSION) \
+ -r wemi-`echo $(VERSION) \
| sed s/\\\\./_/ | sed s/\\\\./_/` semi'
- $(RM) /tmp/semi-$(VERSION)/ftp.in
- cd /tmp; $(TAR) cvzf semi-$(VERSION).tar.gz semi-$(VERSION)
- cd /tmp; $(RM) -r semi-$(VERSION)
+ $(RM) /tmp/wemi-$(VERSION)/ftp.in
+ cd /tmp; $(TAR) cvzf $(HOME)/tmp/wemi-$(VERSION).tar.gz wemi-$(VERSION)
+ cd /tmp; $(RM) -r wemi-$(VERSION)
sed "s/VERSION/$(VERSION)/" < ftp.in > ftp
-[README for SEMI kernel package (English Version)]
+[README for WEMI kernel package (English Version)]
by MORIOKA Tomohiko <morioka@jaist.ac.jp>
-$Id: README.en,v 1.7 1998-03-13 19:50:29 shuhei-k Exp $
+$Id: README.en,v 1.7.6.1 1998-04-09 21:08:05 morioka Exp $
-What's SEMI?
+What's WEMI?
------------
- SEMI is a library to provide MIME feature for GNU Emacs. MIME is a
- proposed internet standard for including content and headers other
- than (ASCII) plain text in messages.
+ WEMI is a branch of SEMI kernel package using widget. It is a
+ library to provide MIME feature for GNU Emacs based on SEMI API.
+ Namely it contains whole features of SEMI thus it is a replacement
+ of SEMI.
+
+ MIME is a proposed internet standard for including content and
+ headers other than (ASCII) plain text in messages.
RFC 2045 : Internet Message Bodies
RFC 2046 : Media Types
RFC 2048 : MIME Registration Procedures
RFC 2049 : MIME Conformance
- SEMI has the following features:
+ WEMI has the following features:
- MIME style multilingual header (RFC 2047)
- MIME message viewer (mime-view-mode) (RFC 2045 .. 2049)
Required environment
--------------------
- SEMI supports XEmacs 20.2 or later with mule, and Emacs 20.
+ WEMI supports XEmacs 20.3 or later with mule, and Emacs 20.2.
- SEMI does not support anything older than Emacs 19.28 or XEmacs
- 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.
+ WEMI does not support anything older than Emacs 19.28 or XEmacs
+ 19.14. WEMI also does not support Emacs 19.29 to 19.34, XEmacs
+ 19.15 or XEmacs 20.2 without mule, but WEMI may work with them.
If you use Emacs 20, don't set `enable-multibyte-characters' to
nil. (Maybe non mule setting requires to modify emu. In addition,
it is better to use terminal-coding-system feature)
- SEMI requires APEL and MEL package. Please install them before
+ WEMI requires APEL and MEL package. Please install them before
installing it. APEL package
is available at:
/usr/local/share/emacs/site-lisp/bitmap/ --- BITMAP-MULE
/usr/local/share/emacs/site-lisp/mu/ --- MU
/usr/local/share/emacs/site-lisp/mel/ --- MEL
- /usr/local/share/emacs/site-lisp/semi/ --- SEMI
+ /usr/local/share/emacs/site-lisp/semi/ --- WEMI
You can specify site-lisp directory, for example
/usr/local/lib/xemacs/site-lisp).
You can specify other optional settings by editing the file
- semi/SEMI-CFG. Please read semi/README.en and comments in
- semi/SEMI-CFG.
+ ${archive}/SEMI-CFG. Please read ${archive}/README.en and comments
+ in ${archive}/SEMI-CFG.
Initialization
Documentation
-------------
- To get started, please read semi/README.en.
+ To get started, please read WEMI/README.en.
RFC's 822, 1806, 1847, 1896, 2015, 2045, 2046, 2047, 2048 and 2049
are available via anonymous ftp:
bug-tm-en@chamonix.jaist.ac.jp (English)
bug-tm-ja@chamonix.jaist.ac.jp (Japanese)
- Via the tm ML, you can report SEMI bugs, obtain the latest release
- of SEMI, and discuss future enhancements to SEMI. To join the tm
+ Via the tm ML, you can report WEMI bugs, obtain the latest release
+ of WEMI, and discuss future enhancements to WEMI. To join the tm
ML, send an empty e-mail to
tm-en-help@chamonix.jaist.ac.jp (English)
-;;; mime-def.el --- definition module for SEMI
+;;; mime-def.el --- definition module for WEMI
;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Keywords: definition, MIME, multimedia, mail, news
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
+;; This file is part of WEMI (Widget based Emacs MIME Interfaces).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
x))))
)
-(defconst mime-module-version '("SEMI" "Nomachi" 1 2 1)
+(defconst mime-module-version '("WEMI" "Shinbashi" 1 2 1)
"Implementation name, version name and numbers of MIME-kernel package.")
(autoload 'mule-caesar-region "mule-caesar"
:group 'mime
:type 'face)
-(defsubst mime-add-button (from to function &optional data)
- "Create a button between FROM and TO with callback FUNCTION and DATA."
- (let ((overlay (make-overlay from to)))
- (and mime-button-face
- (overlay-put overlay 'face mime-button-face))
- (and mime-button-mouse-face
- (overlay-put overlay 'mouse-face mime-button-mouse-face))
- (add-text-properties from to (list 'mime-button-callback function))
- (and data
- (add-text-properties from to (list 'mime-button-data data)))
- ;;(add-text-properties from to (list 'keymap widget-keymap))
- ))
+;; (defsubst mime-add-button (from to function &optional data)
+;; "Create a button between FROM and TO with callback FUNCTION and DATA."
+;; (let ((overlay (make-overlay from to)))
+;; (and mime-button-face
+;; (overlay-put overlay 'face mime-button-face))
+;; (and mime-button-mouse-face
+;; (overlay-put overlay 'mouse-face mime-button-mouse-face))
+;; (add-text-properties from to (list 'mime-button-callback function))
+;; (and data
+;; (add-text-properties from to (list 'mime-button-data data)))
+;; (add-text-properties from to (list 'keymap widget-keymap))
+;; ))
(defsubst mime-insert-button (string function &optional data)
"Insert STRING as button with callback FUNCTION and DATA."
(save-restriction
(narrow-to-region (point)(point))
- (insert (concat "[" string "]"))
- ;; (widget-push-button-value-create
- ;; (widget-convert 'push-button
- ;; :notify (lambda (&rest ignore)
- ;; (mime-preview-play-current-entity)
- ;; )
- ;; string))
+ (widget-create 'push-button
+ :action `(lambda (widget &optional event)
+ (,function)
+ )
+ :mouse-down-action `(lambda (widget event)
+ (let (buf point)
+ (save-window-excursion
+ (mouse-set-point event)
+ (setq buf (current-buffer)
+ point (point)))
+ (save-excursion
+ (set-buffer buf)
+ (goto-char point)
+ (,function)
+ )))
+ string)
(insert "\n")
- (mime-add-button (point-min)(point-max) function data)
+ ;;(mime-add-button (point-min)(point-max) function data)
))
(defvar mime-button-mother-dispatcher nil)
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Keywords: text, MIME, multimedia, mail, news
-;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
+;; This file is part of WEMI (Widget based Emacs MIME Interfaces).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;;; Code:
(require 'mime-view)
+(autoload 'widget-convert-text "wid-edit")
;;; @ buffer local variables in raw-buffer
(while (re-search-forward mime-text-url-regexp nil t)
(let ((beg (match-beginning 0))
(end (match-end 0)))
- (mime-add-button beg end #'mime-text-browse-url
- (list (buffer-substring beg end)))
+ (widget-convert-text 'url-link beg end)
)))
(defun mime-text-add-url-buttons-maybe ()
;; Renamed: 1997/02/19 from tm-view.el
;; Keywords: MIME, multimedia, mail, news
-;; This file is part of SEMI (Sophisticated Emacs MIME Interfaces).
+;; This file is part of WEMI (Widget based Emacs MIME Interfaces).
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
(defvar mime-view-announcement-for-message/partial
(if (and (>= emacs-major-version 19) window-system)
"\
-\[[ This is message/partial style split message. ]]
-\[[ Please press `v' key in this buffer ]]
-\[[ or click here by mouse button-2. ]]"
+This is message/partial style split message.
+Please press `v' key in this buffer
+or click here by mouse button-2. "
"\
-\[[ This is message/partial style split message. ]]
-\[[ Please press `v' key in this buffer. ]]"
+This is message/partial style split message.
+Please press `v' key in this buffer. "
))
(defun mime-view-insert-message/partial-button (&optional situation)
(insert "\n")
)
(goto-char (point-max))
- (narrow-to-region (point-max)(point-max))
- (insert mime-view-announcement-for-message/partial)
- (mime-add-button (point-min)(point-max)
- #'mime-preview-play-current-entity)
+ ;;(narrow-to-region (point-max)(point-max))
+ ;;(insert mime-view-announcement-for-message/partial)
+ ;; (mime-add-button (point-min)(point-max)
+ ;; #'mime-preview-play-current-entity)
+ (mime-insert-button mime-view-announcement-for-message/partial
+ #'mime-preview-play-current-entity)
))
projects / elisp / semi.git / commitdiff