+Mon Apr 15 09:10:01 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.19.1 was released.
+ * tm: Version 7.49 was released.
+ * tm/gnus: Version 7.49.2 was released.
+
+Sun Apr 14 15:42:14 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-parse.el (mime/parse-Content-Disposition): use function
+ `nreverse' instead of `reverse'.
+
+Sun Apr 14 15:16:25 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-parse.el (mime/parse-Content-Type): use function `nreverse'
+ instead of `reverse'.
+
+Sun Apr 14 00:21:21 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-vm.el (vm-yank-message): use variable `running-xemacs'
+
+ * tm-view.el, tm-image.el, tm-mail.el, tm-setup.el: use variable
+ `running-xemacs'
+
+Sat Apr 13 23:32:26 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-view.el (mime-viewer/make-preview-buffer):
+ use `while' instead of mapcar.
+
+ * tm-vm.el (vm-yank-message): redefine for MIME preview buffer.
+
+Sat Apr 13 04:04:12 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-setup.el.in (message-header-hook): add function
+ `mime/encode-message-header' (cf.[tm-ja:
+
+ * tm-ew-e.el (mime/encode-message-header): regard `(point-max)' as
+ end of message header if variable `mail-header-separator' is not
+ found.
+
+Thu Apr 11 17:24:11 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * doc/tm_en.texi: fixed problem about top node.
+
+ * doc/tm-mh-e_en.texi: fixed problem about top node.
+
+ * doc/tm-gnus_en.texi: fixed problem about top node.
+
+ * doc/tm-edit=en.texi: fixed problem in TeX compiling.
+
+ * doc/tm-edit=ja.texi: fixed problem in TeX compiling.
+
+Thu Apr 11 16:20:20 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-setup.el.in (message-forward-start-separator): Function
+ `mime-make-tag' must be called after tm-edit is loaded.
+
+ * mime-setup.el.in:
+ setting for variable `message-forward-start-separator'.
+ setting for variable `message-forward-end-separator'.
+
+ * tm-edit.el (mime-editor/encode-string): New function.
+ Variable `mime-string-encoder' and its implementations were
+ deleted.
+
+Wed Apr 10 02:06:30 1996 Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
+
+ * doc/tm_ja.texi: fixed problem about top node.
+ (cf. [tm-ja:1706])
+
+ * doc/tm-mh-e_ja.texi: fixed problem about top node.
+ (cf. [tm-ja:1706])
+
+ * doc/tm-gnus_ja.texi: fixed problem about top node.
+ (cf. [tm-ja:1706])
+
+Tue Apr 9 17:28:49 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * Makefile (GOMI): add mime-setup.el, mime-setup.el~ and
+ #mime-setup.el#; remove load-path.
+
+Tue Apr 9 17:13:36 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * inst-tm (compile-tm): call `make gnus3' for Emacs 18.
+
+Mon Apr 8 12:28:17 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * inst-tm (make-mime-setup): check unnecessary add-path.
+
+Sun Apr 7 20:12:27 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-view.el: (mime-viewer/default-showing-Content-Type-list):
+ "message/delivery-status" was added to default value.
+
+Wed Apr 3 15:35:44 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-image.el: add-hook only if variable
+ `mime-preview/x-face-function' is not nil.
+ (cf. [tm-en:416])
+
+Thu Mar 28 18:55:18 1996 Oscar Figueiredo <figueire@lspsun16.epfl.ch>
+
+ * tm-vm.el (vm-yank-message): redefine for MIME preview buffer.
+
+\f
Thu Mar 28 08:42:34 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm: Version 7.48.3 was released.
#
-# $Id: Makefile,v 7.16 1996/03/04 09:24:23 morioka Exp morioka $
+# $Id: Makefile,v 7.17 1996/04/09 17:28:49 morioka Exp morioka $
#
MAKE = make
BINS = src/ol2 src/decode-b
UTILS = $(BINS)
-GOMI = $(BINS) *.elc loadpath
+GOMI = $(BINS) mime-setup.el mime-setup.el~ \#mime-setup.el\# *.elc
FLAGS = -batch -q -no-site-file
TM_FILES = tm/README.en tm/ChangeLog \
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.48.3.tar.gz
+TARFILE = tm7.49.tar.gz
elc:
$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: TM-CFG,v 3.0 1996/03/27 19:38:12 morioka Exp $
+;;; $Id: TM-CFG,v 3.0 1996/03/27 19:38:12 morioka Exp morioka $
;;;
(setq load-path (append
;;;
;; Please specify install path prefix.
-;;(setq PREFIX "~/") ; install to you home directory
-(setq PREFIX "/usr/local/") ; install to shared directory
+(setq PREFIX "~/") ; install to you home directory
+;;(setq PREFIX "/usr/local/") ; install to shared directory
;; Please specify tm package prefix [optional]
(setq TM_PACKAGE_PREFIX "")
-@c $Id: tm-edit=en.texi,v 1.1 1996/02/28 14:34:05 morioka Exp $
+@c $Id: tm-edit=en.texi,v 2.0 1996/04/11 17:24:11 morioka Exp $
@node tm-edit, encoded-word, tm-view, Top
@comment node-name, next, previous, up
@emph{multi-part beginning tag}'s form is following:
@example
- --<<TYPE>>-{
+ --<<TYPE>>-@{
@end example
@emph{multi-part ending tag}'s form is following:
@example
- --}-<<TYPE>>
+ --@}-<<TYPE>>
@end example
A region from multi-part beginning tag to multi-part ending tag is
-@c $Id: tm-edit=ja.texi,v 3.0 1996/02/28 13:41:00 morioka Exp $
+@c $Id: tm-edit=ja.texi,v 4.0 1996/04/11 17:18:48 morioka Exp $
@node tm-edit, encoded-word, tm-view, Top
@comment node-name, next, previous, up
multi-part tag ¤Ï multi part ¤òɽ¸½¤¹¤ë¤¿¤á¤Î tag ¤Ç¡¢
@example
- --<<TYPE>>-{
+ --<<TYPE>>-@{
@end example
¤È¤¤¤¦·Á¤Î @emph{multi-part ³«»Ï tag} ¤È¸Æ¤Ð¤ì¤ë multi part ¤Î³«»Ï¤ò¼¨
¤¹ tag ¤È
@example
- --}-<<TYPE>>
+ --@}-<<TYPE>>
@end example
@titlepage
@title{tm-gnus}
@author{MORIOKA Tomohiko}
-@code{$Id: tm-gnus_en.texi,v 6.0 1996/03/27 23:04:30 morioka Exp morioka $}
+@code{$Id: tm-gnus_en.texi,v 7.0 1996/04/11 17:20:24 morioka Exp $}
@end titlepage
@node Top, Introduction, (tm_en.info)tm-MUA, (tm_en.info)tm-MUA
+@top tm-gnus 7.25 Reference manual
+
@comment node-name, next, previous, up
@ifinfo
This file documents tm-gnus, a MIME extension for GNUS and Gnus.
-@top tm-gnus 7.25 Reference manual
@end ifinfo
@menu
@titlepage
@title{tm-gnus}
@author{¼é²¬ ÃÎɧ}
-@code{$Id: tm-gnus_ja.texi,v 6.0 1996/03/27 23:04:01 morioka Exp morioka $}
+@code{$Id: tm-gnus_ja.texi,v 7.0 1996/04/11 16:43:31 morioka Exp $}
@end titlepage
@node Top, Introduction, (tm_ja.info)tm-MUA, (tm_ja.info)tm-MUA
+@top tm-gnus 7.25 Reference manual
+
@comment node-name, next, previous, up
@ifinfo
This file documents tm-gnus, a MIME extension for GNUS and Gnus.
-
-@top tm-gnus 7.25 Reference manual
@end ifinfo
@menu
@titlepage
@title{tm-mh-e}
@author{MORIOKA Tomohiko}
-@code{$Id: tm-mh-e_en.texi,v 4.0 1996/03/27 23:05:17 morioka Exp morioka $}
+@code{$Id: tm-mh-e_en.texi,v 5.0 1996/04/11 17:21:18 morioka Exp $}
@end titlepage
@node Top, Introduction, (tm_en.info)tm-MUA, (tm_en.info)tm-MUA
+@top tm-mh-e 7.44 Reference manual
+
@comment node-name, next, previous, up
@ifinfo
This file documents tm-mh-e, a MIME extension for mh-e.
-@top tm-mh-e 7.44 Reference manual
@end ifinfo
@menu
@titlepage
@title{tm-mh-e}
@author{¼é²¬ ÃÎɧ}
-@code{$Id: tm-mh-e_ja.texi,v 3.0 1996/03/27 23:06:07 morioka Exp morioka $}
+@code{$Id: tm-mh-e_ja.texi,v 4.0 1996/04/11 16:46:54 morioka Exp $}
@end titlepage
@node Top, Introduction, (tm_ja.info)tm-MUA, (tm_ja.info)tm-MUA
+@top tm-mh-e 7.44 Reference manual
+
@comment node-name, next, previous, up
@ifinfo
This file documents tm-mh-e, a MIME extension for mh-e.
-
-@top tm-mh-e 7.44 Reference manual
@end ifinfo
@menu
@titlepage
@title tm Manual (English Version)
@author by MORIOKA Tomohiko
-@code{$Id: tm_en.texi,v 7.12 1996/03/27 22:58:47 morioka Exp morioka $}
+@code{$Id: tm_en.texi,v 7.13 1996/04/11 17:22:35 morioka Exp $}
@end titlepage
@node Top, Introduction, (dir), (dir)
+@top tm 7.32 Reference manual
+
@comment node-name, next, previous, up
@ifinfo
This file documents tm, a MIME package for GNU Emacs.
-@top tm 7.32 Reference manual
@end ifinfo
@menu
@titlepage
@title{tm Manual¡ÊÆüËܸìÈÇ¡Ë}
@author{¼é²¬ ÃÎɧ Ãø}
-@code{$Id: tm_ja.texi,v 7.6 1996/03/27 22:59:32 morioka Exp morioka $}
+@code{$Id: tm_ja.texi,v 7.7 1996/04/11 16:48:21 morioka Exp $}
@end titlepage
@node Top, Introduction, (dir), (dir)
+@top tm 7.32 Reference manual
+
@comment node-name, next, previous, up
@ifinfo
This file documents tm, a MIME package for GNU Emacs.
-@top tm 7.32 Reference manual
-
GNU Emacs ¤Ç MIME ¤ò³Ú¤·¤à¤¿¤á¤Î package ¤Ç¤¢¤ë `tm' ¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ
¤¹¡£
@end ifinfo
+Mon Apr 15 09:08:57 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.49.2 was released.
+
+Thu Apr 11 16:10:56 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-sgnus.el: Function `tm-gnus/forward-insert-buffer' was
+ deleted.
+
+Mon Apr 8 12:26:21 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-gnus3.el (tm-gnus/article-set-mode-line): Function
+ `rightful-boundary-short-string' was obsoleted; use function
+ `truncate-string'. (cf. [tm-ja:1693])
+
+\f
Thu Mar 28 08:44:31 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/gnus: Version 7.49.1 was released.
tm/gnus/*.el tm/gnus/ChangeLog tm/doc/tm-gnus*.texi
-TARFILE = tm-gnus7.49.1.tar
+TARFILE = tm-gnus7.49.2.tar
gnus:
;; please edit
;; It is relative style. Added path is searched from load-path.
-(add-path "sgnus-0.57/lisp/" 'all-paths)
+(add-path "sgnus-0.69/lisp/" 'all-paths)
;; It is absolute style.
;; (add-path "/usr/local/share/emacs/site-lisp/sgnus/lisp/")
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1993/11/20
-;;; Version: $Revision: 7.7 $
+;;; Version: $Revision: 7.8 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-gnus3.el,v 7.7 1996/03/04 08:20:48 morioka Exp $")
+ "$Id: tm-gnus3.el,v 7.8 1996/04/08 12:26:21 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3"))
gnus-newsgroup-name
(if gnus-current-article
(format "/%d" gnus-current-article) "")
- (rightful-boundary-short-string subject
- (min (string-width subject)
- maxlen))
+ (truncate-string subject (min (string-width subject)
+ maxlen))
(if (> (string-width subject) maxlen) "..." "")
(make-string (max 0 (- 17 (string-width subject))) ? )
)))
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/09/24
-;;; Version: $Revision: 7.49 $
+;;; Version: $Revision: 7.50 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-sgnus.el,v 7.49 1996/03/04 08:17:44 morioka Exp $")
+ "$Id: tm-sgnus.el,v 7.50 1996/04/11 16:10:56 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for September"))
))
-;;; @ for tm-edit
-;;;
-
-(defun tm-gnus/forward-insert-buffer (buffer)
- (save-excursion
- (save-restriction
- (if gnus-signature-before-forwarded-message
- (goto-char (point-max))
- (goto-char (point-min))
- (re-search-forward
- (concat "^" (regexp-quote mail-header-separator) "$"))
- (forward-line 1))
- ;; Narrow to the area we are to insert.
- (narrow-to-region (point) (point))
- ;; Insert the separators and the forwarded buffer.
- (mime-editor/insert-tag "message" "rfc822")
- (insert-buffer-substring buffer)
- ;; Delete any invisible text.
- (goto-char (point-min))
- (let (beg)
- (while (setq beg (next-single-property-change (point) 'invisible))
- (goto-char beg)
- (delete-region beg (or (next-single-property-change
- (point) 'invisible)
- (point-max))))))))
-
-(call-after-loaded
- 'mime-setup
- (lambda ()
- (cond ((string-match "XEmacs" emacs-version)
- (require 'gnus-msg)
- (fset 'gnus-forward-insert-buffer 'tm-gnus/forward-insert-buffer)
- )
- (t
- (eval-after-load
- "gnus-msg"
- '(fset 'gnus-forward-insert-buffer 'tm-gnus/forward-insert-buffer)
- )
- ))))
-
-
;;; @ for BBDB
;;;
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: inst-tm,v 3.1 1996/03/11 14:50:53 morioka Exp morioka $
+;;; $Id: inst-tm,v 3.3 1996/04/09 17:13:36 morioka Exp $
;;;
(load-file "TM-CFG")
(compile-el-files "./" tm-modules)
(compile-el-files "mh-e/" tm-mh-e-modules)
(compile-tm-gnus "gnus")
- (cond ((< emacs-major-version 19)
- (compile-tm-gnus "gnus4")
- )
- ((or (>= emacs-minor-version 30)
- (string-match "XEmacs" emacs-version))
+ (cond ((string-match "XEmacs" emacs-version)
(compile-tm-gnus "sgnus")
)
- (t
- (compile-tm-gnus "gnus4")
- (compile-tm-gnus "gnus5")
- ))
+ (t (cond ((<= emacs-major-version 18)
+ (compile-tm-gnus "gnus3")
+ (compile-tm-gnus "gnus4")
+ )
+ ((< emacs-minor-version 30)
+ (compile-tm-gnus "gnus4")
+ (compile-tm-gnus "gnus5")
+ )
+ (t
+ (compile-tm-gnus "sgnus")
+ ))))
(compile-el-files "./" '("mime-setup"))
)
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: mime-setup.el.in,v 7.16 1996/03/28 08:42:34 morioka Exp $
+;;; $Id: mime-setup.el.in,v 7.19 1996/04/13 04:04:12 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
(add-hook 'message-setup-hook 'mime/editor-mode)
(add-hook 'message-send-hook 'mime-editor/maybe-translate)
+(add-hook 'message-header-hook 'mime/encode-message-header)
+
+(call-after-loaded
+ 'tm-edit
+ (function
+ (lambda ()
+ (setq message-forward-start-separator
+ (concat (mime-make-tag "message" "rfc822") "\n"))
+ )))
+(setq message-forward-end-separator "")
;;; @ end
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.48 $
+;;; Version: $Revision: 7.49 $
;;; Keywords: mail, news, MIME, multimedia, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst mime-editor/RCS-ID
- "$Id: tm-edit.el,v 7.48 1996/03/13 17:55:33 morioka Exp $")
+ "$Id: tm-edit.el,v 7.49 1996/04/11 00:39:12 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
(defvar mime-auto-hide-body t
"*Hide non-textual body encoded in base64 after insertion if non-nil.")
-(defvar mime-string-encoder
- (cond ((boundp 'NEMACS)
- (function mime-string-encoder-for-nemacs))
- ((featurep 'mule)
- (function mime-string-encoder-for-mule))
- ((string-match "^19\\." emacs-version)
- (function mime-string-encoder-for-emacs19))
- (t ;ASCII only emacs
- (function mime-string-encoder-for-emacs18)))
- "*Function to encode a string for given encoding method.
-The method is a form of (CHARSET . ENCODING).")
-
(defvar mime-voice-recorder
(function mime-voice-recorder-for-sun)
"*Function to record a voice message and return a buffer that contains it.")
Hide a non-textual body message encoded in base64 after insertion
if non-nil.
- mime-string-encoder
- Specifies a function to encode a string for given encoding method.
- The method is a form of (CHARSET . ENCODING).
-
mime-voice-recorder
Specifies a function to record a voice message and return a buffer
that contains it. The function mime-voice-recorder-for-sun is for
(buffer-substring (point-min) (point-max))
(kill-buffer (current-buffer)))))
-(defun mime-decode-string (encoding string)
- "Using ENCODING decode a STRING."
- (save-excursion
- (set-buffer (get-buffer-create " *MIME decoding*"))
- (erase-buffer)
- (insert string)
- (mime-decode-region encoding (point-min) (point-max))
- (prog1
- (buffer-substring (point-min) (point-max))
- (kill-buffer (current-buffer)))))
+(defun mime-editor/encode-string (method string)
+ "For given METHOD that is a cons of charset and encoding,
+encode a STRING. [tm-edit.el]"
+ (let* ((charset (car method))
+ (encoding (cdr method)))
+ (setq string (mime/convert-string-from-emacs string charset))
+ (cond ((stringp encoding)
+ (mime-encode-string encoding string)
+ )
+ (t string)
+ )))
(defun mime-flag-region (from to flag)
"Hides or shows lines from FROM to TO, according to FLAG.
(beg (mime-editor/content-beginning))
(end (mime-editor/content-end))
(body (buffer-substring beg end))
- (encoded (funcall mime-string-encoder
- (cons charset encoding) body)))
+ (encoded (mime-editor/encode-string
+ (cons charset encoding) body))
+ )
(if (not (string-equal body encoded))
(progn
(goto-char beg)
(beg (mime-editor/content-beginning))
(end (mime-editor/content-end))
(body (buffer-substring beg end))
- (encoded (funcall mime-string-encoder
- (cons nil encoding) body)))
+ (encoded (mime-editor/encode-string
+ (cons nil encoding) body))
+ )
(if (not (string-equal body encoded))
(progn
(goto-char beg)
;;; Platform dependent functions
;;;
-;; Emacs 18 implementations
-
-(defun mime-string-encoder-for-emacs18 (method string)
- "For given METHOD that is a cons of charset and encoding, encode a STRING."
- (let ((charset (car method))
- (encoding (cdr method)))
- (cond ((stringp encoding)
- (mime-encode-string encoding string))
- ;; Return string without any encoding.
- (t string)
- )))
-
-\f
-;; Emacs 19 implementations
-
-(defun mime-string-encoder-for-emacs19 (method string)
- "For given METHOD that is a cons of charset and encoding, encode a STRING."
- (let ((charset (car method))
- (encoding (cdr method)))
- (cond ((stringp encoding)
- (mime-encode-string encoding string))
- ;; Return string without any encoding.
- (t string)
- )))
-
-\f
-;; NEmacs implementations
-
-(defun mime-string-encoder-for-nemacs (method string)
- "For given METHOD that is a cons of charset and encoding, encode a STRING.
-US-ASCII and ISO-2022-JP are supported on NEmacs."
- (let ((charset (car method))
- (encoding (cdr method)))
- (cond ((stringp encoding)
- (mime-encode-string encoding
- ;; Convert internal (EUC) to JIS code.
- (convert-string-kanji-code string 3 2)
- ))
- ;; NEmacs can convert into ISO-2022-JP automatically,
- ;; but can do it myself as follows:
- ;;(t (convert-string-kanji-code string 3 2))
-
- ;; Return string without any encoding.
- (t string)
- )))
-
-\f
-;; Mule implementations
-;; Thanks to contributions by wkenji@flab.fujitsu.co.jp (Kenji
-;; WAKAMIYA) and handa@etl.go.jp (Kenichi Handa).
-
-(defun mime-string-encoder-for-mule (method string)
- "For given METHOD that is a cons of charset and encoding, encode a
-STRING. US-ASCII, ISO-8859-* (except for ISO-8859-6), ISO-2022-JP,
-ISO-2022-JP-2 and ISO-2022-INT-1 are supported on Mule. Either of
-charset ISO-2022-JP-2 or ISO-2022-INT-1 is used for multilingual
-text."
- (let* ((charset (car method))
- (encoding (cdr method))
- (coding-system
- (cdr (assoc (and (stringp charset) (upcase charset))
- '(("ISO-8859-1" . *ctext*)
- ("ISO-8859-2" . *iso-8859-2*)
- ("ISO-8859-3" . *iso-8859-3*)
- ("ISO-8859-4" . *iso-8859-4*)
- ("ISO-8859-5" . *iso-8859-5*)
- ;;("ISO-8859-6" . *iso-8859-6*)
- ("ISO-8859-7" . *iso-8859-7*)
- ("ISO-8859-8" . *iso-8859-8*)
- ("ISO-8859-9" . *iso-8859-9*)
- ("ISO-2022-JP" . *junet*)
- ("ISO-2022-JP-2" . *iso-2022-ss2-7*)
- ("ISO-2022-KR" . *korean-mail*)
- ("ISO-2022-INT-1" . *iso-2022-int-1*)
- )))))
- ;; In bilingual environment it may be unnecessary to convert the
- ;; coding system of the string unless transfer encoding is
- ;; required since such conversion may be performed by mule
- ;; automatically.
- (if (not (null coding-system))
- (setq string (code-convert-string string *internal* coding-system)))
- (if (stringp encoding)
- (setq string (mime-encode-string encoding string)))
- string
- ))
-
-\f
;; Sun implementations
(defun mime-voice-recorder-for-sun ()
;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version: $Revision: 7.13 $
+;;; Version: $Revision: 7.14 $
;;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-ew-e/RCS-ID
- "$Id: tm-ew-e.el,v 7.13 1996/03/04 08:55:23 morioka Exp $")
+ "$Id: tm-ew-e.el,v 7.14 1996/04/13 04:02:36 morioka Exp $")
(defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID))
(save-excursion
(save-restriction
(narrow-to-region (goto-char (point-min))
- (progn
- (re-search-forward
- (concat
- "^" (regexp-quote mail-header-separator) "$")
- nil t)
- (match-beginning 0)
- ))
+ (if (re-search-forward
+ (concat
+ "^" (regexp-quote mail-header-separator) "$")
+ nil t)
+ (match-beginning 0)
+ (point-max)))
(goto-char (point-min))
(let (beg end field)
(while (re-search-forward rfc822/field-top-regexp nil t)
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/12/15
;;; Version:
-;;; $Id: tm-image.el,v 7.0 1996/02/28 13:13:27 morioka Exp $
+;;; $Id: tm-image.el,v 7.2 1996/04/14 00:14:46 morioka Exp $
;;;
;;; Keywords: mail, news, MIME, multimedia, image, picture
;;;
(require 'tm-view)
-(cond ((string-match "XEmacs" emacs-version)
+(cond (running-xemacs
(require 'xpm)
(require 'annotations)
(defvar mime-viewer/x-face-to-xbm-command
(concat mime-viewer/x-face-to-pbm-command " | pbmtoxbm"))
-(add-hook 'mime-viewer/content-header-filter-hook
- mime-preview/x-face-function)
+(if mime-preview/x-face-function
+ (add-hook 'mime-viewer/content-header-filter-hook
+ mime-preview/x-face-function)
+ )
(defun mime-preview/x-face-function-use-highlight-headers ()
(highlight-headers (point-min) (re-search-forward "^$" nil t) t)
;;; and Neal Becker <neal@neal.ctd.comsat.com>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/11/27
-;;; Version: $Id: tm-mail.el,v 4.0 1996/02/27 10:13:50 morioka Exp $
+;;; Version: $Id: tm-mail.el,v 5.0 1996/04/14 00:17:05 morioka Exp $
;;; Keywords: mail, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
))
))
-(defvar tm-mail/use-xemacs-popup-menu t)
+(defvar tm-mail/use-xemacs-popup-menu running-xemacs)
-(if (and (string-match "XEmacs\\|Lucid" emacs-version)
- tm-mail/use-xemacs-popup-menu)
+(if (and running-xemacs tm-mail/use-xemacs-popup-menu)
(cond
((string-match "19.14" emacs-version)
(setq mail-menubar-menu
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-parse.el,v 7.1 1995/12/21 18:13:54 morioka Exp $
+;;; $Id: tm-parse.el,v 7.3 1996/04/14 15:42:14 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
ret dest)
(setq str (substring str e))
(while (setq ret (mime/parse-parameter str))
- (setq dest (cons (car ret) dest))
- (setq str (cdr ret))
+ (setq dest (cons (car ret) dest)
+ str (cdr ret))
)
- (cons ctype (reverse dest))
+ (cons ctype (nreverse dest))
)))
(defconst mime::dtype-regexp (concat "^" mime/disposition-type-regexp))
ret dest)
(setq str (substring str e))
(while (setq ret (mime/parse-parameter str))
- (setq dest (cons (car ret) dest))
- (setq str (cdr ret))
+ (setq dest (cons (car ret) dest)
+ str (cdr ret))
)
- (cons ctype (reverse dest))
+ (cons ctype (nreverse dest))
)))
;;;
-;;; $Id: tm-setup.el,v 7.1 1995/12/20 15:27:35 morioka Exp $
+;;; $Id: tm-setup.el,v 7.2 1996/04/14 00:18:09 morioka Exp $
;;;
(require 'tl-misc)
(autoload 'mime-viewer/filter-text/enriched "tm-rich")
;; for image/*
- (if (string-match "XEmacs" emacs-version)
+ (if running-xemacs
(require 'tm-image)
)
;;; modified by Steven L. Baur <steve@miranova.com>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;;; Version: $Revision: 7.43 $
+;;; Version: $Revision: 7.46 $
;;; Keywords: mail, news, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 7.43 1996/03/06 12:26:20 morioka Exp $")
+ "$Id: tm-view.el,v 7.46 1996/04/14 00:19:59 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
(defvar mime-viewer/default-showing-Content-Type-list
'("text/plain" nil "text/richtext" "text/enriched"
"text/x-latex" "application/x-latex"
+ "message/delivery-status"
"application/pgp" "text/x-pgp"
"application/octet-stream"
"application/x-selection" "application/x-comment"))
(setq mime::preview/original-major-mode mode)
(setq major-mode 'mime/viewer-mode)
(setq mode-name "MIME-View")
- (setq dest
- (mapcar
- (function
- (lambda (content)
- (mime-viewer/display-content content cinfo the-buf obuf)
- ))
- pcl))
+ (while pcl
+ (setq dest
+ (cons (mime-viewer/display-content (car pcl) cinfo the-buf obuf)
+ dest)
+ pcl (cdr pcl))
+ )
(set-buffer-modified-p nil)
(setq buffer-read-only t)
(set-buffer the-buf)
- (list obuf dest)
+ (list obuf (nreverse dest))
))
(defun mime-viewer/display-content (content cinfo ibuf obuf)
(define-key mime/viewer-mode-map
mouse-button-2 (function tm:button-dispatcher))
)
- (cond ((string-match "XEmacs\\|Lucid" emacs-version)
+ (cond (running-xemacs
(defvar mime-viewer/xemacs-popup-menu
(cons mime-viewer/menu-title
(mapcar (function
;;; Copyright (C) 1994 MASUTANI Yasuhiro
;;; Copyright (C) 1995 WAKAMIYA Kenji
;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei
-;;;
+;;; Copyright (C) 1996 Oscar Figueiredo
+;;;
;;; Author: MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
;;; Kenji Wakamiya <wkenji@flab.fujitsu.co.jp>
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Rob Kooper <kooper@cc.gatech.edu>
;;; Maintainer: Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Created: 1994/10/29
-;;; Version: $Revision: 7.48 $
+;;; Version: $Revision: 7.50 $
;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
(require 'vm)
(defconst tm-vm/RCS-ID
- "$Id: tm-vm.el,v 7.48 1996/03/11 15:21:25 morioka Exp $")
+ "$Id: tm-vm.el,v 7.50 1996/04/14 00:21:21 morioka Exp $")
(defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
(define-key vm-mode-map "Z" 'tm-vm/view-message)
(set-alist 'mime-viewer/over-to-next-method-alist
'vm-virtual-mode 'tm-vm/next-message)
+;;; @@ vm-yank-message
+;;;
+;; 1996/3/28 by Oscar Figueiredo <figueire@lspsun16.epfl.ch>
+(defun vm-yank-message (message)
+ "Yank message number N into the current buffer at point.
+When called interactively N is always read from the minibuffer. When
+called non-interactively the first argument is expected to be a
+message struct.
+
+This command is meant to be used in VM created Mail mode buffers; the
+yanked message comes from the mail buffer containing the message you
+are replying to, forwarding, or invoked VM's mail command from.
+
+All message headers are yanked along with the text. Point is
+left before the inserted text, the mark after. Any hook
+functions bound to mail-citation-hook are run, after inserting
+the text and setting point and mark. For backward compatibility,
+if mail-citation-hook is set to nil, `mail-yank-hooks' is run
+instead.
+
+If mail-citation-hook and mail-yank-hooks are both nil, this
+default action is taken: the yanked headers are trimmed as
+specified by vm-included-text-headers and
+vm-included-text-discard-header-regexp, and the value of
+vm-included-text-prefix is prepended to every yanked line."
+ (interactive
+ (list
+ ;; What we really want for the first argument is a message struct,
+ ;; but if called interactively, we let the user type in a message
+ ;; number instead.
+ (let (mp default
+ (result 0)
+ prompt
+ (last-command last-command)
+ (this-command this-command))
+ (save-excursion
+ (vm-select-folder-buffer)
+ (setq default (and vm-message-pointer
+ (vm-number-of (car vm-message-pointer)))
+ prompt (if default
+ (format "Yank message number: (default %s) "
+ default)
+ "Yank message number: "))
+ (while (zerop result)
+ (setq result (read-string prompt))
+ (and (string= result "") default (setq result default))
+ (setq result (string-to-int result)))
+ (if (null (setq mp (nthcdr (1- result) vm-message-list)))
+ (error "No such message.")))
+ (car mp))))
+ (if (not (bufferp vm-mail-buffer))
+ (error "This is not a VM Mail mode buffer."))
+ (if (null (buffer-name vm-mail-buffer))
+ (error "The folder buffer containing message %d has been killed."
+ (vm-number-of message)))
+ (vm-display nil nil '(vm-yank-message) '(vm-yank-message composing-message))
+ (setq message (vm-real-message-of message))
+ (let ((b (current-buffer)) (start (point)) end)
+ (save-restriction
+ (widen)
+ (save-excursion
+ (set-buffer (vm-buffer-of message))
+ (let* ((mbuf (current-buffer))
+ (pbuf (and mime::article/preview-buffer
+ (get-buffer mime::article/preview-buffer)))
+ (pwin (and pbuf (vm-get-visible-buffer-window pbuf))))
+ (if pwin
+ (if running-xemacs
+ (let ((tmp (generate-new-buffer "tm-vm/tmp")))
+ (set-buffer pbuf)
+ (append-to-buffer tmp (point-min) (point-max))
+ (set-buffer tmp)
+ (map-extents
+ '(lambda (ext maparg)
+ (set-extent-property ext 'begin-glyph nil)))
+ (append-to-buffer b (point-min) (point-max))
+ (setq end (vm-marker (+ start (length (buffer-string))) b))
+ (kill-buffer tmp))
+ (set-buffer pbuf)
+ (append-to-buffer b (point-min) (point-max))
+ (setq end (vm-marker (+ start (length (buffer-string))) b)))
+ (save-restriction
+ (widen)
+ (append-to-buffer
+ b (vm-headers-of message) (vm-text-end-of message))
+ (setq end
+ (vm-marker (+ start (- (vm-text-end-of message)
+ (vm-headers-of message))) b))))))
+ (push-mark end)
+ (cond (mail-citation-hook (run-hooks 'mail-citation-hook))
+ (mail-yank-hooks (run-hooks 'mail-yank-hooks))
+ (t (vm-mail-yank-default message))))))
+
\f
;;; @ for tm-view
;;;
projects / elisp / tm.git / commitdiff