tm 7.74.

[elisp/tm.git] / tm-edit.el

diff --git a/tm-edit.el b/tm-edit.el
index 2852cb7..278853d 100644 (file)
--- 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