+Tue Dec 10 14:24:23 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu: Version 7.37.1 was released.
+ * MU: Version 0.36 was released.
+ * tm: Version 7.96 was released.
+ * gnus-mime: Version 0.12.2 was released.
+ * tm-mh-e: Version 7.72 was released.
+ * tm-vm: Version 7.78 was released.
+ * tm-mail: Version 7.27 was released.
+
+ * tm-bbdb.el: Use `eval-when-compile' if bbdb-com is not found.
+
+Tue Dec 10 11:48:04 1996 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * tm-bbdb.el: Use `module-installed-p' instead of `eval-when'.
+
+ * tm-bbdb.el (bbdb-pop-up-elided-display): New macro; imported
+ from bbdb-1.51.
+ (bbdb-user-mail-names): Ditto. Can byte-compile without BBDB.
+
+Tue Dec 10 11:41:22 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-setup.el: Don't set up tm-rmail for XEmacs/mule.
+
+Tue Dec 10 08:29:42 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TM-ELS: Add tm-edit-tipgp.el.
+
+Tue Dec 10 06:28:34 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-edit.el (mime-editor::edit-again): folding for parameters of
+ Content-Type field.
+
+Tue Dec 10 01:02:12 1996 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * tm-bbdb.el (tm-bbdb/use-mail-extr): Doc strings was modified.
+ (tm-bbdb/delete-empty-window): More doc strings.
+
+Mon Dec 9 04:23:40 1996 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * tm-bbdb.el (tm-bbdb/use-mail-extr): Doc strings was added.
+ (tm-bbdb/auto-create-p): Ditto.
+ (tm-bbdb/delete-empty-window): New variable.
+ (tm-bbdb/pop-up-bbdb-buffer): Delete empty window if
+ `tm-bbdb/delete-empty-window' is non-nil.
+
+Sat Dec 7 09:17:01 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TM-MK (make-mime-setup): Generate variable
+ `mime-viewer/external-progs' related code.
+
+ * tm-play.el: Variable `mime-viewer/external-progs' was abolished
+ (Related coded were moved to mime-setup.el if it is required).
+
+Sat Dec 7 08:14:03 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TM-MK (update-xemacs-source): New function.
+
+Thu Dec 5 12:17:54 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-view.el (mime-viewer/following-required-fields-list): New
+ variable.
+ (mime-viewer/follow-content): Insert fields of mother-buffer
+ specified in variable `mime-viewer/following-required-fields-list'
+ if it is not found in preview-buffer.
+
+\f
Wed Dec 4 05:42:36 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* emu: Version 7.37 was released.
* gnus-mime: Version 0.12.1 was released.
* sinfo: Version 3.3 was released.
+ * TM-MK (directory=): New function.
+ (make-mime-setup): Use function `MEMBER' with function
+ `directory=' instead of function `member'.
+
Wed Dec 4 05:32:48 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* Makefile: Add bitmap-mule/.
#
-# $Id: Makefile,v 7.40 1996/12/04 05:42:36 morioka Exp morioka $
+# $Id: Makefile,v 7.42 1996/12/10 14:57:42 morioka Exp morioka $
#
-VERSION = 7.95
+VERSION = 7.96
SHELL = /bin/sh
MAKE = make
TM_MH_E_FILES = tm-mh-e/Makefile tm-mh-e/mk-tmh tm-mh-e/TMH-ELS \
tm-mh-e/*.el tm-mh-e/ChangeLog \
- tm-mh-e/*.ol tm-mh-e/*.texi tm-mh-e/*.info tm-mh-e/*.tex
+ tm-mh-e/*.sgml tm-mh-e/*.texi tm-mh-e/*.info
GNUS_MIME_FILES = gnus-mime/Makefile gnus-mime/*-path \
gnus-mime/Gnus-MIME-* gnus-mime/*.el \
MU_FILES = mu/MU-ELS mu/*.el mu/ChangeLog
TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/TL-ELS \
- tl/*.el tl/doc/*.ol tl/doc/*.tex tl/doc/*.texi tl/ChangeLog
+ tl/*.el tl/ChangeLog
BITMAP_FILES = bitmap-mule/BITMAP-* bitmap-mule/Makefile \
bitmap-mule/*.el bitmap-mule/*.bdf \
$(EMACS) $(FLAGS) -l TM-MK -f install-execs $(PREFIX) $(EXEC_PREFIX)
+update-xemacs:
+ $(EMACS) $(FLAGS) -l TM-MK -f update-xemacs-source
+
+
clean:
-$(RM) $(GOMI)
-cd doc; $(MAKE) clean
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: TM-ELS,v 7.4 1996/09/17 04:39:33 morioka Exp morioka $
+;;; $Id: TM-ELS,v 7.5 1996/12/10 08:29:42 morioka Exp $
;;;
(setq tm-modules-to-compile
'((ange-ftp tm-ftp)
(mailcrypt tm-pgp tm-edit-mc)
(bbdb tm-bbdb)
+ (tinypgpa tm-edit-tipgp)
))
(if (and (file-exists-p "tm-evs.el")
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: TM-MK,v 7.43 1996/11/27 11:48:53 morioka Exp morioka $
+;;; $Id: TM-MK,v 7.46 1996/12/07 09:17:01 morioka Exp morioka $
;;;
(defun config-tm ()
;; generate tm external-methods path setting
(or (string= METHOD_DIR exec-directory)
(insert
- (format "\n(defvar mime-viewer/external-progs %s)"
+ (format "\n
+(defvar mime-viewer/external-progs%s
+ \"*Directory containing tm external methods.\")
+
+(add-to-list 'exec-path mime-viewer/external-progs)
+
+(let ((paths (parse-colon-path (getenv \"PATH\"))))
+ (or (member mime-viewer/external-progs paths)
+ (setenv \"PATH\"
+ (mapconcat (function identity)
+ (append paths (list mime-viewer/external-progs))
+ path-separator))
+ ))
+"
(let ((dir (file-relative-name METHOD_DIR data-directory)))
(if (< (length dir) (length METHOD_DIR))
(concat "\n (expand-file-name \""
(if (< (length dir) (length METHOD_DIR))
(concat "\n (expand-file-name \"~/"
dir "\")")
- (concat "\"" METHOD_DIR "\"")
+ (concat " \"" METHOD_DIR "\"")
)))
))
)
(install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
)
+
+(defun update-xemacs-source ()
+ (setq LISPDIR (expand-file-name "../lisp" data-directory))
+ (load-file "TM-CFG")
+ (setq EMU_DIR TL_DIR)
+ (setq SETUP_FILE_DIR TM_KERNEL_DIR)
+ (load-file "../emu/EMU-ELS")
+ (load-file "../tl/TL-ELS")
+ (load-file "../mu/MU-ELS")
+ (load-file "../mel/MEL-ELS")
+ (load-file "TM-ELS")
+ (load-file "../tm-mh-e/TMH-ELS")
+ (load-file "../tm-mail/TMAIL-ELS")
+ (load-file "../tm-vm/TM-VM-ELS")
+
+ (copy-file "mime-setup.el.in" "mime-setup.el" t t)
+ (set-file-modes "mime-setup.el" (+ (* 6 64) (* 4 8) 4))
+ (compile-elisp-modules emu-modules "../emu")
+ (compile-elisp-modules tl-modules "../tl")
+ (compile-elisp-modules mu-modules-to-compile "../mu")
+ (compile-elisp-modules mel-modules "../mel")
+ (compile-elisp-modules tm-modules-to-compile ".")
+ (compile-elisp-modules tm-mh-e-modules "../tm-mh-e")
+ (compile-elisp-module 'mime-setup ".")
+ (require 'gnus)
+ (load "../gnus-mime/Gnus-MIME-ELS")
+ (compile-elisp-modules gnus-mime-modules-to-compile "../gnus-mime")
+ (compile-elisp-modules tm-mail-modules "../tm-mail")
+ (compile-elisp-modules tm-vm-modules-to-compile "../tm-vm")
+
+ (install-elisp-modules emu-modules "../emu" EMU_DIR)
+ (install-elisp-modules tl-modules "../tl" TL_DIR)
+ (install-elisp-modules mu-modules "../mu" MU_DIR)
+ (install-elisp-modules mel-modules "../mel" MEL_DIR)
+ (install-elisp-modules tm-modules "." TM_KERNEL_DIR)
+ (install-elisp-modules tm-mh-e-modules "../tm-mh-e" TM_MHE_DIR)
+ (install-elisp-modules gnus-mime-modules "../gnus-mime" Gnus_MIME_DIR)
+ (install-elisp-modules tm-mail-modules "../tm-mail" TM_MAIL_DIR)
+ (install-elisp-modules tm-vm-modules "../tm-vm" TM_VM_DIR)
+ (install-elisp-modules '(mime-setup) "." SETUP_FILE_DIR)
+
+ (setq METHOD_DIR (expand-file-name "../lib-src" data-directory))
+ (install-files METHODS METHOD_SRC_DIR METHOD_DIR nil t)
+
+ (install-file "sinfo.dtd" "../sinfo"
+ (expand-file-name "../etc/sgml" data-directory)
+ nil t)
+
+ (install-files '("tm-edit-en.sgml" "tm-edit-en.texi"
+ "tm-edit-ja.sgml" "tm-edit-ja.texi"
+ "tm-en.sgml" "tm-en.texi"
+ "tm-ja.sgml" "tm-ja.texi"
+ "tm-view-en.sgml" "tm-view-en.texi"
+ "tm-view-ja.sgml" "tm-view-ja.texi"
+ )
+ "doc"
+ (expand-file-name "../man/tm" data-directory)
+ nil t)
+ (install-files '("tm-edit-en.info" "tm-edit-ja.info"
+ "tm-en.info" "tm-ja.info"
+ "tm-view-en.info" "tm-view-ja.info"
+ )
+ "doc"
+ (expand-file-name "../info" data-directory)
+ nil t)
+ (install-files '("gnus-mime-en.sgml" "gnus-mime-en.texi"
+ "gnus-mime-ja.sgml" "gnus-mime-ja.texi"
+ )
+ "../gnus-mime"
+ (expand-file-name "../man/tm" data-directory)
+ nil t)
+ (install-files '("gnus-mime-en.info" "gnus-mime-ja.info")
+ "../gnus-mime"
+ (expand-file-name "../info" data-directory)
+ nil t)
+ (install-files '("tm-mh-e-en.sgml" "tm-mh-e-en.texi"
+ "tm-mh-e-ja.sgml" "tm-mh-e-ja.texi"
+ )
+ "../tm-mh-e"
+ (expand-file-name "../man/tm" data-directory)
+ nil t)
+ (install-files '("tm-mh-e-en.info" "tm-mh-e-ja.info")
+ "../tm-mh-e"
+ (expand-file-name "../info" data-directory)
+ nil t)
+ (install-files '("tm-vm_en.texi")
+ "../tm-vm"
+ (expand-file-name "../man/tm" data-directory)
+ nil t)
+ (install-files '("tm-vm_en.info")
+ "../tm-vm"
+ (expand-file-name "../info" data-directory)
+ nil t)
+ )
+
;;; TM-MK ends here
;; Author: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
;; Artur Pioro <artur@flugor.if.uj.edu.pl>
;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Version: $Id: tm-bbdb.el,v 7.22 1996/11/30 18:40:09 shuhei-k Exp $
+;; Version: $Id: tm-bbdb.el,v 7.27 1996/12/10 14:24:23 morioka Exp $
;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB
;; This file is part of tm (Tools for MIME).
(require 'std11)
(require 'tm-ew-d)
(require 'tm-view)
-(require 'bbdb-com) ; (require 'bbdb) implicitly
+(if (module-installed-p 'bbdb-com)
+ (require 'bbdb-com)
+ (eval-when-compile
+ ;; imported from bbdb-1.51
+ (defmacro bbdb-pop-up-elided-display ()
+ '(if (boundp 'bbdb-pop-up-elided-display)
+ bbdb-pop-up-elided-display
+ bbdb-elided-display))
+ (defmacro bbdb-user-mail-names ()
+ "Returns a regexp matching the address of the logged-in user"
+ '(or bbdb-user-mail-names
+ (setq bbdb-user-mail-names
+ (concat "\\b" (regexp-quote (user-login-name)) "\\b"))))
+ ))
-;;; @ mail-extr
+
+;;; @ User Variables
;;;
-(defvar tm-bbdb/use-mail-extr t)
+(defvar tm-bbdb/use-mail-extr t
+ "*If non-nil, `mail-extract-address-components' is used.
+Otherwise `tm-bbdb/extract-address-components' overrides it.")
+
+(defvar tm-bbdb/auto-create-p nil
+ "*If t, create new BBDB records automatically.
+If function, then it is called with no arguments to decide whether an
+entry should be automatically creaded.
+
+tm-bbdb uses this variable instead of `bbdb/mail-auto-create-p' or
+`bbdb/news-auto-create-p' unless other tm-MUA overrides it.")
+
+(defvar tm-bbdb/delete-empty-window nil
+ "*If non-nil, delete empty BBDB window.
+All bbdb-MUAs but bbdb-gnus display BBDB window even if it is empty.
+If you prefer behavior of bbdb-gnus, set this variable to t.
+
+For framepop users: If empty, `framepop-banish' is used instead.")
+
+;;; @ mail-extr
+;;;
(defun tm-bbdb/extract-address-components (str)
(let* ((ret (std11-extract-address-components str))
;;; @ BBDB functions for mime/viewer-mode
;;;
-(defvar tm-bbdb/auto-create-p nil)
-
(defun tm-bbdb/update-record (&optional offer-to-create)
"Return the record corresponding to the current MIME previewing message.
Creating or modifying it as necessary. A record will be created if
(if record
(bbdb-display-records (list record))
(framepop-banish))
- (bbdb-display-records (if record (list record) nil)))
+ (bbdb-display-records (if record (list record) nil))
+ (if (and (null record)
+ tm-bbdb/delete-empty-window)
+ (delete-windows-on (get-buffer "*BBDB*"))))
(set-buffer b)
record))))
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1994/08/21 renamed from mime.el
-;; Version: $Revision: 7.95 $
+;; Version: $Revision: 7.96 $
;; 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.95 1996/12/04 04:43:01 morioka Exp $")
+ "$Id: tm-edit.el,v 7.96 1996/12/10 06:28:34 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
(t
(let* (charset
(pstr
- (mapconcat (function
- (lambda (attr)
- (if (string-equal (car attr)
- "charset")
- (progn
- (setq charset (cdr attr))
- "")
- (concat ";" (car attr)
- "=" (cdr attr))
- )
- ))
- params ""))
+ (let ((bytes (+ 14 (length ctype))))
+ (mapconcat (function
+ (lambda (attr)
+ (if (string-equal (car attr) "charset")
+ (progn
+ (setq charset (cdr attr))
+ "")
+ (let* ((str
+ (concat (car attr)
+ "=" (cdr attr))
+ )
+ (bs (length str))
+ )
+ (setq bytes (+ bytes bs 2))
+ (if (< bytes 76)
+ (concat "; " str)
+ (setq bytes (+ bs 1))
+ (concat ";\n " str)
+ )
+ ))))
+ params "")))
encoding
encoded)
(save-excursion
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/9/26 (separated from tm-view.el)
-;; Version: $Id: tm-play.el,v 7.32 1996/10/23 02:49:37 morioka Exp $
+;; Version: $Id: tm-play.el,v 7.33 1996/12/07 08:26:26 morioka Exp $
;; Keywords: mail, news, MIME, multimedia
;; This file is part of tm (Tools for MIME).
(require 'tm-view)
-(defvar mime-viewer/external-progs "/usr/local/share/tm"
- "*Directory containing tm external methods.")
-
-(add-to-list 'exec-path mime-viewer/external-progs)
-
-(let ((paths (parse-colon-path (getenv "PATH"))))
- (or (member mime-viewer/external-progs paths)
- (setenv "PATH"
- (mapconcat (function identity)
- (append paths (list mime-viewer/external-progs))
- path-separator))
- ))
-
;;; @ content decoder
;;;
;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: tm-setup.el,v 7.7 1996/08/31 14:39:06 morioka Exp $
+;; Version: $Id: tm-setup.el,v 7.8 1996/12/10 11:41:22 morioka Exp $
;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
;; This file is part of tm (Tools for MIME).
;;; @ for RMAIL
;;;
-(call-after-loaded 'rmail
- (function
- (lambda ()
- (require 'tm-rmail)
- ))
- 'rmail-mode-hook)
+(or running-xemacs-with-mule
+ (call-after-loaded 'rmail
+ (function
+ (lambda ()
+ (require 'tm-rmail)
+ ))
+ 'rmail-mode-hook)
+ )
;;; @ for mh-e
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;; Version: $Revision: 7.77 $
+;; Version: $Revision: 7.78 $
;; 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.77 1996/09/23 13:15:09 morioka Exp $")
+ "$Id: tm-view.el,v 7.78 1996/12/05 12:17:54 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
(defvar mime-viewer/following-method-alist nil)
+(defvar mime-viewer/following-required-fields-list
+ '("From"))
+
;;; @@ X-Face
;;;
rcnum (cdr rcnum))
)
)
+ (let ((rest mime-viewer/following-required-fields-list))
+ (while rest
+ (let ((field-name (car rest)))
+ (or (std11-field-body field-name)
+ (insert
+ (format
+ (concat field-name
+ ": "
+ (save-excursion
+ (set-buffer the-buf)
+ (set-buffer mime::preview/mother-buffer)
+ (set-buffer mime::preview/article-buffer)
+ (std11-field-body field-name)
+ )
+ "\n")))
+ ))
+ (setq rest (cdr rest))
+ ))
(mime/decode-message-header)
)
(funcall (cdr (assq mode mime-viewer/following-method-alist))
projects / elisp / tm.git / commitdiff