+Thu Mar 28 08:42:34 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm: Version 7.48.3 was released.
+ * tm/gnus: Version 7.49.1 was released.
+
+ * mime-setup.el.in: If `mime-setup-use-signature' is not nil, set
+ `message-signature' to nil.
+
+ * mime-setup.el.in: setting for message.el.
+
+Wed Mar 27 23:06:07 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * doc/tm-mh-e_ja.texi, doc/tm-mh-e_en.texi:
+ Insert `This file documents ...' into @ifinfo. (cf. [tm-en:403])
+
+ * doc/tm-gnus_ja.texi, doc/tm-gnus_en.texi:
+ Insert `This file documents ...' into @ifinfo. (cf. [tm-en:403])
+
+ * doc/tm_ja.texi, doc/tm_en.texi:
+ Insert `This file documents ...' into @ifinfo. (cf. [tm-en:403])
+
+Wed Mar 27 19:38:12 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TM-CFG: rearrangement
+
+Tue Mar 26 08:07:24 1996 Pekka Marjola <marjola@bilbo.ntc.nokia.com>
+
+ * tm-bbdb.el (tm-bbdb/update-record): In XEmacs,
+ mail-extract-address-components still doesn't handle nil argument.
+ (cf. [tm-ja:396])
+
+\f
Mon Mar 25 13:30:53 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.19 was released.
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.48.2.tar.gz
+TARFILE = tm7.48.3.tar.gz
elc:
$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: TM-CFG,v 2.0 1996/03/11 14:54:25 morioka Exp $
+;;; $Id: TM-CFG,v 3.0 1996/03/27 19:38:12 morioka Exp $
;;;
(setq load-path (append
(require 'tl-misc)
+;;; @ Please specify optional package directory if you use them.
+;;;
+
;; Please specify VM path.
(add-path "vm-5.95beta/" 'all-paths)
;; Please specify BBDB path.
(add-path "bbdb-1.50/" 'all-paths)
+
+;;; @ shell
+;;;
+
;; Please specify shell command path.
(setq SHELL "/bin/sh")
;; Please specify shell command option.
(setq SHELLOPTION "-c")
+
+;;; @ Please specify prefix of install directory.
+;;;
+
;; Please specify install path prefix.
-(setq PREFIX "~/")
-;;(setq PREFIX "/usr/local/")
+;;(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 "")
+
+;; Please specify tl prefix [optional]
+;;(setq TL_PREFIX "tl/")
+(setq TL_PREFIX
+ (if (string-match "XEmacs" emacs-version)
+ "tl/"
+ ""))
+
+;; Please specify MEL prefix [optional]
+(setq MEL_PREFIX "mel/")
+
+;; Please specify tm prefix [optional]
+(setq TM_PREFIX "tm/")
+
+;; lisp files of tm are installed into following directory tree:
+;;
+;; LISPDIR = PREFIX/DATA_PREFIX/LISP_PREFIX/
+;; LISPDIR/mime-setup.{el|elc}
+;; LISPDIR/TM_PACKAGE_PREFIX/TL_PREFIX/ --- tl lisp files
+;; LISPDIR/TM_PACKAGE_PREFIX/MEL_PREFIX/ --- MEL lisp files
+;; LISPDIR/TM_PACKAGE_PREFIX/TM_PREFIX/ --- tm lisp files
+;;
+;; For example, if PREFIX = "/usr/local/" and you use Emacs 19.30,
+;;
+;; LISPDIR = /usr/local/share/emacs/site-lisp/
+;; /usr/local/share/emacs/site-lisp/mime-setup.{el|elc}
+;; /usr/local/share/emacs/site-lisp/ --- tl lisp files
+;; /usr/local/share/emacs/site-lisp/mel/ --- MEL lisp files
+;; /usr/local/share/emacs/site-lisp/tm/ --- tm lisp files
+;;
+;; For example, if PREFIX = "~/" and you use XEmacs,
+;;
+;; LISPDIR = ~/share/xemacs/site-lisp/
+;; ~/share/xemacs/site-lisp/mime-setup.{el|elc}
+;; ~/share/xemacs/site-lisp/tl/ --- tl lisp files
+;; ~/share/xemacs/site-lisp/mel/ --- MEL lisp files
+;; ~/share/xemacs/site-lisp/tm/ --- tm lisp files
+
+
+;;; @ executables
+;;;
+
+;; Please specify binary path.
+(defvar BIN_DIR (expand-file-name "bin/" PREFIX))
+
+;; Please specify binary path. (for external method scripts)
+(setq METHOD_DIR BIN_DIR)
+
+
+\f
+
+;;; @ optional settings
+;;;
(setq EMACS_PREFIX
(cond ((boundp 'NEMACS) "nemacs/")
(setq SETUP_FILE_DIR LISPDIR)
-(setq TM_PREFIX "")
-
-(setq TM_LISPDIR (expand-file-name TM_PREFIX LISPDIR))
+(setq TM_LISPDIR (expand-file-name TM_PACKAGE_PREFIX LISPDIR))
-(setq TL_DIR (expand-file-name "tl/" TM_LISPDIR))
-(setq MEL_DIR (expand-file-name "mel/" TM_LISPDIR))
-(setq TM_KERNEL_DIR (expand-file-name "tm/" TM_LISPDIR))
+(setq TL_DIR (expand-file-name TL_PREFIX TM_LISPDIR))
+(setq MEL_DIR (expand-file-name MEL_PREFIX TM_LISPDIR))
+(setq TM_KERNEL_DIR (expand-file-name TM_PREFIX TM_LISPDIR))
(setq TM_MHE_DIR TM_KERNEL_DIR)
(setq TM_GNUS_DIR TM_KERNEL_DIR)
(setq METHODS
'("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg" "tm-plain"
"tmdecode"))
-
-
-;; Please specify binary path.
-(defvar BIN_DIR (expand-file-name "bin/" PREFIX))
-
-;; Please specify binary path.
-(setq METHOD_DIR BIN_DIR)
@titlepage
@title{tm-gnus}
@author{MORIOKA Tomohiko}
-@code{$Id: tm-gnus_en.texi,v 5.1 1995/12/21 10:39:45 morioka Exp morioka $}
+@code{$Id: tm-gnus_en.texi,v 6.0 1996/03/27 23:04:30 morioka Exp morioka $}
@end titlepage
@node Top, Introduction, (tm_en.info)tm-MUA, (tm_en.info)tm-MUA
@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
@titlepage
@title{tm-gnus}
@author{¼é²¬ ÃÎɧ}
-@code{$Id: tm-gnus_ja.texi,v 4.1 1995/12/18 12:04:38 morioka Exp morioka $}
+@code{$Id: tm-gnus_ja.texi,v 6.0 1996/03/27 23:04:01 morioka Exp morioka $}
@end titlepage
@node Top, Introduction, (tm_ja.info)tm-MUA, (tm_ja.info)tm-MUA
@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
@titlepage
@title{tm-mh-e}
@author{MORIOKA Tomohiko}
-@code{$Id: tm-mh-e_en.texi,v 3.1 1995/12/21 10:40:49 morioka Exp morioka $}
+@code{$Id: tm-mh-e_en.texi,v 4.0 1996/03/27 23:05:17 morioka Exp morioka $}
@end titlepage
@node Top, Introduction, (tm_en.info)tm-MUA, (tm_en.info)tm-MUA
@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
@titlepage
@title{tm-mh-e}
@author{¼é²¬ ÃÎɧ}
-@code{$Id: tm-mh-e_ja.texi,v 2.0 1995/12/13 06:24:12 morioka Exp morioka $}
+@code{$Id: tm-mh-e_ja.texi,v 3.0 1996/03/27 23:06:07 morioka Exp morioka $}
@end titlepage
@node Top, Introduction, (tm_ja.info)tm-MUA, (tm_ja.info)tm-MUA
@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
@titlepage
@title tm Manual (English Version)
@author by MORIOKA Tomohiko
-@code{$Id: tm_en.texi,v 7.11 1996/02/28 14:33:50 morioka Exp morioka $}
+@code{$Id: tm_en.texi,v 7.12 1996/03/27 22:58:47 morioka Exp morioka $}
@end titlepage
@node Top, Introduction, (dir), (dir)
@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
@titlepage
@title{tm Manual¡ÊÆüËܸìÈÇ¡Ë}
@author{¼é²¬ ÃÎɧ Ãø}
-@code{$Id: tm_ja.texi,v 7.5 1995/12/23 09:41:52 morioka Exp morioka $}
+@code{$Id: tm_ja.texi,v 7.6 1996/03/27 22:59:32 morioka Exp morioka $}
@end titlepage
@node Top, Introduction, (dir), (dir)
@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' ¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ
+Thu Mar 28 08:44:31 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.49.1 was released.
+
+Wed Mar 27 19:27:04 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-gd3.el (tm-gnus/article-set-mode-line):
+ Function `rightful-boundary-short-string' was obsoleted;
+ use function `truncate-string'.
+
+Mon Mar 4 09:29:33 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * Makefile: makefile variables `FILES' was modified.
+
+\f
Mon Mar 4 08:20:48 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
* tm/gnus: Version 7.49 was released.
tm/gnus/*.el tm/gnus/ChangeLog tm/doc/tm-gnus*.texi
-TARFILE = tm-gnus7.49.tar
+TARFILE = tm-gnus7.49.1.tar
gnus:
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/05/23 (obsolete tm-ognus.el)
;;; Version:
-;;; $Id: tm-gd3.el,v 7.5 1995/11/21 02:49:25 morioka Exp $
+;;; $Id: tm-gd3.el,v 7.6 1996/03/27 19:27:04 morioka Exp $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;; You should have received a copy of the GNU General Public License
;;; along with This program. If not, write to the Free Software
;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
(require 'tm-ew-d)
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))) ? )
)))
;;;
(provide 'tm-gd3)
+
+;;; tm-gd3.el ends here
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: inst-tm,v 3.1 1996/03/11 14:50:53 morioka Exp $
+;;; $Id: inst-tm,v 3.1 1996/03/11 14:50:53 morioka Exp morioka $
;;;
(load-file "TM-CFG")
(goto-char (point-min))
(re-search-forward "^;;; Code:" nil t)
(setq buffer-read-only nil)
- (insert
- (format
- "
+ (if (member tl-path default-load-path)
+ (insert "
+
+\(require \'tl-misc)")
+ (insert
+ (format "
\(let ((load-path
(cons \"%s\"
load-path)))
(require \'tl-misc)
)
-\(add-path \"%s\")
-\(add-path \"%s\")
-\(add-path \"%s\")"
- tl-path tl-path mel-path tm-path))
+\(add-path \"%s\")" tl-path tl-path))
+ )
+ (or (member mel-path default-load-path)
+ (insert
+ (format "
+\(add-path \"%s\")" mel-path)))
+ (or (member tm-path default-load-path)
+ (insert
+ (format "
+\(add-path \"%s\")" tm-path)))
(write-file "mime-setup.el")
))
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: mime-setup.el,v 7.14 1996/02/14 09:15:36 morioka Exp $
+;;; $Id: mime-setup.el.in,v 7.16 1996/03/28 08:42:34 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
(add-hook 'mime/editor-mode-hook 'mime-setup-set-signature-key)
(setq gnus-signature-file nil)
(setq mail-signature nil)
+ (setq message-signature nil)
))
(add-hook 'news-inews-hook 'mime-editor/maybe-translate)
+;;; @ for message (September Gnus 0.58 or later)
+;;;
+
+(add-hook 'message-setup-hook 'mime/editor-mode)
+(add-hook 'message-send-hook 'mime-editor/maybe-translate)
+
+
;;; @ end
;;;
(run-hooks 'mime-setup-load-hook)
;;; mime-setup.el ends here
+;;;
+;;; Local Variables:
+;;; mode: emacs-lisp
;;;
;;; Author: KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Artur Pioro <artur@flugor.if.uj.edu.pl>
+;;; modified by Pekka Marjola <marjola@bilbo.ntc.nokia.com>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version: $Id: tm-bbdb.el,v 7.2 1996/03/14 13:41:48 morioka Exp $
+;;; Version: $Id: tm-bbdb.el,v 7.4 1996/03/26 09:17:37 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB
;;;
;;; This file is part of tm (Tools for MIME).
(if bbdb-use-pop-up
(tm-bbdb/pop-up-bbdb-buffer offer-to-create)
(let* ((from (rfc822/get-field-body "From"))
- (addr (car (cdr (mail-extract-address-components from)))))
+ (addr (if from
+ (car (cdr (mail-extract-address-components from))))))
(if (or (null from)
(null addr)
(string-match (bbdb-user-mail-names) addr))
projects / elisp / tm.git / commitdiff