+Thu Aug 1 06:42:04 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.43.2 was released.
+ * tm: Version 7.75 was released.
+ * tm/mh-e: Version 7.65.1 was released.
+
+ * tm-image.el: Function `bitmap-show-xbm-file' was renamed to
+ `bitmap-insert-xbm-file'.
+
+ Function `bitmap-decode-x-face' was renamed to
+ `x-face-decode-message-header'.
+
+Wed Jul 31 02:51:16 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-edit.el (mime-editor/split-message-sender-alist):
+ implementation for mh-letter-mode was moved to
+ tm/mh-e/tmh-comp.el.
+
+Mon Jul 29 01:13:20 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-text.el (mime-charset/maybe-decode-buffer):
+ fixed. (cf. [tm-en:629])
+
+Fri Jul 26 19:43:26 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm-image.el: Function `bitmap-read-xbm' was renamed to
+ `bitmap-show-xbm-file'.
+
+\f
Wed Jul 24 10:33:16 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm: Version 7.74 was released.
FILES = $(TM_FILES) $(TM_MUA_FILES) $(MEL_FILES) $(TL_FILES)
-TARFILE = tm7.74.tar.gz
+TARFILE = tm7.75.tar.gz
elc:
$(EMACS) $(FLAGS) -l inst-tm -f compile-tm
+Thu Aug 1 07:43:19 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tm/mh-e: Version 7.65.1 was released.
+
+Wed Jul 31 03:07:43 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tmh-comp.el: Implementation for
+ `mime-editor/split-message-sender-alist' was moved from
+ tm-edit.el.
+
+Sun Jul 28 04:23:07 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tmh-comp.el (tm-mh-e/yank-cur-msg-with-no-filter): New function.
+
+ * tmh-comp.el: Function `tm-mh-e/yank-cur-msg' was renamed to
+ `tm-mh-e/yank-current-message'.
+
+ * tmh-comp.el (tm-mh-e/message-yank-function): New variable.
+ (tm-mh-e/yank-cur-msg): Use variable
+ `tm-mh-e/message-yank-function'.
+
+\f
Wed Jul 24 10:07:45 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tm/mh-e: Version 7.65 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.1 1996/06/05 02:34:06 morioka Exp $
+;;; $Id: tmh-comp.el,v 7.5 1996/07/31 03:07:43 morioka Exp $
;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
;;;
;;; This file is part of tm (Tools for MIME).
is searched for first in the user's MH directory, then in the
system MH lib directory.")
+(defvar tm-mh-e/message-yank-function 'mh-yank-cur-msg)
+
;;; @ for tm-edit
;;;
'mh-letter-mode (function tm-mh-e/insert-mail))
(set-alist 'mime-editor/mail-inserter-alist
'news-reply-mode (function tm-mh-e/insert-mail))
+(set-alist
+ 'mime-editor/split-message-sender-alist
+ 'mh-letter-mode
+ (function
+ (lambda (&optional arg)
+ (interactive "P")
+ (write-region (point-min) (point-max)
+ mime-editor/draft-file-name nil 'no-message)
+ (cond (arg
+ (pop-to-buffer "MH mail delivery")
+ (erase-buffer)
+ (mh-exec-cmd-output mh-send-prog t "-watch" "-nopush"
+ "-nodraftfolder"
+ mh-send-args
+ mime-editor/draft-file-name)
+ (goto-char (point-max)) ; show the interesting part
+ (recenter -1)
+ (sit-for 1))
+ (t
+ (apply 'mh-exec-cmd-quiet t mh-send-prog
+ (mh-list-to-string
+ (list "-nopush" "-nodraftfolder"
+ "-noverbose" "-nowatch"
+ mh-send-args mime-editor/draft-file-name)))))
+ )))
;;; @ commands using tm-edit features
(number (tm-mh-e/prompt-for-message "Message number: " folder)))
(tm-mh-e::insert-letter folder number verbatim)))
-(defun tm-mh-e/yank-cur-msg ()
- "Interface to mh-yank-cur-msg."
+(defun tm-mh-e/yank-cur-msg-with-no-filter ()
+ "Insert the current message into the draft buffer.
+This function makes new show-buffer from article-buffer to disable
+variable `mime-viewer/plain-text-preview-hook'. If you don't want to
+use text filters for replying message, please set it to
+`tm-mh-e/message-yank-function'.
+Prefix each non-blank line in the message with the string in
+`mh-ins-buf-prefix'. The entire message will be inserted if
+`mh-yank-from-start-of-msg' is non-nil. If this variable is nil, the
+portion of the message following the point will be yanked. If
+`mh-delete-yanked-msg-window' is non-nil, any window displaying the
+yanked message will be deleted."
+ (interactive)
+ (if (and mh-sent-from-folder mh-sent-from-msg)
+ (let ((to-point (point))
+ (to-buffer (current-buffer)))
+ (set-buffer mh-sent-from-folder)
+ (if mh-delete-yanked-msg-window
+ (delete-windows-on mh-show-buffer))
+ (set-buffer mh-show-buffer) ; Find displayed message
+ (let ((mh-ins-str
+ (let (mime-viewer/plain-text-preview-hook buf)
+ (prog1
+ (save-window-excursion
+ (set-buffer mime::preview/article-buffer)
+ (setq buf (mime/viewer-mode))
+ (buffer-string)
+ )
+ (kill-buffer buf)))))
+ (set-buffer to-buffer)
+ (save-restriction
+ (narrow-to-region to-point to-point)
+ (push-mark)
+ (insert mh-ins-str)
+ (mh-insert-prefix-string mh-ins-buf-prefix)
+ (insert "\n"))))
+ (error "There is no current message")))
+
+(defun tm-mh-e/yank-current-message ()
+ "Insert the current message into the draft buffer.
+It uses variable `tm-mh-e/message-yank-function'
+to select message yanking function."
(interactive)
(let ((mh-sent-from-folder mh-sent-from-folder)
(mh-sent-from-msg mh-sent-from-msg))
(set-buffer gnus-article-buffer)
(setq mh-show-buffer (current-buffer))
)))
- (mh-yank-cur-msg)
+ (funcall tm-mh-e/message-yank-function)
))
(substitute-key-definition
- 'mh-yank-cur-msg 'tm-mh-e/yank-cur-msg mh-letter-mode-map)
+ 'mh-yank-cur-msg 'tm-mh-e/yank-current-message mh-letter-mode-map)
(substitute-key-definition
'mh-insert-letter 'tm-mh-e/insert-letter mh-letter-mode-map)
;;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1994/08/21 renamed from mime.el
-;;; Version: $Revision: 7.74 $
+;;; Version: $Revision: 7.75 $
;;; 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.74 1996/07/24 10:27:07 morioka Exp $")
+ "$Id: tm-edit.el,v 7.75 1996/07/31 02:51:16 morioka Exp $")
(defconst mime-editor/version (get-version-string mime-editor/RCS-ID))
(defvar mime-editor/split-blind-field-regexp
"\\(^[BDFbdf]cc:\\|^cc:[ \t]*$\\)")
-(defvar mime-editor/split-message-sender-alist
- '((mh-letter-mode
- . (lambda (&optional arg)
- (interactive "P")
- (write-region (point-min) (point-max)
- mime-editor/draft-file-name nil 'no-message)
- (cond (arg
- (pop-to-buffer "MH mail delivery")
- (erase-buffer)
- (mh-exec-cmd-output mh-send-prog t "-watch" "-nopush"
- "-nodraftfolder"
- mh-send-args mime-editor/draft-file-name)
- (goto-char (point-max)) ; show the interesting part
- (recenter -1)
- (sit-for 1))
- (t
- (apply 'mh-exec-cmd-quiet t mh-send-prog
- (mh-list-to-string
- (list "-nopush" "-nodraftfolder"
- "-noverbose" "-nowatch"
- mh-send-args mime-editor/draft-file-name)))))
- ))
- ))
+(defvar mime-editor/split-message-sender-alist nil)
(defvar mime-editor/news-reply-mode-server-running nil)
;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Created: 1995/12/15
;;; Version:
-;;; $Id: tm-image.el,v 7.10 1996/07/15 19:21:48 morioka Exp $
+;;; $Id: tm-image.el,v 7.12 1996/08/01 06:42:04 morioka Exp $
;;;
;;; Keywords: mail, news, MIME, multimedia, image, picture
;;;
)
)))
- (defun bitmap-read-xbm (file)
+ (defun bitmap-insert-xbm-file (file)
(let (gl)
(while (progn
(setq gl (make-glyph file))
))
)
((boundp 'MULE)
- (require 'bitmap)
+ (require 'x-face-mule)
(defvar tm-image/inline-image-types '("image/x-mag" "image/x-xbm"))
- (defvar mime-preview/x-face-function (function bitmap-decode-x-face))
+ (defvar mime-preview/x-face-function
+ (function x-face-decode-message-header))
))
(defvar mime-viewer/shell-command "/bin/sh")
xbm-file))
(while (not (file-exists-p xbm-file)))
(delete-region beg end)
- (bitmap-read-xbm xbm-file)
+ (bitmap-insert-xbm-file xbm-file)
(condition-case nil
(delete-file xbm-file)
(error nil))
(mime-decode-region beg end encoding)
(write-region (point-min)(point-max) xbm-file)
(delete-region (point-min)(point-max))
- (bitmap-read-xbm xbm-file)
+ (bitmap-insert-xbm-file xbm-file)
(delete-file xbm-file)
))
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: tm-text.el,v 7.20 1996/07/18 12:46:20 morioka Exp $
+;;; $Id: tm-text.el,v 7.21 1996/07/29 01:13:20 morioka Exp $
;;; Keywords: mail, news, MIME, multimedia, text
;;;
;;; This file is part of tm (Tools for MIME).
(defun mime-charset/maybe-decode-buffer (charset &optional encoding)
(or (member encoding '(nil "7bit" "8bit" "binary"))
- (mime-charset/decode-buffer beg end charset)
+ (mime-charset/decode-buffer charset)
))
(defun mime-preview/decode-text-buffer (charset encoding)
projects / elisp / tm.git / commitdiff