Mercurial > hg > xemacs-beta

comparison lisp/tm/tmh-comp.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents c0c698873ce1
children fe104dbd9147
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
1 ;;; tm-mh-e.el --- tm-mh-e functions for composing messages 1 ;;; tm-mh-e.el --- tm-mh-e functions for composing messages
2 2
3 ;; Copyright (C) 1993,1994,1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993,1994,1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp> 6 ;; OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp> 7 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
8 ;; Created: 1996/2/29 (separated from tm-mh-e.el) 8 ;; Created: 1996/2/29 (separated from tm-mh-e.el)
9 ;; Version: $Id: tmh-comp.el,v 1.2 1996/12/28 21:03:16 steve Exp $ 9 ;; Version: $Id: tmh-comp.el,v 1.3 1997/02/15 22:21:31 steve Exp $
10 ;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual 10 ;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
11 11
12 ;; This file is part of tm (Tools for MIME). 12 ;; This file is part of tm (Tools for MIME).
13 13
14 ;; This program is free software; you can redistribute it and/or 14 ;; This program is free software; you can redistribute it and/or
462 (set-buffer mh-sent-from-folder) 462 (set-buffer mh-sent-from-folder)
463 (if mh-delete-yanked-msg-window 463 (if mh-delete-yanked-msg-window
464 (delete-windows-on mh-show-buffer)) 464 (delete-windows-on mh-show-buffer))
465 (set-buffer mh-show-buffer) ; Find displayed message 465 (set-buffer mh-show-buffer) ; Find displayed message
466 (let ((mh-ins-str 466 (let ((mh-ins-str
467 (let (mime-viewer/plain-text-preview-hook buf) 467 (if mime::preview/article-buffer
468 (prog1 468 (let (mime-viewer/plain-text-preview-hook buf)
469 (save-window-excursion 469 (prog1
470 (set-buffer mime::preview/article-buffer) 470 (save-window-excursion
471 (setq buf (mime/viewer-mode)) 471 (set-buffer mime::preview/article-buffer)
472 (buffer-string) 472 (setq buf (mime/viewer-mode))
473 ) 473 (buffer-string)
474 (kill-buffer buf))))) 474 )
475 (kill-buffer buf)
476 ))
477 (buffer-string)
478 )))
475 (set-buffer to-buffer) 479 (set-buffer to-buffer)
476 (save-restriction 480 (save-restriction
477 (narrow-to-region to-point to-point) 481 (narrow-to-region to-point to-point)
478 (push-mark) 482 (push-mark)
479 (insert mh-ins-str) 483 (insert mh-ins-str)