+Tue Sep 3 15:32:35 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.61.1 was released.
+ * MU: Version 0.27 was released.
+ * tm: Version 7.81 was released.
+ * tm/mh-e: Version 7.68.1 was released.
+ * tm/gnus: gnus-mime Version 0.6.1 was released.
+
+ * Makefile: add MU package.
+
+Mon Sep 2 16:42:24 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-edit.el (mime-editor/make-encrypt-recipient-header): Use
+ function `std11-field-bodies' instead of
+ `rfc822/get-field-bodies'.
+ (mime-editor/inserted-message-filter): Use function
+ `std11-field-end' instead of `rfc822/field-end'.
+
+Mon Sep 2 16:30:37 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-bbdb.el: Use std11.el instead of tl-822.el.
+
+ * tm-bbdb.el (tm-bbdb/extract-address-components): Use function
+ `std11-extract-address-components' instead of
+ `rfc822/extract-address-components'.
+
+ * inst-tm (compile-tm): compile MU modules.
+ (install-tm): install MU modules.
+
+ * TM-CFG (LISPDIR): Use `running-emacs-19_29-or-later' instead of
+ `running-emacs-19'.
+
+Mon Sep 2 15:23:44 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TM-CFG: fixed problem about home relative paths.
+
+ * TM-CFG (TM_MHE_RELATIVE_DIR, TM_GNUS_RELATIVE_DIR): fixed.
+
+Mon Sep 2 15:08:00 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TM-CFG: add "../mu" to load-path.
+
+ * TM-CFG: fixed problem about TM_KERNEL_RELATIVE_DIR.
+
+Mon Sep 2 14:55:51 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TM-CFG: fixed problem about *_RELATIVE_DIR when `LISPDIR' is a
+ member of `default-load-path'.
+
+ * inst-tm (make-mime-setup): New argument `tl-absolute-path'.
+ (compile-tm): Use variable `TL_DIR' as argument of function
+ `make-mime-setup'.
+
+Mon Sep 2 14:39:36 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * inst-tm (compile-tm): Use variable `TL_RELATIVE_DIR',
+ `MU_RELATIVE_DIR', `MEL_RELATIVE_DIR' and `TM_KERNEL_RELATIVE_DIR'
+ as argument of function `make-mime-setup'.
+
+ * TM-CFG (TL_RELATIVE_DIR, MU_RELATIVE_DIR, MEL_RELATIVE_DIR,
+ TM_KERNEL_RELATIVE_DIR, TM_MHE_DIR, TM_GNUS_DIR): New variable.
+
+Mon Sep 2 14:07:47 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * inst-tm (make-mime-setup): New argument `mu-path'; generate MU
+ setting.
+ (compile-tm): Use variable `MU_DIR'; generate MU setting.
+
+ * TM-CFG (MU_PREFIX, MU_DIR): New variable.
+
+ * inst-tm (install-tm): Use function `install-elisp-modules' for
+ mime-setup.el.
+
+Mon Sep 2 13:25:42 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * inst-tm: Function `install-el-and-elc-files' was abolished.
+
+ * inst-tm (install-tm): Use function `install-elisp-modules' for
+ tl.
+
+\f
Sat Aug 31 14:39:06 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.61 was released.
#
-# $Id: Makefile,v 7.25 1996/08/23 07:41:35 morioka Exp morioka $
+# $Id: Makefile,v 7.26 1996/09/03 15:32:35 morioka Exp $
#
SHELL = /bin/sh
MEL_FILES = mel/*.el mel/Makefile mel/mk-mel mel/MEL-ELS mel/ChangeLog
+MU_FILES = mu/*.el mu/MU-ELS mu/ChangeLog
+
TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/TL-ELS \
tl/*.el tl/*.bdf \
- tl/doc/*.ol tl/doc/*.tex tl/ChangeLog
+ tl/doc/*.ol tl/doc/*.tex tl/doc/*.texi tl/ChangeLog
-FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
+FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(MU_FILES) $(TL_FILES)
-TARFILE = tm7.80.tar.gz
+TARFILE = tm7.81.tar.gz
elc:
$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: TM-CFG,v 7.2 1996/08/16 03:55:42 morioka Exp morioka $
+;;; $Id: TM-CFG,v 7.10 1996/09/02 15:25:45 morioka Exp morioka $
;;;
(defvar default-load-path load-path)
(lambda (path)
(expand-file-name path (getenv "PWD"))
))
- '("." "../tl" "../mel" "mh-e")
+ '("." "../tl" "../mu" "../mel" "mh-e")
)
load-path))
"tl"
""))
+;; Please specify MU prefix [optional]
+(setq MU_PREFIX "mu")
+
;; Please specify MEL prefix [optional]
(setq MEL_PREFIX "mel")
;; LISPDIR = PREFIX/DATA_PREFIX/LISP_PREFIX/
;; LISPDIR/mime-setup.{el|elc}
;; LISPDIR/TM_PACKAGE_PREFIX/TL_PREFIX/ --- tl lisp files
+;; LISPDIR/TM_PACKAGE_PREFIX/MU_PREFIX/ --- MU lisp files
;; LISPDIR/TM_PACKAGE_PREFIX/MEL_PREFIX/ --- MEL lisp files
;; LISPDIR/TM_PACKAGE_PREFIX/TM_PREFIX/ --- tm lisp files
;;
;; 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/mu/ --- MU lisp files
;; /usr/local/share/emacs/site-lisp/mel/ --- MEL lisp files
;; /usr/local/share/emacs/site-lisp/tm/ --- tm lisp files
;;
;; 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/mu/ --- MU lisp files
;; ~/share/xemacs/site-lisp/mel/ --- MEL lisp files
;; ~/share/xemacs/site-lisp/tm/ --- tm lisp files
(setq rest (cdr rest))
)))
(expand-file-name (concat
- (if running-emacs-19
+ (if running-emacs-19_29-or-later
"share/"
"lib/")
(cond ((boundp 'NEMACS) "nemacs/")
(setq TM_LISPDIR (expand-file-name TM_PACKAGE_PREFIX LISPDIR))
(setq TL_DIR (expand-file-name TL_PREFIX TM_LISPDIR))
+(setq MU_DIR (expand-file-name MU_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)
+(cond ((member LISPDIR default-load-path)
+ (if (string-equal TM_PACKAGE_PREFIX "")
+ (setq TL_RELATIVE_DIR TL_PREFIX
+ MU_RELATIVE_DIR MU_PREFIX
+ MEL_RELATIVE_DIR MEL_PREFIX
+ TM_KERNEL_RELATIVE_DIR TM_PREFIX
+ )
+ (setq TL_RELATIVE_DIR
+ (concat (file-name-as-directory TM_PACKAGE_PREFIX) TL_PREFIX))
+ (setq MU_RELATIVE_DIR
+ (concat (file-name-as-directory TM_PACKAGE_PREFIX) MU_PREFIX))
+ (setq MEL_RELATIVE_DIR
+ (concat (file-name-as-directory TM_PACKAGE_PREFIX) MEL_PREFIX))
+ (setq TM_KERNEL_RELATIVE_DIR
+ (concat (file-name-as-directory TM_PACKAGE_PREFIX) TM_PREFIX))
+ ))
+ ((string-match (concat "^" (regexp-quote (expand-file-name "~/")))
+ LISPDIR)
+ (setq TL_RELATIVE_DIR (concat "~/" (file-relative-name TL_DIR "~/")))
+ (setq MU_RELATIVE_DIR (concat "~/" (file-relative-name MU_DIR "~/")))
+ (setq MEL_RELATIVE_DIR (concat "~/" (file-relative-name MEL_DIR "~/")))
+ (setq TM_KERNEL_RELATIVE_DIR
+ (concat "~/" (file-relative-name TM_KERNEL_DIR "~/")))
+ )
+ (t
+ (setq TL_RELATIVE_DIR TL_DIR)
+ (setq MU_RELATIVE_DIR MU_DIR)
+ (setq MEL_RELATIVE_DIR MEL_DIR)
+ (setq TM_KERNEL_RELATIVE_DIR TM_KERNEL_DIR)
+ ))
+(setq TM_MHE_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
+(setq TM_GNUS_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
+
(setq TM_GNUS_INSTALL_FORMAT
"cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
(setq TM_GNUS_COMPILE ".gnus-compile")
+Tue Sep 3 15:30:22 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: gnus-mime Version 0.6.1 was released.
+
+ * mk-tgnus: gnus-msg-mime.el was abolished.
+
+Mon Sep 2 13:42:18 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mk-tgnus: add "../../mu/" to load-path.
+
+ * mk-tgnus: Constant `el-file-mode' was abolished. Function
+ `install-el', `install-el-files', `install-elc' and
+ `install-elc-files' were abolished.
+
+ * mk-tgnus (install-tm-gnus): Use function `install-files'.
+
+ * gnus-sum-mime.el (gnus-set-summary-default-charset): check
+ `gnus-summary-buffer' is active or not. (cf. [tm-en:735])
+
+\f
Fri Aug 23 07:32:40 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/gnus: gnus-mime Version 0.6 was released.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1996/8/6
;; Version:
-;; $Id: gnus-sum-mime.el,v 0.3 1996/08/12 09:04:14 morioka Exp $
+;; $Id: gnus-sum-mime.el,v 0.4 1996/09/02 10:03:58 morioka Exp $
;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;; This file is not part of GNU Emacs yet.
;; General Public License for more details.
;; 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.
+;; along with this program; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
;;; Code:
(defun gnus-set-summary-default-charset ()
(let ((charset
- (save-excursion
- (set-buffer gnus-summary-buffer)
- (let ((rest gnus-newsgroup-default-charset-alist)
- cell)
- (catch 'tag
- (while (setq cell (car rest))
- (if (string-match (car cell) gnus-newsgroup-name)
- (throw 'tag
- (progn
- (make-local-variable 'default-mime-charset)
- (setq default-mime-charset (cdr cell))
- )))
- (setq rest (cdr rest))
- )))
+ (if (buffer-live-p gnus-summary-buffer)
+ (save-excursion
+ (set-buffer gnus-summary-buffer)
+ (let ((rest gnus-newsgroup-default-charset-alist)
+ cell)
+ (catch 'tag
+ (while (setq cell (car rest))
+ (if (string-match (car cell) gnus-newsgroup-name)
+ (throw 'tag
+ (progn
+ (make-local-variable 'default-mime-charset)
+ (setq default-mime-charset (cdr cell))
+ )))
+ (setq rest (cdr rest))
+ )))
+ default-mime-charset)
default-mime-charset)))
(goto-char (point-min))
(while (< (point)(point-max))
(progn
(end-of-line)
(point))
- default-mime-charset)
+ charset)
(forward-char)
)))
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: mk-tgnus,v 7.1 1996/08/08 15:51:57 morioka Exp $
+;;; $Id: mk-tgnus,v 7.5 1996/09/03 15:30:22 morioka Exp $
;;;
(setq load-path
(lambda (path)
(expand-file-name path (getenv "PWD"))
))
- '("." ".." "../../tl/" "../../mel/"))
+ '("." ".." "../../tl/" "../../mu/" "../../mel/"))
load-path))
(require 'emu)
+(require 'install)
(defun compile-tm-gnus ()
(load "gnus.el")
(byte-compile-file "gnus-sum-mime.el")
(byte-compile-file "gnus-art-mime.el")
(byte-compile-file "message-mime.el")
- (byte-compile-file "gnus-msg-mime.el")
+ ;;(byte-compile-file "gnus-msg-mime.el")
)
((string-match "GNUS 4" gnus-version)
(require 'tm-gnus)
;;(byte-compile-file "tm-gnus.el")
)
-(defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
-
-(defun install-el (path file)
- (let ((full-path (expand-file-name file path)))
- (if (file-exists-p full-path)
- (set-file-modes full-path el-file-mode)
- )
- (copy-file file full-path t t)
- (princ (format "%s -> %s\n" file path))
- ))
-
-(defun install-el-files (path &rest files)
- (mapcar (function (lambda (file)
- (if (file-exists-p file)
- (install-el path file)
- )))
- files))
-
-(defun install-elc (path file)
- (let ((full-path (expand-file-name file path)))
- (copy-file file full-path t t)
- (delete-file file)
- (princ (format "%s -> %s\n" file path))
- ))
-
-(defun install-elc-files (path &rest files)
- (mapcar (function (lambda (file)
- (if (file-exists-p file)
- (install-elc path file)
- )))
- files))
-
(defun install-tm-gnus ()
(let ((path (car command-line-args-left)))
(princ (format "%s\n" emacs-version))
(make-directory path t)
)
(cond (running-emacs-18
- (install-el-files path
- "tm-gnus.el"
- "tm-gnus3.el" "tm-gnus4.el"
- "tm-gd3.el")
- (install-elc-files path
- ;;"tm-gnus.elc"
- "tm-gnus3.elc" "tm-gnus4.elc")
+ (install-files '("tm-gnus.el"
+ "tm-gnus3.el" "tm-gnus4.el"
+ "tm-gd3.el")
+ "./" path nil 'overwrite)
+ (install-files '(;;"tm-gnus.elc"
+ "tm-gnus3.elc" "tm-gnus4.elc")
+ "./" path 'move)
)
((or (and running-emacs-19 (<= emacs-minor-version 29))
(and running-xemacs-19 (<= emacs-minor-version 13)))
- (install-el-files path
- "tm-gnus.el" "tm-gnus4.el" "tm-gd3.el"
- "gnus-mime.el" "gnus-charset.el"
- "gnus-sum-mime.el" "gnus-art-mime.el")
- (install-elc-files path
- ;;"tm-gnus.elc"
- "tm-gnus4.elc"
- "gnus-mime.elc" "gnus-charset.elc"
- "gnus-sum-mime.elc" "gnus-art-mime.elc")
+ (install-files '("tm-gnus.el" "tm-gnus4.el" "tm-gd3.el"
+ "gnus-mime.el" "gnus-charset.el"
+ "gnus-sum-mime.el" "gnus-art-mime.el")
+ "./" path nil 'overwrite)
+ (install-files '(;;"tm-gnus.elc"
+ "tm-gnus4.elc"
+ "gnus-mime.elc" "gnus-charset.elc"
+ "gnus-sum-mime.elc" "gnus-art-mime.elc")
+ "./" path 'move)
)
(t
- (install-el-files path
- "gnus-mime.el" "gnus-charset.el"
- "gnus-sum-mime.el" "gnus-art-mime.el"
- "message-mime.el" "gnus-msg-mime.el")
- (install-elc-files path
- "gnus-mime.elc" "gnus-charset.elc"
- "gnus-sum-mime.elc" "gnus-art-mime.elc"
- "message-mime.elc" "gnus-msg-mime.elc")
+ (install-files '("gnus-mime.el" "gnus-charset.el"
+ "gnus-sum-mime.el" "gnus-art-mime.el"
+ "message-mime.el"
+ ;;"gnus-msg-mime.el"
+ )
+ "./" path nil 'overwrite)
+ (install-files '("gnus-mime.elc" "gnus-charset.elc"
+ "gnus-sum-mime.elc" "gnus-art-mime.elc"
+ "message-mime.elc"
+ ;;"gnus-msg-mime.elc"
+ )
+ "./" path 'move)
))
(setq command-line-args-left (cdr command-line-args-left))
))
+
+;;; mk-tgnus ends here
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: inst-tm,v 7.23 1996/08/22 14:28:43 morioka Exp morioka $
+;;; $Id: inst-tm,v 7.30 1996/09/02 15:33:00 morioka Exp $
;;;
(load-file "TM-CFG")
(load-file "../tl/TL-ELS")
+(load-file "../mu/MU-ELS")
(load-file "../mel/MEL-ELS")
(load-file "TM-ELS")
(load-file "mh-e/TMH-ELS")
-(defun make-mime-setup (tl-path mel-path tm-path)
+(defun make-mime-setup (tl-absolute-path tl-path mu-path mel-path tm-path)
(let ((buf (find-file "mime-setup.el.in")))
(goto-char (point-min))
(re-search-forward "^;;; Code:" nil t)
(setq buffer-read-only nil)
- (if (member tl-path default-load-path)
- (insert "
-\(require \'tl-misc)")
+ ;; generate tl setting
+ (if (member tl-absolute-path default-load-path)
+ (insert "\n(require \'tl-misc)")
(insert
(format "
load-path)))
(require \'tl-misc)
)
-\(add-path \"%s\")" tl-path tl-path))
+\(add-path \"%s\")" tl-absolute-path tl-path))
)
+
+ ;; generate MU load-path setting
+ (or (member mu-path default-load-path)
+ (insert (format "\n(add-path \"%s\")" mu-path)))
+
+ ;; generate MEL load-path setting
(or (member mel-path default-load-path)
- (insert
- (format "
-\(add-path \"%s\")" mel-path)))
+ (insert (format "\n(add-path \"%s\")" mel-path)))
+
+ ;; generate tm load-path setting
(or (member tm-path default-load-path)
- (insert
- (format "
-\(add-path \"%s\")" tm-path)))
- (insert (format "
-(defvar mime-viewer/external-progs \"%s\")" METHOD_DIR))
+ (insert (format "\n(add-path \"%s\")" tm-path)))
+
+ ;; generate tm external-methods path setting
+ (insert
+ (format "\n(defvar mime-viewer/external-progs \"%s\")" METHOD_DIR))
(write-file "mime-setup.el")
))
(require 'tm-edit)
(load "rmailsum")
(require 'tm-mh-e)
- (make-mime-setup TL_DIR MEL_DIR TM_KERNEL_DIR)
+ (make-mime-setup TL_DIR TL_RELATIVE_DIR MU_RELATIVE_DIR
+ MEL_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
(compile-elisp-modules tl-modules "../tl/")
+ (compile-elisp-modules mu-modules "../mu/")
(compile-elisp-modules mel-modules "../mel/")
(compile-elisp-modules tm-modules-to-compile ".")
(compile-elisp-modules tm-mh-e-modules "mh-e/")
(write-file TM_GNUS_COMPILE)
))
-(defun install-el-and-elc-files (src dest el-files elc-files)
- (install-files el-files src dest nil t)
- (install-files elc-files src dest 'move)
- )
-
(defun install-tm ()
(princ (format "%s\n" emacs-version))
(print TL_DIR)
- (install-el-and-elc-files "../tl/" TL_DIR tl-el-files tl-elc-files)
+ (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 "mh-e/" TM_MHE_DIR)
(install-tm-gnus)
- (install-el-and-elc-files "./" SETUP_FILE_DIR
- '("mime-setup.el") '("mime-setup.elc"))
+ (install-elisp-modules '(mime-setup) "./" SETUP_FILE_DIR)
)
(defun install-execs ()
+Tue Sep 3 15:23:15 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/mh-e: Version 7.68.1 was released.
+
+ * mk-tmh: add "../../mu" to load-path.
+
+\f
Sat Aug 31 15:15:12 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/mh-e: Version 7.68 was released.
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: mk-tmh,v 6.1 1996/08/22 14:44:28 morioka Exp $
+;;; $Id: mk-tmh,v 7.0 1996/09/03 15:23:15 morioka Exp $
;;;
(setq load-path (nconc
(lambda (path)
(expand-file-name path (getenv "PWD"))
))
- '("." ".." "../../tl/" "../../mel/")
+ '("." ".." "../../tl" "../../mu" "../../mel")
)
load-path))
-;;;
;;; tm-mh-e.el --- tm-mh-e functions for composing messages
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
-;;; Copyright (C) 1995,1996 OKABE Yasuo
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1996/2/29 (separated from tm-mh-e.el)
-;;; Version:
-;;; $Id: tmh-comp.el,v 7.5 1996/07/31 03:07:43 morioka Exp $
-;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
-;;;
-;;; This file is part of tm (Tools for MIME).
-;;;
-;;; This program is free software; you can redistribute it and/or
-;;; modify it under the terms of the GNU General Public License as
-;;; published by the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program is distributed in the hope that it will be useful,
-;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;;; General Public License for more details.
-;;;
-;;; 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.
-;;;
+
+;; Copyright (C) 1993,1994,1995,1996 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
+;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Created: 1996/2/29 (separated from tm-mh-e.el)
+;; Version:
+;; $Id: tmh-comp.el,v 7.6 1996/09/03 15:27:18 morioka Exp $
+;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
+
+;; This file is part of tm (Tools for MIME).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with This program; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
;;; Code:
(require 'mh-comp)
;; Author: KOBAYASHI Shuhei <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.13 1996/08/30 17:09:46 morioka Exp $
+;; Version: $Id: tm-bbdb.el,v 7.15 1996/09/02 16:30:37 morioka Exp $
;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB
;; This file is part of tm (Tools for MIME).
(require 'bbdb)
(require 'bbdb-com)
-(require 'tl-822)
+(require 'std11)
(require 'tm-ew-d)
(require 'tm-view)
(defvar tm-bbdb/use-mail-extr t)
(defun tm-bbdb/extract-address-components (str)
- (let* ((ret (rfc822/extract-address-components str))
+ (let* ((ret (std11-extract-address-components str))
(phrase (car ret))
(address (car (cdr ret)))
(methods tm-bbdb/canonicalize-full-name-methods))
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1994/08/21 renamed from mime.el
-;; Version: $Revision: 7.80 $
+;; Version: $Revision: 7.81 $
;; 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.80 1996/08/30 15:16:52 morioka Exp $")
+ "$Id: tm-edit.el,v 7.81 1996/09/02 16:42:24 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
(defun mime-editor/make-encrypt-recipient-header ()
(let* ((names mime-editor/encrypt-recipient-fields-list)
(values
- (rfc822/get-field-bodies (cons "From" names)
- nil mail-header-separator))
+ (std11-field-bodies (cons "From" names)
+ nil mail-header-separator))
(from (prog1
(car values)
(setq values (cdr values))))
(while (and (re-search-forward
mime-editor/yank-ignored-field-regexp nil t)
(setq beg (match-beginning 0))
- (setq end (1+ (rfc822/field-end)))
+ (setq end (1+ (std11-field-end)))
)
(delete-region beg end)
)
projects / elisp / tm.git / commitdiff