+Sun Jun 9 04:13:53 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * MEL: Version 5.4 was released.
+ * tm: Version 7.66.2 was released.
+ * tm/gnus: Version 7.68 was released.
+
+Fri Jun 7 14:14:53 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * inst-tm (install-elc): check `src-file' has existed yet.
+
+Thu Jun 6 15:03:38 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-ew-e.el (mime/encode-field): fixed.
+
+ * tm-parse.el (mime/Content-Transfer-Encoding): eliminate last
+ linear-white-spaces.
+
+\f
Mon Jun 3 14:52:18 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.29.1 was released.
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.66.1.tar.gz
+TARFILE = tm7.66.2.tar.gz
elc:
$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
"site-lisp"
"local.lisp"))
+(setq PATTERN-TO-INSTALL
+ (expand-file-name (concat ".*/" LISP_PREFIX) PREFIX))
+(setq PATTERN-TO-AVOID
+ (format "%d\\.%s" emacs-major-version emacs-minor-version))
+
(defvar LISPDIR
(or
(catch 'tag
(let ((rest default-load-path)
dir)
(while (setq dir (car rest))
- (if (string-match
- (expand-file-name (concat ".*/" LISP_PREFIX) PREFIX) dir)
- (throw 'tag (substring dir 0 (match-end 0)))
- )
+ (or (string-match PATTERN-TO-AVOID dir)
+ (if (string-match PATTERN-TO-INSTALL dir)
+ (throw 'tag (substring dir 0 (match-end 0)))
+ ))
(setq rest (cdr rest))
)))
(expand-file-name (concat
+Sun Jun 9 04:12:44 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/gnus: Version 7.68 was released.
+
+Fri Jun 7 13:48:05 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-sgnus.el: Use `(call-after-loaded 'nnmail ...)' to redefine
+ function `nnmail-find-file', so you must use Gnus 5.2.10 or later
+ if you use Mule.
+
+Thu Jun 6 16:44:17 1996 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * tm-gnus3.el (tm-gnus/insert-article): Moved from tm-gnus.el
+
+ * tm-gnus4.el (tm-gnus/insert-article),
+ (mime-editor/attach-to-news-reply-menu): Moved from tm-gnus.el
+
+ * tm-gnus.el: `tm-gnus/insert-article' and
+ `mime-editor/attach-to-news-reply-menu' were moved to
+ version-dependent modules.
+
+ * tm-sgnus.el (tm-gnus/insert-article): New function;
+ message/rfc822 inserter for message-mode.
+ (mime-editor/attach-to-news-reply-menu): Moved from tm-gnus.el
+
+Wed Jun 5 23:02:22 1996 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
+
+ * tm-sgnus.el (nnmail-find-file): Leave
+ `jam-code-guess-after-insert-file-function' in
+ `after-insert-file-functions'.
+
+Wed Jun 5 02:49:33 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-sgnus.el: Compatibility code for September Gnus 0.80 .. 0.94
+ was deleted.
+
+\f
Mon May 27 03:48:56 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/gnus: Version 7.63 was released.
tm/gnus/*.el tm/gnus/ChangeLog tm/doc/tm-gnus*.texi
-TARFILE = tm-gnus7.63.tar
+TARFILE = tm-gnus7.68.tar
gnus:
(require 'tl-misc)
;;;
-;;; loadpath for September Gnus
+;;; loadpath for Gnus 5.2
;;;
;; please edit
;; It is for latest September Gnus.
-(let ((path (or (get-latest-path "gnus-5.2")
- (get-latest-path "sgnus"))))
+(let ((path (get-latest-path "gnus-5.2")))
(if path
(add-path (expand-file-name "lisp/" path))
))
;; It is relative style. Added path is searched from load-path.
-;; (add-path "sgnus-0.69/lisp/" 'all-paths)
+;; (add-path "gnus-5.2.10/lisp/" 'all-paths)
;; It is absolute style.
-;; (add-path "/usr/local/share/emacs/site-lisp/sgnus/lisp/")
+;; (add-path "/usr/local/share/emacs/site-lisp/gnus-5.2.10/lisp/")
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1993/11/20 (obsolete mol's gnus-mime.el)
;;; Version:
-;;; $Id: tm-gnus.el,v 7.20 1996/03/04 08:18:09 morioka Exp $
+;;; $Id: tm-gnus.el,v 7.21 1996/06/06 16:42:20 shuhei-k Exp $
;;; Keywords: news, MIME, multimedia, encoded-word, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
))
-;;; @ for tm-edit
-;;;
-
-;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
-;; 1995/11/08 (c.f. [tm ML:1067])
-(defun tm-gnus/insert-article (&optional message)
- (interactive)
- (let (;; for Emacs 19
- (mail-citation-hook '(mime-editor/inserted-message-filter))
- news-reply-header-hook
- mail-yank-hooks
-
- ;; for Emacs 18
- (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp)
- (news-make-reply-yank-header (function
- (lambda (message-id from) "")
- ))
- (news-yank-original-quoting-indicator "")
-
- ;; select raw article buffer
- (mail-reply-buffer
- (save-excursion
- (set-buffer gnus-article-buffer)
- (if (eq major-mode 'mime/viewer-mode)
- mime::preview/article-buffer
- gnus-article-buffer)))
- )
- (news-reply-yank-original 0)
- ))
-
-;;; modified by Steven L. Baur <steve@miranova.com>
-;;; 1995/12/6 (c.f. [tm-en:209])
-(defun mime-editor/attach-to-news-reply-menu ()
- "Arrange to attach MIME editor's popup menu to VM's"
- (if (boundp 'news-reply-menu)
- (progn
- (setq news-reply-menu (append news-reply-menu
- '("---")
- mime-editor/popup-menu-for-xemacs))
- (remove-hook 'news-setup-hook
- 'mime-editor/attach-to-news-reply-menu)
- )))
-
-(call-after-loaded
- 'tm-edit
- (function
- (lambda ()
- (set-alist
- 'mime-editor/message-inserter-alist
- 'news-reply-mode (function tm-gnus/insert-article))
-
- (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)
- (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu)
- )
- )))
-
-
;;; @ end
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1993/11/20
-;;; Version: $Revision: 7.8 $
+;;; Version: $Revision: 7.9 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-gnus3.el,v 7.8 1996/04/08 12:26:21 morioka Exp $")
+ "$Id: tm-gnus3.el,v 7.9 1996/06/06 16:44:17 shuhei-k Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for GNUS 3"))
)))
+;;; @ for tm-edit
+;;;
+
+;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
+;; 1995/11/08 (c.f. [tm ML:1067])
+(defun tm-gnus/insert-article (&optional message)
+ (interactive)
+ (let (;; for Emacs 18
+ (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp)
+ (news-make-reply-yank-header (function
+ (lambda (message-id from) "")
+ ))
+ (news-yank-original-quoting-indicator "")
+
+ ;; select raw article buffer
+ (mail-reply-buffer
+ (save-excursion
+ (set-buffer gnus-article-buffer)
+ (if (eq major-mode 'mime/viewer-mode)
+ mime::preview/article-buffer
+ gnus-article-buffer)))
+ )
+ (news-reply-yank-original 0)
+ ))
+
+(call-after-loaded
+ 'tm-edit
+ (function
+ (lambda ()
+ (set-alist
+ 'mime-editor/message-inserter-alist
+ 'news-reply-mode (function tm-gnus/insert-article))
+
+ (autoload 'tm-mail/insert-message "tm-mail")
+ (set-alist 'mime-editor/message-inserter-alist
+ 'mail-mode (function tm-mail/insert-message))
+ )))
+
+
;;; @ for tm-partial
;;;
;;; modified by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1993/11/20 (merged tm-gnus5.el)
-;;; Version: $Revision: 7.18 $
+;;; Version: $Revision: 7.19 $
;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-gnus/RCS-ID
- "$Id: tm-gnus4.el,v 7.18 1996/03/04 08:16:42 morioka Exp $")
+ "$Id: tm-gnus4.el,v 7.19 1996/06/06 16:43:42 shuhei-k Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for 3.15 .. 5.1.*"))
)))
+;;; @ for tm-edit
+;;;
+
+;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
+;; 1995/11/08 (c.f. [tm ML:1067])
+(defun tm-gnus/insert-article (&optional message)
+ (interactive)
+ (let (;; for Emacs 19
+ (mail-citation-hook '(mime-editor/inserted-message-filter))
+ news-reply-header-hook
+ mail-yank-hooks
+
+ ;; for Emacs 18
+ (mail-yank-ignored-headers mime-editor/yank-ignored-field-regexp)
+ (news-make-reply-yank-header (function
+ (lambda (message-id from) "")
+ ))
+ (news-yank-original-quoting-indicator "")
+
+ ;; select raw article buffer
+ (mail-reply-buffer
+ (save-excursion
+ (set-buffer gnus-article-buffer)
+ (if (eq major-mode 'mime/viewer-mode)
+ mime::preview/article-buffer
+ gnus-article-buffer)))
+ )
+ (news-reply-yank-original 0)
+ ))
+
+;;; modified by Steven L. Baur <steve@miranova.com>
+;;; 1995/12/6 (c.f. [tm-en:209])
+(defun mime-editor/attach-to-news-reply-menu ()
+ "Arrange to attach MIME editor's popup menu to VM's"
+ (if (boundp 'news-reply-menu)
+ (progn
+ (setq news-reply-menu (append news-reply-menu
+ '("---")
+ mime-editor/popup-menu-for-xemacs))
+ (remove-hook 'news-setup-hook
+ 'mime-editor/attach-to-news-reply-menu)
+ )))
+
+(call-after-loaded
+ 'tm-edit
+ (function
+ (lambda ()
+ (set-alist
+ 'mime-editor/message-inserter-alist
+ 'news-reply-mode (function tm-gnus/insert-article))
+
+ (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)
+ (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu)
+ )
+ )))
+
+
;;; @ for tm-partial
;;;
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
;;; Created: 1995/09/24
-;;; Version: $Revision: 7.63 $
+;;; Version: $Revision: 7.68 $
;;; 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.63 1996/05/27 03:48:56 morioka Exp $")
+ "$Id: tm-sgnus.el,v 7.68 1996/06/07 15:28:40 morioka Exp $")
(defconst tm-gnus/version
(concat (get-version-string tm-gnus/RCS-ID) " for September"))
(function mime-viewer/quitting-method-for-sgnus))
+;;; @ for tm-edit
+;;;
+
+;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
+;; 1995/11/08 (c.f. [tm ML:1067])
+(defun tm-gnus/insert-article (&optional message)
+ (interactive)
+ (let ((message-cite-function 'mime-editor/inserted-message-filter)
+ (message-reply-buffer gnus-original-article-buffer)
+ )
+ (message-yank-original nil)
+ ))
+
+;;; modified by Steven L. Baur <steve@miranova.com>
+;;; 1995/12/6 (c.f. [tm-en:209])
+(defun mime-editor/attach-to-news-reply-menu ()
+ "Arrange to attach MIME editor's popup menu to VM's"
+ (if (boundp 'news-reply-menu)
+ (progn
+ (setq news-reply-menu (append news-reply-menu
+ '("---")
+ mime-editor/popup-menu-for-xemacs))
+ (remove-hook 'news-setup-hook
+ 'mime-editor/attach-to-news-reply-menu)
+ )))
+
+(call-after-loaded
+ 'tm-edit
+ (function
+ (lambda ()
+ (set-alist
+ 'mime-editor/message-inserter-alist
+ 'message-mode (function tm-gnus/insert-article))
+ (if (string-match "XEmacs\\|Lucid" emacs-version)
+ (add-hook 'news-setup-hook 'mime-editor/attach-to-news-reply-menu)
+ )
+ )))
+
+
;;; @ for tm-partial
;;;
(call-after-loaded
'nnheader
(lambda ()
+ (defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
+ (let ((file-coding-system-for-read *noconv*))
+ (find-file-noselect filename nowarn rawfile)
+ ))
+ (defun nnheader-insert-file-contents-literally
+ (filename &optional visit beg end replace)
+ (let ((file-coding-system-for-read *noconv*))
+ (insert-file-contents-literally filename visit beg end replace)
+ ))
+ ))
+ ;; Please use Gnus 5.2.10 or later if you use Mule.
+ (call-after-loaded
+ 'nnmail
+ (lambda ()
(defun nnmail-find-file (file)
"Insert FILE in server buffer safely. [tm-sgnus.el]"
(set-buffer nntp-server-buffer)
(erase-buffer)
(let ((format-alist nil)
- (after-insert-file-functions nil)
+ (after-insert-file-functions ; for jam-code-guess
+ (if (memq 'jam-code-guess-after-insert-file-function
+ after-insert-file-functions)
+ '(jam-code-guess-after-insert-file-function)))
(file-coding-system-for-read *noconv*))
(condition-case ()
(progn (insert-file-contents file) t)
(file-error nil))))
- (defun nnheader-insert-file-contents-literally
- (filename &optional visit beg end replace)
- (let ((file-coding-system-for-read *noconv*))
- (insert-file-contents-literally filename visit beg end replace)
- ))
- ;; compatibility for September Gnus 0.80 .. 0.94
- (fset 'nnheader-insert-raw-file-contents
- 'nnheader-insert-file-contents-literally)
- (defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
- (let ((file-coding-system-for-read *noconv*))
- (find-file-noselect filename nowarn rawfile)
- ))
))
(defun tm-gnus/prepare-save-mail-function ()
(setq file-coding-system *noconv*)
;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: inst-tm,v 7.3 1996/05/28 03:40:11 morioka Exp $
+;;; $Id: inst-tm,v 7.4 1996/06/07 14:14:53 morioka Exp $
;;;
(load-file "TM-CFG")
(let ((full-path (expand-file-name file dest)))
(copy-file src-file full-path t t)
(catch 'tag
- (while t
+ (while (file-exists-p src-file)
(condition-case err
(progn
(delete-file src-file)
+Wed Jun 5 02:34:06 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tmh-comp.el: version check code was fixed for Emacs
+ 19.31. (cf. [tm-ja:1907])
+
+\f
Mon Jun 3 14:40:35 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/mh-e: Version 7.63 was released.
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1996/2/29 (separated from tm-mh-e.el)
;;; Version:
-;;; $Id: tmh-comp.el,v 7.0 1996/05/15 15:39:54 morioka Exp $
+;;; $Id: tmh-comp.el,v 7.1 1996/06/05 02:34:06 morioka Exp $
;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
mh-note-forw "Forwarded:"
config)))))
-(cond ((not (boundp 'mh-e-version))
+(cond ((not (featurep 'mh-utils))
(defun tm-mh-e::insert-letter (folder number verbatim)
(mh-insert-letter verbatim folder number)
)
)
- ((string-lessp mh-e-version "5")
+ ((and (boundp 'mh-e-version)
+ (string-lessp mh-e-version "5"))
(defun tm-mh-e::insert-letter (folder number verbatim)
(mh-insert-letter number folder verbatim)
)
;;; Copyright (C) 1993 .. 1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version: $Revision: 7.20 $
+;;; Version: $Revision: 7.21 $
;;; Keywords: mail, news, MIME, RFC 1522, multilingual, encoded-word
;;;
;;; This file is part of tm (Tools for MIME).
;;;
(defconst tm-ew-e/RCS-ID
- "$Id: tm-ew-e.el,v 7.20 1996/06/03 14:33:35 morioka Exp $")
+ "$Id: tm-ew-e.el,v 7.21 1996/06/06 15:03:38 morioka Exp $")
(defconst mime-eword/encoder-version (get-version-string tm-ew-e/RCS-ID))
))
(concat field-name ": " ret)
)))
- (tm-eword::encode-string 0 str)
+ (car (tm-eword::encode-string 0 str))
)))
(defun mime/exist-encoded-word-in-subject ()
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-parse.el,v 7.8 1996/04/20 12:17:27 morioka Exp $
+;;; $Id: tm-parse.el,v 7.9 1996/06/06 07:24:30 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia
;;;
;;; This file is part of tm (Tools for MIME).
If is is not found, return DEFAULT-ENCODING. [tm-parse.el]"
(let ((str (rfc822/get-field-body "Content-Transfer-Encoding")))
(if str
- (downcase str)
+ (progn
+ (if (string-match "[ \t\n\r]+$" str)
+ (setq str (substring str 0 (match-beginning 0)))
+ )
+ (downcase str)
+ )
default-encoding)
))
projects / elisp / tm.git / commitdiff