--- /dev/null
+Sat Dec 15 16:16:32 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm: Version 7.35 was released.
+ * tm/gnus: Version 7.24 was released.
+
+Fri Dec 15 15:40:10 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-pgp.el:
+ According to Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>,
+ `(autoload 'mc-snarf-keys "mc-toplev")' was added.
+ (cf. [tm-ja:1345])
+
+ * tm-view.el:
+ (1) Popup menu for Emacs 19.* was deleted.
+ (2) MIME-View menu was defined for Emacs 19.*. In Emacs 19.29 or
+ later, system popup menu is available.
+
+Fri Dec 15 15:02:14 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-edit.el (mime/editor-mode): DOC string was fixed.
+
+Fri Dec 15 13:58:51 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-vm.el:
+ (1) New variable `tm-vm/use-xemacs-popup-menu'.
+ (2) popup menu of MIME-Edit minor mode became sub menu.
+
+Fri Dec 15 13:56:51 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-rmail.el:
+ Setting was modified to load tm-mail after tm-edit is loaded.
+
+ * tm-mail.el:
+ (1) New variable `tm-mail/use-xemacs-popup-menu'.
+ (2) popup menu of MIME-Edit minor mode became sub menu.
+
+ * tm-def.el (tm:set-fields): New function
+
+Fri Dec 15 12:00:23 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-pgp.el (mime-article/check-pgp-signature): fixed problem of
+ binary declarations
+
+ * tm-file.el: delete unnecessary `(file-coding-system *noconv*)'
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.34.tar.gz
+TARFILE = tm7.35.tar.gz
18:
@titlepage
@title tm Manual (English Version)
@author by MORIOKA Tomohiko
-@code{$Id: tm_en.texi,v 7.3 1995/12/13 09:26:11 morioka Exp morioka $}
+@code{$Id: tm_en.texi,v 7.4 1995/12/15 05:34:44 morioka Exp morioka $}
@end titlepage
@cindex bug report
@cindex mailing list
-Please report tm bugs you find to fj.editor.emacs or send a mail to
-tm ML:
+Please report tm bugs you find to fj.editor.emacs or send a mail to:
@itemize @bullet
@item Japanese or English
- <tm@@chamonix.jaist.ac.jp>
+ <bug-tm@@chamonix.jaist.ac.jp>
@item English
- <tm-eng@@chamonix.jaist.ac.jp>
+ <bug-tm-eng@@chamonix.jaist.ac.jp>
@end itemize
Via tm ML, You can report bugs of tm, obtain the latest release of tm
@titlepage
@title{tm Manual¡ÊÆüËܸìÈÇ¡Ë}
@author{¼é²¬ ÃÎɧ Ãø}
-@code{$Id: tm_ja.texi,v 7.2 1995/12/13 09:26:59 morioka Exp morioka $}
+@code{$Id: tm_ja.texi,v 7.3 1995/12/15 05:36:34 morioka Exp morioka $}
@end titlepage
@cindex bug Êó¹ð
@cindex mailing list
-tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢tm ML ¤Ë mail ¤ò
-Á÷¤Ã¤Æ²¼¤µ¤¤¡£tm ML ¤Î address ¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹¡£
+tm ¤Î¥Ð¥°¤ò¸«¤Ä¤±¤¿¤é fj.editor.emacs ¤Ë post ¤¹¤ë¤«¡¢°Ê²¼¤Î address
+¤Ë mail ¤òÁ÷¤Ã¤Æ¤¯¤À¤µ¤¤¡§
@itemize @bullet
-@item Japanese or English
+@item ÆüËܸì
- <tm@@chamonix.jaist.ac.jp>
+ <bug-tm@@chamonix.jaist.ac.jp>
-@item English
+@item ±Ñ¸ì
- <tm-eng@@chamonix.jaist.ac.jp>
+ <bug-tm-eng@@chamonix.jaist.ac.jp>
@end itemize
tm ML ¤Ç¤Ï tm ¤Î¥Ð¥°¾ðÊó¤Î¸ò´¹¤äºÇ¿·ÈǤÎÇÛÉÛ¡¢tm ¤Î²þÎɤ˴ؤ¹¤ëµÄÏÀ¤ò
--- /dev/null
+Sat Dec 15 15:03:15 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.24 was released.
+
+Fri Dec 15 13:47:36 1995 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-sgnus.el (tm-gnus/summary-toggle-header):
+ new implementation
FILES = tm/gnus/*.el tm/doc/tm-gnus*.texi
-TARFILE = tm-gnus7.22.tar
+TARFILE = tm-gnus7.24.tar
gnus:
(require 'tl-misc)
;; please edit
-(add-path "gnus-3.14.4")
+(add-path "gnus-3.14.4" 'all-paths)
;;;
;; please edit
-(add-path "gnus-4.1/lisp")
+(add-path "gnus-4.1/lisp" 'all-paths)
;;;
;; please edit
-(add-path "gnus-5.0.13/lisp")
+(add-path "gnus-5.0.13/lisp" 'all-paths)
;;;
;; please edit
-(add-path "sgnus-0.22/lisp")
+(add-path "sgnus-0.22/lisp" 'all-paths)
;;;
-;;; tm-sgnus.el --- tm-gnus module for September GNUS
+;;; tm-sgnus.el --- tm-gnus module for September Gnus
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
;;; 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.22 $
+;;; Version: $Revision: 7.24 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;; 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 'tl-str)
(require 'tl-list)
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-sgnus.el,v 7.22 1995/12/11 12:50:58 morioka Exp $")
+ "$Id: tm-sgnus.el,v 7.24 1995/12/15 13:47:36 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for September"))
(let ((mime-viewer/ignored-field-regexp
(if (save-excursion
(set-buffer gnus-article-buffer)
- (some-element
- (lambda (field)
- (rfc822/get-field-body field)
- )
- mime-viewer/ignored-field-list))
+ (save-restriction
+ (narrow-to-region
+ (point-min)
+ (if (re-search-forward "^$" nil t)
+ (match-beginning 0)
+ (point-max)
+ ))
+ (some-element
+ (lambda (field)
+ (goto-char (point-min))
+ (and (re-search-forward
+ (concat "^" field ":") nil t)
+ (setq field
+ (buffer-substring-no-properties
+ (match-beginning 0) (match-end 0)))
+ (not
+ (string-match
+ mime-viewer/visible-field-regexp field))
+ )
+ )
+ mime-viewer/ignored-field-list)))
mime-viewer/ignored-field-regexp
"^:$")))
(gnus-summary-select-article t t)
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-def.el,v 7.5 1995/12/09 04:11:11 morioka Exp $
+;;; $Id: tm-def.el,v 7.6 1995/12/15 12:55:53 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, definition
;;;
;;; This file is part of tm (Tools for MIME).
;;; @ field
;;;
+(defun tm:set-fields (sym field-list &optional regexp-sym)
+ (or regexp-sym
+ (setq regexp-sym
+ (let ((name (symbol-name sym)))
+ (intern
+ (concat (if (string-match "\\(.*\\)-list" name)
+ (substring name 0 (match-end 1))
+ name)
+ "-regexp")
+ )))
+ )
+ (set sym field-list)
+ (set regexp-sym
+ (concat "^" (apply (function regexp-or) field-list) ":"))
+ )
+
(defun tm:add-fields (sym field-list &optional regexp-sym)
(or regexp-sym
(setq regexp-sym
;; Author: UMEDA Masanobu <umerin@mse.kyutech.ac.jp>
;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Revision: 7.34 $
+;; Version: $Revision: 7.35 $
;; Keywords: mail, news, MIME, multimedia, multilingual
;; This file is not part of GNU Emacs.
;; LCD Archive Entry:
;; mime|Masanobu UMEDA|umerin@mse.kyutech.ac.jp|
;; Simple MIME Composer|
-;; $Date: 1995/12/14 15:49:00 $|$Revision: 7.34 $|~/misc/mime.el.Z|
+;; $Date: 1995/12/15 15:02:14 $|$Revision: 7.35 $|~/misc/mime.el.Z|
;;; Code:
;;;
(defconst mime-editor/RCS-ID
- "$Id: tm-edit.el,v 7.34 1995/12/14 15:49:00 morioka Exp $")
+ "$Id: tm-edit.el,v 7.35 1995/12/15 15:02:14 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
\\[mime-editor/enclose-parallel-region] enclose as multipart/parallel.
\\[mime-editor/enclose-mixed-region] enclose as multipart/mixed.
\\[mime-editor/enclose-digest-region] enclose as multipart/digest.
+\\[mime-editor/enclose-signed-region] enclose as PGP signed.
+\\[mime-editor/enclose-encrypted-region] enclose as PGP encrypted.
+\\[mime-editor/insert-key] insert PGP public key.
\\[mime-editor/preview-message] preview editing MIME message.
\\[mime-editor/exit] exit and translate into a MIME compliant message.
\\[mime-editor/maybe-translate] exit, translate and run the original command.
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-file.el,v 7.0 1995/12/12 00:55:25 morioka Exp $
+;;; $Id: tm-file.el,v 7.1 1995/12/15 11:58:29 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
(let* ((name (or (cdr (assoc "name" cal))
(cdr (assoc "x-name" cal))))
(encoding (cdr (assq 'encoding cal)))
- (file-coding-system *noconv*)
(filename
(if name
(expand-file-name name
;;; modified by MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/11/27
-;;; Version: $Id: tm-mail.el,v 1.2 1995/12/07 10:22:31 morioka Exp $
+;;; Version: $Id: tm-mail.el,v 2.0 1995/12/15 13:53:55 morioka Exp $
;;; Keywords: mail, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
))
))
-(if (string-match "XEmacs\\|Lucid" emacs-version)
+(defvar tm-mail/use-xemacs-popup-menu t)
+
+(if (and (string-match "XEmacs\\|Lucid" emacs-version)
+ tm-mail/use-xemacs-popup-menu)
(setq mail-mode-menu
(append mail-mode-menu
- '("---")
- mime-editor/popup-menu-for-xemacs))
+ (list "---"
+ mime-editor/popup-menu-for-xemacs)))
)
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/12/7
;;; Version:
-;;; $Id: tm-pgp.el,v 5.0 1995/12/14 15:41:18 morioka Exp $
+;;; $Id: tm-pgp.el,v 7.0 1995/12/15 15:40:10 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, PGP, security
;;;
;;; This file is part of tm (Tools for MIME).
(set-buffer (setq kbuf (get-buffer-create mime/temp-buffer-name)))
(insert str)
(base64-decode-region (point-min)(point-max))
- (let ((file-coding-system *noconv*)
- jka-compr-compression-info-list
- jam-zcat-filename-list)
+ (let ((mc-flag nil) ; for Mule
+ (file-coding-system
+ (if (featurep 'mule) *noconv*))
+ kanji-flag ; for NEmacs
+ (emx-binary-mode t) ; for OS/2
+ jka-compr-compression-info-list ; for jka-compr
+ jam-zcat-filename-list ; for jam-zcat
+ require-final-newline)
(write-file sig-file)
)
;;(define-program-coding-system (current-buffer) "pgp" *noconv*)
;;;
;;; It is based on draft-elkins-pem-pgp-01.txt
+(autoload 'mc-snarf-keys "mc-toplev")
+
(defun mime-article/add-pgp-keys (beg end cal)
(let* ((cnum (mime-article/point-content-number beg))
(cur-buf (current-buffer))
;;; modified by KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
;;; Created: 1994/8/30
;;; Version:
-;;; $Revision: 7.19 $
+;;; $Revision: 7.20 $
;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-rmail/RCS-ID
- "$Id: tm-rmail.el,v 7.19 1995/12/07 04:55:49 morioka Exp $")
+ "$Id: tm-rmail.el,v 7.20 1995/12/15 13:56:51 morioka Exp $")
(defconst tm-rmail/version (get-version-string tm-rmail/RCS-ID))
(defvar tm-rmail/decode-all nil)
'tm-edit
(function
(lambda ()
- (autoload 'tm-mail/insert-message "tm-mail")
+ (require 'tm-mail)
(set-alist 'mime-editor/message-inserter-alist
'mail-mode (function tm-mail/insert-message))
)))
;;; modified by Steven L. Baur <steve@miranova.com>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;;; Version: $Revision: 7.33 $
+;;; Version: $Revision: 7.34 $
;;; Keywords: mail, news, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst mime-viewer/RCS-ID
- "$Id: tm-view.el,v 7.33 1995/12/13 05:46:06 morioka Exp $")
+ "$Id: tm-view.el,v 7.34 1995/12/15 15:08:28 morioka Exp $")
(defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
(defconst mime/viewer-version mime-viewer/version)
;;; @ MIME viewer mode
;;;
+(defconst mime-viewer/menu-title "MIME-View")
+(defconst mime-viewer/menu-list
+ '((up "Move to upper content" mime-viewer/up-content)
+ (previous "Move to previous content" mime-viewer/previous-content)
+ (next "Move to next content" mime-viewer/next-content)
+ (scroll-down "Scroll to previous content" mime-viewer/scroll-down-content)
+ (scroll-up "Scroll to next content" mime-viewer/scroll-up-content)
+ (play "Play Content" mime-viewer/play-content)
+ (extract "Extract Content" mime-viewer/extract-content)
+ (print "Print" mime-viewer/print-content)
+ (x-face "Show X Face" mime-viewer/display-x-face)
+ )
+ "Menu for MIME Viewer")
+
(defvar mime/viewer-mode-map nil)
(if (null mime/viewer-mode-map)
(progn
(define-key mime/viewer-mode-map
mouse-button-2 (function tm:button-dispatcher))
)
- (if mouse-button-3
- (define-key mime/viewer-mode-map
- mouse-button-3 (function mime-viewer/popup-menu))
- )
+ (cond ((string-match "XEmacs\\|Lucid" emacs-version)
+ (defvar mime-viewer/xemacs-popup-menu
+ (cons mime-viewer/menu-title
+ (mapcar (function
+ (lambda (item)
+ (vector (nth 1 item)(nth 2 item) t)
+ ))
+ mime-viewer/menu-list)))
+ (defun mime-viewer/xemacs-popup-menu (event)
+ "Popup the menu in the MIME Viewer buffer"
+ (interactive "e")
+ (select-window (event-window event))
+ (set-buffer (event-buffer event))
+ (popup-menu 'mime-viewer/xemacs-popup-menu))
+ (define-key mime/viewer-mode-map
+ mouse-button-3 (function mime-viewer/xemacs-popup-menu))
+ )
+ ((>= emacs-major-version 19)
+ (define-key mime/viewer-mode-map [menu-bar mime-view]
+ (cons mime-viewer/menu-title
+ (make-sparse-keymap mime-viewer/menu-title)))
+ (mapcar (function
+ (lambda (item)
+ (define-key mime/viewer-mode-map
+ (vector 'menu-bar 'mime-view (car item))
+ (cons (nth 1 item)(nth 2 item))
+ )
+ ))
+ (reverse mime-viewer/menu-list)
+ )
+ ))
))
-(defvar mime-viewer/popup-menu-title "MIME Viewer Commands")
-(defvar mime-viewer/popup-menu-items
- '(("Move to upper content" . mime-viewer/up-content)
- ("Move to previous content" . mime-viewer/previous-content)
- ("Move to next content" . mime-viewer/next-content)
- ("Scroll to previous content" . mime-viewer/scroll-down-content)
- ("Scroll to next content" . mime-viewer/scroll-up-content)
- ("Play Content" . mime-viewer/play-content)
- ("Extract Content" . mime-viewer/extract-content)
- ("Print" . mime-viewer/print-content)
- ("Show X Face" . mime-viewer/display-x-face)
- )
- "Popup Menu for MIME Viewer")
-
-(cond ((string-match "XEmacs\\|Lucid" emacs-version)
- (defvar mime-viewer/popup-menu
- (cons mime-viewer/popup-menu-title
- (mapcar (function
- (lambda (item)
- (vector (car item)(cdr item) t)
- ))
- mime-viewer/popup-menu-items)))
- (defun mime-viewer/popup-menu (event)
- "Popup the menu in the MIME Viewer buffer"
- (interactive "e")
- (select-window (event-window event))
- (set-buffer (event-buffer event))
- (popup-menu 'mime-viewer/popup-menu))
- )
- ((>= emacs-major-version 19)
- (defun mime-viewer/popup-menu (event)
- (interactive "e")
- (mouse-set-point event)
- (let ((menu
- (cons mime-viewer/popup-menu-title
- (list (cons "Menu Items" mime-viewer/popup-menu-items))
- )))
- (let ((func (x-popup-menu event menu)))
- (if func
- (funcall func)
- ))
- ))
- ))
-
-
(defun mime/viewer-mode (&optional mother ctl encoding ibuf obuf)
"Major mode for viewing MIME message.
;;; and ISHIHARA Akito <aki@bpel.tutics.tut.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/10/29
-;;; Version: $Revision: 7.35 $
+;;; Version: $Revision: 7.36 $
;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
(require 'vm)
(defconst tm-vm/RCS-ID
- "$Id: tm-vm.el,v 7.35 1995/12/14 16:38:50 morioka Exp $")
+ "$Id: tm-vm.el,v 7.36 1995/12/15 13:58:51 morioka Exp $")
(defconst tm-vm/version (get-version-string tm-vm/RCS-ID))
(define-key vm-mode-map "Z" 'tm-vm/view-message)
(substitute-key-definition 'vm-send-digest
'tm-vm/send-digest vm-mode-map)
+(defvar tm-vm/use-xemacs-popup-menu t)
+
;;; modified by Steven L. Baur <steve@miranova.com>
;;; 1995/12/6 (c.f. [tm-en:209])
(defun mime-editor/attach-to-vm-mode-menu ()
(if (boundp 'vm-menu-mail-menu)
(progn
(setq vm-menu-mail-menu
- (nconc vm-menu-mail-menu
- (list "----")
- mime-editor/popup-menu-for-xemacs))
+ (append vm-menu-mail-menu
+ (list "----"
+ mime-editor/popup-menu-for-xemacs)))
(remove-hook 'vm-mail-mode-hook 'mime-editor/attach-to-vm-mode-menu)
)))
(autoload 'tm-mail/insert-message "tm-mail")
(set-alist 'mime-editor/message-inserter-alist
'mail-mode (function tm-mail/insert-message))
- (if (string-match "XEmacs\\|Lucid" emacs-version)
+ (if (and (string-match "XEmacs\\|Lucid" emacs-version)
+ tm-vm/use-xemacs-popup-menu)
(add-hook 'vm-mail-mode-hook 'mime-editor/attach-to-vm-mode-menu)
)
)))
'mime-setup
(function
(lambda ()
- ;;(remove-hook 'mail-mode-hook 'mime/editor-mode)
- ;;(add-hook 'vm-mail-mode-hook 'mime/editor-mode)
(setq vm-forwarding-digest-type "rfc1521")
(setq vm-digest-send-type "rfc1521")
)))
projects / elisp / tm.git / commitdiff