+Fri Feb 9 06:57:20 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm: Version 7.43 was released.
+ * tm/gnus: Version 7.43 was released.
+
+ * tm-edit.el: (mime-editor/encrypt-pgp-elkins):
+ (1) insert ``From'', ``To'' and ``Cc'' fields into encrypted
+ message.
+ (2) call `mc-pgp-encrypt-region' directory; it is enclosed by
+ `(let ((mc-pgp-always-sign 'never)) ...)'.
+
+Fri Feb 8 08:24:18 1996 SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>
+
+ * tm-vm.el (tm-vm/beginning-of-message, tm-vm/end-of-message):
+ set to `this-command' (cf. [tm-en:311])
+
+\f
Thu Feb 8 06:36:25 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
* tm: Version 7.42.1 was released.
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.42.1.tar.gz
+TARFILE = tm7.43.tar.gz
18:
+Fri Feb 9 08:47:07 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.43 was released.
+
+Fri Feb 9 07:48:32 1996 Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
+
+ * tm-sgnus.el (tm-gnus/decode-summary-from-and-subjects):
+ convert character code of ``from'' (cf. [tm-ja:1568])
+
+Fri Feb 9 06:19:26 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-sgnus.el: Function `tm-gnus/prepare-save-mail-function' is
+ inserted to `nnmbox-prepare-save-mail-hook' if Mule is running.
+
+\f
Thu Feb 8 06:17:16 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
* tm/gnus: Version 7.41 was released.
FILES = tm/gnus/*.el tm/doc/tm-gnus*.texi
-TARFILE = tm-gnus7.41.tar
+TARFILE = tm-gnus7.43.tar
gnus:
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/09/24
-;;; Version: $Revision: 7.41 $
+;;; Version: $Revision: 7.43 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-sgnus.el,v 7.41 1996/02/08 06:17:16 morioka Exp $")
+ "$Id: tm-sgnus.el,v 7.43 1996/02/09 08:13:33 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for September"))
)
(add-hook 'nnfolder-prepare-save-mail-hook
'tm-gnus/prepare-save-mail-function)
-
+ (add-hook 'nnmbox-prepare-save-mail-hook
+ 'tm-gnus/prepare-save-mail-function)
+
(defun tm-gnus/nnheader-find-file-noselect (&rest args)
(let ((file-coding-system-for-read *noconv*))
(apply (function find-file-noselect) args)
(mail-header-set-from
header
(if from
- (mime-eword/decode-string from)
+ (mime-eword/decode-string
+ (code-convert-string
+ from mime/default-coding-system *internal*))
""))
(mail-header-set-subject
header
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.42 $
+;;; Version: $Revision: 7.43 $
;;; 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.42 1996/02/02 17:20:00 morioka Exp $")
+ "$Id: tm-edit.el,v 7.43 1996/02/09 06:57:20 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
)
))))
+(autoload 'mc-pgp-encrypt-region "mc-pgp")
+
(defun mime-editor/encrypt-pgp-elkins (beg end boundary)
(save-excursion
(save-restriction
- (narrow-to-region beg end)
- (let* ((ret
- (mime-editor/translate-region beg end boundary))
- (ctype (car ret))
- (encoding (nth 1 ret))
- (parts (nth 3 ret))
- (pgp-boundary (concat "pgp-" boundary))
- )
- (goto-char beg)
- (insert (format "Content-Type: %s\n" ctype))
- (if encoding
- (insert (format "Content-Transfer-Encoding: %s\n" encoding))
- )
- (insert "\n")
- (if (null
- (progn
- (goto-char beg)
- (insert "=\n")
- (prog1
- (let ((mail-header-separator "="))
- (call-interactively 'mc-encrypt)
- )
- (goto-char beg)
- (and (search-forward "=\n")
- (replace-match ""))
- )))
- (throw 'mime-editor/error 'pgp-error)
- )
- (goto-char beg)
- (insert (format "--[[multipart/encrypted;
+ (let ((from (rfc822/get-field-body "From"))
+ (to (rfc822/get-field-body "To"))
+ (cc (rfc822/get-field-body "cc"))
+ recipients)
+ (narrow-to-region beg end)
+ (let* ((ret
+ (mime-editor/translate-region beg end boundary))
+ (ctype (car ret))
+ (encoding (nth 1 ret))
+ (parts (nth 3 ret))
+ (pgp-boundary (concat "pgp-" boundary))
+ )
+ (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 (format "Content-Type: %s\n" ctype))
+ (if encoding
+ (insert (format "Content-Transfer-Encoding: %s\n" encoding))
+ )
+ (insert "\n")
+ (if (null
+ (let ((mc-pgp-always-sign 'never))
+ (mc-pgp-encrypt-region
+ (mc-split "\\([ \t\n]*,[ \t\n]*\\)+" recipients)
+ (point-min) (point-max) from nil)
+ ))
+ (throw 'mime-editor/error 'pgp-error)
+ )
+ (goto-char beg)
+ (insert (format "--[[multipart/encrypted;
boundary=\"%s\";
protocol=\"application/pgp-encrypted\"][7bit]]
--%s
Content-Transfer-Encoding: 7bit
" pgp-boundary pgp-boundary pgp-boundary))
- (goto-char (point-max))
- (insert (format "\n--%s--\n" pgp-boundary))
- ))
- ))
+ (goto-char (point-max))
+ (insert (format "\n--%s--\n" pgp-boundary))
+ )))))
(defun mime-editor/process-pgp-kazu (type beg end boundary)
(save-excursion
;;;
;;; tm-vm.el --- tm-MUA for VM
;;;
-;;; Copyright (C) 1995 Free Software Foundation, Inc.
+;;; Copyright (C) 1994 MASUTANI Yasuhiro
+;;; Copyright (C) 1995 WAKAMIYA Kenji
+;;; Copyright (C) 1995,1996 KOBAYASHI Shuhei
;;;
-;;; 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@cmpt01.phys.tohoku.ac.jp>
-;;; Oscar Figueiredo <figueire@lspsun2.epfl.ch>
+;;; 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@cmpt01.phys.tohoku.ac.jp>
+;;; Oscar Figueiredo <figueire@lspsun2.epfl.ch>
;;; modified by SHIONO Jun'ichi <jun@case.nm.fujitsu.co.jp>
;;; and ISHIHARA Akito <aki@bpel.tutics.tut.ac.jp>
;;; Maintainer: Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Created: 1994/10/29
-;;; Version: $Revision: 7.40 $
+;;; Version: $Revision: 7.42 $
;;; Keywords: mail, 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.
+;;; Plese insert `(require 'tm-vm)' in your ~/.vm file.
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
(require 'vm)
(defconst tm-vm/RCS-ID
- "$Id: tm-vm.el,v 7.40 1996/01/25 05:14:53 morioka Exp $")
+ "$Id: tm-vm.el,v 7.42 1996/02/09 00:31:21 morioka Exp $")
(defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
(define-key vm-mode-map "Z" 'tm-vm/view-message)
"Moves to the beginning of the current message."
(interactive)
(if (not (tm-vm/system-state))
- (vm-beginning-of-message)
+ (progn
+ (setq this-command 'vm-beginning-of-message)
+ (vm-beginning-of-message))
(vm-follow-summary-cursor)
(vm-select-folder-buffer)
(vm-check-for-killed-summary)
"Moves to the end of the current message."
(interactive)
(if (not (tm-vm/system-state))
- (vm-end-of-message)
+ (progn
+ (setq this-command 'vm-end-of-message)
+ (vm-end-of-message))
(vm-follow-summary-cursor)
(vm-select-folder-buffer)
(vm-check-for-killed-summary)
projects / elisp / tm.git / commitdiff