+Mon Aug 12 11:02:46 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm: Version 7.78 was released.
+ * tm/gnus: gnus-mime Version 0.4 was released.
+
+ * README.en: modified about bug report.
+
+Sun Aug 11 13:57:11 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-edit.el (mime-editor/encrypt-pgp-kazu): Use function
+ `mime-editor/make-encrypt-recipient-header'.
+
+Sat Aug 10 12:04:21 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-setup.el.in: setting for variable
+ `message-forward-start-separator' and
+ `message-forward-end-separator' was moved to message-mime.el.
+
+Sat Aug 10 02:35:23 1996 John S Cooper <John.Cooper@Eng.Sun.COM>
+
+ * tm-vm.el: fixed problem when variable `vm-frame-per-composition'
+ is nil. (cf. [bug-tm-en:675])
+
+\f
Fri Aug 9 12:16:23 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * tm: Version 7.77
+ * tm: Version 7.77 was released.
* tm/gnus: gnus-mime Version 0.3 was released.
* tm-edit.el (mime-editor/encrypt-recipient-fields-list): New
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.77.tar.gz
+TARFILE = tm7.78.tar.gz
elc:
$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
[README for tm (English Version)]
by MORIOKA Tomohiko <morioka@jaist.ac.jp>
and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-$Id: README.en,v 7.21 1996/05/27 15:14:29 morioka Exp $
+$Id: README.en,v 7.22 1996/08/12 11:02:46 morioka Exp $
1 What's tm?
8 Bug report
If you write bug-reports and/or propositions for improvement, please
-post them to following news groups:
-
- fj.editor.emacs (Japanese or English)
- fj.editor.mule (Japanese or English; if you use Mule)
- gnu.emacs.help (English)
-
- fj.news.reader.gnus (Japanese or English; about GNUS and Gnus)
- gnu.emacs.gnus (English; about GNUS and Gnus)
-
- gnu.emacs.vm.info (English; about tm-vm)
-
-or send to tm ML:
+send to tm ML:
bug-tm-en@chamonix.jaist.ac.jp (English)
bug-tm-ja@chamonix.jaist.ac.jp (Japanese)
+Mon Aug 12 09:11:34 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: gnus-mime Version 0.4 was released.
+
+ * message-mime.el (message-included-forward-headers): Add
+ `Mime-Version' field and `Content-*' field if they are not existed
+ in.
+
+Sat Aug 10 12:05:14 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * message-mime.el: setting for variable
+ `message-forward-start-separator' and
+ `message-forward-end-separator' was moved from mime-setup.el.in.
+
+ * message-mime.el: add (require 'tm-edit).
+
+\f
Fri Aug 9 12:29:10 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/gnus: gnus-mime Version 0.3 was released.
-;;;
;;; gnus-art-mime.el --- MIME extension for article mode of Gnus
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1996/8/6
-;;; Version:
-;;; $Id: gnus-art-mime.el,v 0.3 1996/08/08 15:12:51 morioka Exp $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is not part of GNU Emacs yet.
-;;;
-;;; 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) 1995,1996 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Created: 1996/8/6
+;; Version:
+;; $Id: gnus-art-mime.el,v 0.4 1996/08/12 09:00:14 morioka Exp $
+;; Keywords: news, MIME, multimedia, multilingual, encoded-word
+
+;; This file is not part of GNU Emacs yet.
+
+;; 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.
+
;;; Code:
(require 'tm-view)
-;;;
;;; gnus-charset.el --- MIME charset extension for Gnus
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1996/8/6
-;;; Version:
-;;; $Id: gnus-charset.el,v 0.1 1996/08/06 12:07:28 morioka Exp $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is not part of GNU Emacs yet.
-;;;
-;;; 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) 1995,1996 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Created: 1996/8/6
+;; Version:
+;; $Id: gnus-charset.el,v 0.2 1996/08/12 09:06:54 morioka Exp $
+;; Keywords: news, MIME, multimedia, multilingual, encoded-word
+
+;; This file is not part of GNU Emacs yet.
+
+;; 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.
+
;;; Code:
(defvar running-xemacs (string-match "XEmacs" emacs-version))
-;;;
;;; gnus-mime.el --- MIME extensions for Gnus
-;;;
-;;; Copyright (C) 1996 Free Software Foundation, Inc.
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1996/8/6
-;;; Version: $Revision: 0.3 $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is not part of GNU Emacs yet.
-;;;
-;;; 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) 1996 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Created: 1996/8/6
+;; Version: $Revision: 0.4 $
+;; Keywords: news, MIME, multimedia, multilingual, encoded-word
+
+;; This file is not part of GNU Emacs yet.
+
+;; 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.
+
;;; Code:
(defun call-after-loaded (module func &optional hook-name)
;;;
(defconst gnus-mime-RCS-ID
- "$Id: gnus-mime.el,v 0.3 1996/08/07 16:31:12 morioka Exp $")
+ "$Id: gnus-mime.el,v 0.4 1996/08/12 08:57:33 morioka Exp $")
(defconst gnus-mime-version
(get-version-string gnus-mime-RCS-ID))
-;;;
-;;; gnus-msg-mime.el --- MIME extensions
-;;; for mail and post interface of Gnus
-;;;
-;;; Copyright (C) 1996 Free Software Foundation, Inc.
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1996/8/8
-;;; Version:
-;;; $Id: gnus-msg-mime.el,v 0.1 1996/08/08 15:49:36 morioka Exp $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is not part of GNU Emacs yet.
-;;;
-;;; 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.
-;;;
+;;; gnus-msg-mime.el --- MIME extension for mail and post interface of Gnus
+
+;; Copyright (C) 1996 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Created: 1996/8/8
+;; Version:
+;; $Id: gnus-msg-mime.el,v 0.2 1996/08/12 09:02:41 morioka Exp $
+;; Keywords: news, MIME, multimedia, multilingual, encoded-word
+
+;; This file is not part of GNU Emacs yet.
+
+;; 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.
+
;;; Code:
(require 'gnus-msg)
-;;;
;;; gnus-sum-mime.el --- MIME extension for summary mode of Gnus
-;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1996/8/6
-;;; Version:
-;;; $Id: gnus-sum-mime.el,v 0.2 1996/08/09 12:29:10 morioka Exp $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is not part of GNU Emacs yet.
-;;;
-;;; 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) 1995,1996 Free Software Foundation, Inc.
+
+;; 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 $
+;; Keywords: news, MIME, multimedia, multilingual, encoded-word
+
+;; This file is not part of GNU Emacs yet.
+
+;; 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.
+
;;; Code:
(require 'gnus-mime)
-;;;
;;; message-mime.el --- MIME extensions for message.el
-;;;
-;;; Copyright (C) 1996 Free Software Foundation, Inc.
-;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Created: 1996/8/6
-;;; Version:
-;;; $Id: message-mime.el,v 0.2 1996/08/07 16:33:30 morioka Exp $
-;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; This file is not part of GNU Emacs yet.
-;;;
-;;; 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) 1995,1996 Free Software Foundation, Inc.
+
+;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Created: 1996/8/6
+;; Version:
+;; $Id: message-mime.el,v 0.5 1996/08/12 09:11:34 morioka Exp $
+;; Keywords: news, MIME, multimedia, multilingual, encoded-word
+
+;; This file is not part of GNU Emacs yet.
+
+;; 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.
+
;;; Code:
+(require 'tm-edit)
+
+(setq message-forward-start-separator
+ (concat (mime-make-tag "message" "rfc822") "\n"))
+
+(setq message-forward-end-separator "")
+
+(or (string-match message-included-forward-headers "Mime-Version:")
+ (setq message-included-forward-headers
+ (concat message-included-forward-headers "\\|^Mime-Version:"))
+ )
+
+(or (string-match message-included-forward-headers "Content-Type:")
+ (setq message-included-forward-headers
+ (concat message-included-forward-headers "\\|^Content-Type:"))
+ )
+
+
;;; @ for tm-edit
;;;
(message-yank-original nil)
))
-(call-after-loaded
- 'tm-edit
- (function
- (lambda ()
- (set-alist 'mime-editor/message-inserter-alist
- 'message-mode (function message-mime-insert-article))
- (set-alist 'mime-editor/split-message-sender-alist
- 'message-mode
- (lambda ()
- (interactive)
- (let (message-send-hook
- message-sent-message-via)
- (message-send)
- )))
- )))
+(set-alist 'mime-editor/message-inserter-alist
+ 'message-mode (function message-mime-insert-article))
+(set-alist 'mime-editor/split-message-sender-alist
+ 'message-mode
+ (lambda ()
+ (interactive)
+ (let (message-send-hook
+ message-sent-message-via)
+ (message-send)
+ )))
;;; @ end
;;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
;;; and MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: mime-setup.el.in,v 7.22 1996/08/07 16:42:47 morioka Exp $
+;;; $Id: mime-setup.el.in,v 7.23 1996/08/10 12:04:21 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
(add-hook 'message-header-hook 'mime/encode-message-header)
(call-after-loaded
- 'tm-edit
- (function
- (lambda ()
- (setq message-forward-start-separator
- (concat (mime-make-tag "message" "rfc822") "\n"))
- )))
-(setq message-forward-end-separator "")
-
-(call-after-loaded
'message
(function
(lambda ()
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.77 $
+;;; Version: $Revision: 7.78 $
;;; 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.77 1996/08/09 12:16:23 morioka Exp $")
+ "$Id: tm-edit.el,v 7.78 1996/08/11 13:57:11 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
(defun mime-editor/encrypt-pgp-kazu (beg end boundary)
(save-excursion
- (let ((from (rfc822/get-field-body "From"))
- (to (rfc822/get-field-body "To"))
- (cc (rfc822/get-field-body "cc"))
- recipients)
+ (let (from recipients header)
+ (let ((ret (mime-editor/make-encrypt-recipient-header)))
+ (setq from (aref ret 0)
+ recipients (aref ret 1)
+ header (aref ret 2))
+ )
(save-restriction
(narrow-to-region beg end)
(let* ((ret
(parts (nth 3 ret))
)
(goto-char beg)
- (if (and (stringp from)
- (not (string-equal from "")))
- (insert (format "From: %s\n" from))
- )
- (if (and (stringp to)
- (not (string-equal to "")))
- (progn
- (insert (format "To: %s\n" to))
- (setq recipients to)
- ))
- (if (and (stringp cc)
- (not (string-equal cc "")))
- (progn
- (insert (format "cc: %s\n" cc))
- (if recipients
- (setq recipients (concat recipients "," cc))
- (setq recipients cc)
- )))
+ (insert header)
(insert (format "Content-Type: %s\n" ctype))
(if encoding
(insert (format "Content-Transfer-Encoding: %s\n" encoding))
-;;;
-;;; tm-vm.el --- tm-MUA for VM
-;;;
-;;; Copyright (C) 1994 MASUTANI Yasuhiro
-;;; Copyright (C) 1995 WAKAMIYA Kenji
-;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei
-;;; Copyright (C) 1996 Oscar Figueiredo
-;;;
-;;; Author: MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
-;;; Kenji Wakamiya <wkenji@flab.fujitsu.co.jp>
-;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; Oscar Figueiredo <figueire@lspsun2.epfl.ch>
-;;; modified by SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>
-;;; ISHIHARA Akito <aki@bpel.tutics.tut.ac.jp>
-;;; Rob Kooper <kooper@cc.gatech.edu>
-;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; Created: 1994/10/29
-;;; Version: $Revision: 7.54 $
-;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
-;;;
-;;; 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.
-;;;
+;;; tm-vm.el --- tm-MUA (MIME Extension module) for VM
+
+;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc.
+
+;; Author: MASUTANI Yasuhiro <masutani@me.es.osaka-u.ac.jp>
+;; Kenji Wakamiya <wkenji@flab.fujitsu.co.jp>
+;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+;; Oscar Figueiredo <figueire@lspsun2.epfl.ch>
+;; modified by SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>
+;; ISHIHARA Akito <aki@bpel.tutics.tut.ac.jp>
+;; Rob Kooper <kooper@cc.gatech.edu>
+;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+;; Created: 1994/10/29
+;; Version: $Revision: 7.56 $
+;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
+
+;; 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.
+
;;; Commentary:
-;;;
-;;; Plese insert `(require 'tm-vm)' in your ~/.vm file.
-;;;
+
+;; Plese insert `(require 'tm-vm)' in your ~/.vm file.
+
;;; Code:
(require 'tm-view)
(require 'vm)
(defconst tm-vm/RCS-ID
- "$Id: tm-vm.el,v 7.54 1996/06/12 23:46:24 shuhei-k Exp $")
+ "$Id: tm-vm.el,v 7.56 1996/08/12 10:07:35 morioka Exp $")
(defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
(define-key vm-mode-map "Z" 'tm-vm/view-message)
(if (null (buffer-name vm-mail-buffer))
(error "The folder buffer containing message %d has been killed."
(vm-number-of message)))
+ (save-window-excursion
+ (tm-vm/view-message))
(vm-display nil nil '(vm-yank-message)
'(vm-yank-message composing-message))
(setq message (vm-real-message-of message))
(let* ((mbuf (current-buffer))
(pbuf (and mime::article/preview-buffer
(get-buffer mime::article/preview-buffer)))
- (pwin (and pbuf (vm-get-visible-buffer-window pbuf))))
+ (pwin (and pbuf (save-window-excursion
+ (vm-get-visible-buffer-window
+ (switch-to-buffer-other-window pbuf))))))
(if pwin
(if running-xemacs
(let ((tmp (generate-new-buffer "tm-vm/tmp")))
projects / elisp / tm.git / commitdiff