From: morioka <morioka>
Date: Mon, 9 Mar 1998 19:42:47 +0000 (+0000)
Subject: tm 7.74.
X-Git-Tag: tm7_74~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c4f426c5c7ef1a007023cb42e70440e2f94c10ab;p=elisp%2Ftm.git

tm 7.74.
---

diff --git a/ChangeLog b/ChangeLog
index 7c093c4..d33bfa2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+Wed Jul 24 10:33:16 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tm: Version 7.74 was released.
+
+Wed Jul 24 10:27:07 1996  Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
+
+	* tm-edit.el (mime-editor/encrypt-pgp-elkins): fixed to call
+ 	`rfc822/get-field-body' with `mail-header-separator'.
+ 	(cf. [tm-ja:1996])
+
+
 Wed Jul 24 10:08:38 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl: Version 7.43.1 was released.
diff --git a/Makefile b/Makefile
index 16cc42e..0c3016c 100644
--- a/Makefile
+++ b/Makefile
@@ -48,7 +48,7 @@ TL_FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
 
 FILES	= $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
 
-TARFILE = tm7.73.tar.gz
+TARFILE = tm7.74.tar.gz
 
 elc:
 	$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
diff --git a/tm-edit.el b/tm-edit.el
index 2852cb7..278853d 100644
--- a/tm-edit.el
+++ b/tm-edit.el
@@ -8,7 +8,7 @@
 ;;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.73 $
+;;; Version: $Revision: 7.74 $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -122,7 +122,7 @@
 ;;;
 
 (defconst mime-editor/RCS-ID
-  "$Id: tm-edit.el,v 7.73 1996/07/22 19:29:42 morioka Exp $")
+  "$Id: tm-edit.el,v 7.74 1996/07/24 10:27:07 morioka Exp $")
 
 (defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
 
@@ -1687,9 +1687,9 @@ Content-Transfer-Encoding: 7bit
 (defun mime-editor/encrypt-pgp-elkins (beg end boundary)
   (save-excursion
     (save-restriction
-      (let ((from (rfc822/get-field-body "From"))
-	    (to (rfc822/get-field-body "To"))
-	    (cc (rfc822/get-field-body "cc"))
+      (let ((from (rfc822/get-field-body "From" mail-header-separator))
+	    (to (rfc822/get-field-body "To" mail-header-separator))
+	    (cc (rfc822/get-field-body "cc" mail-header-separator))
 	    recipients)
 	(narrow-to-region beg end)
 	(let* ((ret