--- /dev/null
+Thu Nov 23 10:21:05 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm 7.27.1 was released.
+
+ * tm-view.el:
+ ".*Received" was inserted into default value of variable
+ `mime-viewer/ignored-field-list'.
+
+ * mime-setup.el:
+ autoload setting for function `mime/decode-message-header'.
+
+Tue Nov 21 09:43:00 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-vm.el: fixed problem of function `tm-vm/quit'.
+
+Mon Nov 20 23:54:54 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-vm.el: Function `tm-vm/preview-current-message' was
+ modified.
--- /dev/null
+Thu Nov 23 10:21:05 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm 7.27.1 \e$B$r\e(B release \e$B$7$?!#\e(B
+
+ * tm-view.el:
+ \e$BJQ?t\e(B mime-viewer/ignored-field-list \e$B$N=i4|CM$K\e(B ".*Received" \e$B$r2C$(\e(B
+ \e$B$?!#\e(B
+
+ * mime-setup.el:
+ \e$B4X?t\e(B mime/decode-message-header \e$B$KBP$9$k\e(B autoload \e$B$N@_Dj$rDI2C$7$?!#\e(B
+
+Tue Nov 21 09:43:00 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-vm.el: \e$B4X?t\e(B tm-vm/quit \e$B$NIT6q9g$r=$@5$7$?!#\e(B
+
+Mon Nov 20 23:54:54 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-vm.el: Function `tm-vm/preview-current-message' was
+ modified.
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.27.tar.gz
+TARFILE = tm7.27.1.tar.gz
nemacs:
--- /dev/null
+Thu Nov 23 19:31:40 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.19 was released.
+
+Tue Nov 21 03:02:27 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-gnus.el: Version judgement was changed.
--- /dev/null
+Thu Nov 23 19:31:40 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.19 \e$B$r\e(B release \e$B$7$?!#\e(B
+
+Tue Nov 21 03:02:27 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-gnus.el: version \e$B$NH=Dj$N;EJ}$rJQ$($?!#\e(B
FILES = tm/gnus/*.el tm/doc/tm-gnus*.texi
-TARFILE = tm-gnus7.18.tar
+TARFILE = tm-gnus7.19.tar
gnus3:
;;
;; please edit this
;;
- '("/usr/local/lib/emacs/site-lisp/sgnus-0.13/lisp")
+ '("/usr/local/lib/emacs/site-lisp/sgnus-0.14/lisp")
;;
load-path))
;;; Copyright (C) 1995 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1995/05/23 (obsolete tm-ognus.el)
;;; Version:
-;;; $Id: tm-gd3.el,v 7.4 1995/11/19 07:10:19 morioka Exp $
+;;; $Id: tm-gd3.el,v 7.5 1995/11/21 02:49:25 morioka Exp $
;;; Keywords: news, 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.
(require 'tm-ew-d)
;;; Copyright (C) 1995 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1995/11/19
;;; Version:
-;;; $Id: tm-gd5.el,v 1.1 1995/11/19 08:11:47 morioka Exp $
+;;; $Id: tm-gd5.el,v 2.0 1995/11/21 02:51:08 morioka Exp $
;;; Keywords: news, 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.
(cond ((not (boundp 'nnheader-encoded-words-decoding))
(require 'tm-ew-d)
;;; Copyright (C) 1993,1994,1995 MORIOKA Tomohiko
;;;
;;; Author: Morioka Tomohiko <morioka@jaist.ac.jp>
+;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1993/11/20 (obsolete mol's gnus-mime.el)
;;; Version:
-;;; $Id: tm-gnus.el,v 7.6 1995/11/19 08:30:08 morioka Exp $
+;;; $Id: tm-gnus.el,v 7.9 1995/11/21 03:00:41 morioka Exp $
;;; Keywords: news, 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.
(require 'gnus)
;;;
(cond ((boundp 'gnus-original-article-buffer)
+ ;; for September Gnus and Gnus 5.2 ..
(require 'tm-sgnus)
)
- ((string-match "^\\(Gnus v5\\|September Gnus\\)" gnus-version)
+ ((or (string-match
+ "^\\((ding) Gnus\\|Gnus v5\\|September Gnus\\)" gnus-version)
+ (fboundp 'mail-header-from))
+ ;; for Gnus 5.0 .. 5.1.*
(require 'tm-gd5)
(require 'tm-gnus4)
)
- ((string-match "^GNUS 4" gnus-version)
+ ((fboundp 'gnus-article-prepare)
+ ;; for GNUS 3.15 .. 4.*
(require 'tm-gd3)
(require 'tm-gnus4)
-
(add-hook 'gnus-select-group-hook 'tm-gnus/decode-summary-subjects)
(fset 'gnus-article-set-mode-line
(function tm-gnus/article-set-mode-line))
)
((string-match "^GNUS 3" gnus-version)
+ ;; for GNUS 3.14.*
(require 'tm-gnus3)
(defvar gnus-article-buffer gnus-Article-buffer)
))
;;; tm-gnus3.el --- tm-gnus module for GNUS 3.*
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;; Copyright (C) 1993,1994,1995 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1993/11/20
+;;; Version: $Revision: 7.3 $
;;; Keywords: news, 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.
(require 'tl-list)
(require 'tl-str)
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-gnus3.el,v 7.1 1995/11/19 07:23:29 morioka Exp $")
+ "$Id: tm-gnus3.el,v 7.3 1995/11/21 02:08:31 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3"))
;;; Copyright (C) 1995 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1993/11/20 (merged tm-gnus5.el)
+;;; Version: $Revision: 7.4 $
;;; Keywords: news, 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.
(require 'tl-str)
(require 'tl-misc)
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-gnus4.el,v 7.2 1995/11/19 08:10:33 morioka Exp $")
+ "$Id: tm-gnus4.el,v 7.4 1995/11/21 03:02:27 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for 4 .. 5.1"))
;;; Copyright (C) 1995 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1995/09/24
+;;; Version: $Revision: 7.19 $
;;; Keywords: news, 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.
(require 'tl-str)
(require 'tl-list)
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-sgnus.el,v 7.18 1995/11/19 08:29:23 morioka Exp $")
+ "$Id: tm-sgnus.el,v 7.19 1995/11/23 10:34:37 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for September"))
--- /dev/null
+Thu Nov 23 19:28:16 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/mh-e: Version 7.26 was released.
+
+Tue Nov 21 08:55:01 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-mh-e.el:
+ Variable `tm-mh-e/use-forwcomps' was abolished.
+ (cf. [tm-ja:1133])
--- /dev/null
+Thu Nov 23 19:28:16 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/mh-e: Version 7.26 \e$B$r\e(B release \e$B$7$?!#\e(B
+
+Tue Nov 21 08:55:01 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-mh-e.el:
+ \e$BJQ?t\e(B tm-mh-e/use-forwcomps \e$B$rGQ;_$7!"4X?t\e(B tm-mh-e/forward \e$B$N;EMM$r\e(B
+ \e$B2,It$5$s$NDs0F$5$l$?$b$N$KLa$7$?!#\e(B(cf. [tm-ja:1133])
FILES = tm/mh-e/*.el tm/mh-e/Makefile tm/mh-e/mk-tmh tm/mh-e/*.ol
-TARFILE = tm-mh-e7.25.tar
+TARFILE = tm-mh-e7.26.tar
elc:
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
;;; modified by YAMAOKA Katsumi <yamaoka@ga.sony.co.jp>
+;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1993/11/21 (obsolete mh-e-mime.el)
+;;; Version: $Revision: 7.26 $
;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
;;;
-
-;;; @ require modules
+;;; 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.
(require 'tl-str)
(require 'tl-misc)
;;;
(defconst tm-mh-e/RCS-ID
- "$Id: tm-mh-e.el,v 7.25 1995/11/19 06:44:32 morioka Exp $")
+ "$Id: tm-mh-e.el,v 7.26 1995/11/21 08:55:01 morioka Exp $")
(defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
(defvar tm-mh-e/decode-encoded-word t
"If non-nil, decode encoded-word when it is not MIME preview mode.")
-(defvar tm-mh-e/use-forwcomps nil)
(defvar tm-mh-e/forwcomps "forwcomps")
(draft-name (expand-file-name "draft" mh-user-path))
(draft (cond ((or (not (file-exists-p draft-name))
(y-or-n-p "The file `draft' exists. Discard it? "))
- (if tm-mh-e/use-forwcomps
- (mh-exec-cmd "comp"
- "-noedit" "-nowhatnowproc"
- "-form" tm-mh-e/forwcomps
- "-nodraftfolder")
- (mh-exec-cmd "comp"
- "-noedit" "-nowhatnowproc"
- "-nodraftfolder")
- )
+ (mh-exec-cmd "comp"
+ "-noedit" "-nowhatnowproc"
+ "-form" tm-mh-e/forwcomps
+ "-nodraftfolder")
(prog1
(mh-read-draft "" draft-name t)
(mh-insert-fields "To:" to "Cc:" cc)
;;;
-;;; mime-setup.el --- setup file to use tm and mime.el.
+;;; mime-setup.el --- setup file for tm viewer and composer.
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: mime-setup.el,v 7.10 1995/11/19 13:47:54 morioka Exp $
+;;; $Id: mime-setup.el,v 7.11 1995/11/23 10:01:09 morioka Exp $
;;; Keywords: mail, news, 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.
(require 'tm-setup)
(autoload 'mime/editor-mode "tm-edit"
"Minor mode for editing MIME message." t)
+(autoload 'mime/decode-message-header "tm-ew-d"
+ "Decode MIME encoded-words in message header." t)
(add-hook 'mime/editor-mode-hook
(function
;;; @ for RMAIL and VM
;;;
-;;(add-hook 'mail-mode-hook 'mime/editor-mode)
(add-hook 'mail-setup-hook 'mime/decode-message-header)
(add-hook 'mail-setup-hook 'mime/editor-mode 'append)
(add-hook 'mail-send-hook 'mime-editor/maybe-translate)
;;;
;;; richtext.el -- read and save files in text/richtext format
;;;
-;;; $Id: richtext.el,v 2.1 1995/07/17 22:59:10 morioka Exp $
+;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1995 MORIOKA Tomohiko
;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1995/7/15
+;;; Version:
+;;; $Id: richtext.el,v 3.0 1995/11/22 11:36:06 morioka Exp $
+;;; Keywords: wp, faces, MIME, multimedia
+;;;
+;;; This file is part of GNU Emacs.
+;;;
+;;; GNU Emacs 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.
+;;;
+;;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to
+;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(require 'enriched)
;;; Copyright (C) 1995 Free Software Foundation, Inc.
;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
+;;; Version: $Revision: 7.27 $
;;; Keywords: mail, news, MIME, multimedia
;;;
;;; 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.
(require 'tl-str)
(require 'tl-list)
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 7.25 1995/11/15 13:57:33 morioka Exp $")
+ "$Id: tm-view.el,v 7.27 1995/11/23 10:21:05 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
(defvar mime-viewer/uuencode-encoding-name-list '("x-uue" "x-uuencode"))
(defvar mime-viewer/ignored-field-list
- '("Received" "Return-Path" "Replied" "Errors-To"
+ '(".*Received" "Return-Path" "Replied" "Errors-To"
"Lines" "Sender" "Path" "Nntp-Posting-Host"
"Content-Type" "Precedence" "X-Face"
"Status" "X-VM-.*")
;;; Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Oscar Figueiredo <figueire@lspsun2.epfl.ch>
;;; modified by SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>
-;;;
+;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1994/10/29
+;;; Version: $Revision: 7.20 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
;;; Plese insert (require 'tm-vm) in your ~/.vm or ~/.emacs file.
;;;
+;;; 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.
(require 'tm-view)
(require 'vm)
(defconst tm-vm/RCS-ID
- "$Id: tm-vm.el,v 7.18 1995/11/20 02:48:34 morioka Exp $")
+ "$Id: tm-vm.el,v 7.20 1995/11/21 09:43:00 morioka Exp $")
(defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
(define-key vm-mode-map "Z" 'tm-vm/view-message)
(if pwin
(delete-window pwin)
))
+ (vm-display nil nil
+ '(vm-next-message
+ vm-delete-message
+ vm-undelete-message
+ vm-scroll-forward vm-scroll-backward)
+ (list this-command 'reading-message))
(vm-select-folder-buffer)
(vm-display (current-buffer) t
- '(tm-vm/preview-current-message
- vm-preview-current-message)
+ '(vm-scroll-forward vm-scroll-backward)
(list this-command 'reading-message))
(mime/viewer-mode)
(run-hooks 'tm-vm/vm-select-message-hook)
- (vm-display (current-buffer) t
- '(tm-vm/preview-current-message
- vm-preview-current-message)
- (list this-command 'reading-message))
- (select-window win)
- (vm-display-buffer (current-buffer))
- ;; (vm-display (current-buffer) t
- ;; '(tm-vm/preview-current-message
- ;; vm-preview-current-message)
- ;; '(vm-summarize reading-message))
+ (select-window win)
)
;; fixed by Oscar Figueiredo <figueire@lspsun2.epfl.ch>
;; 1995/11/17
(defun tm-vm/quit ()
(interactive)
(save-excursion
- (set-buffer vm-mail-buffer)
+ (vm-select-folder-buffer)
(if (and mime::article/preview-buffer
(get-buffer mime::article/preview-buffer))
(kill-buffer mime::article/preview-buffer)))
projects / elisp / tm.git / commitdiff