Mercurial > hg > xemacs-beta

comparison lisp/tm/tmh-comp.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 0d2f883870bc
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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.3 1997/02/15 22:21:31 steve Exp $ 9 ;; Version: $Id: tmh-comp.el,v 1.4 1997/03/16 03:05:47 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
223 (cond ((and mh-draft-folder (equal from-folder mh-draft-folder)) 223 (cond ((and mh-draft-folder (equal from-folder mh-draft-folder))
224 (let ((name (format "draft-%d" msg))) 224 (let ((name (format "draft-%d" msg)))
225 (if (get-buffer name) 225 (if (get-buffer name)
226 (throw 'tag (pop-to-buffer name)) 226 (throw 'tag (pop-to-buffer name))
227 ) 227 )
228 (let ((file-coding-system-for-read *noconv*) 228 (let ((filename (mh-msg-filename msg mh-draft-folder)))
229 (filename
230 (mh-msg-filename msg mh-draft-folder)
231 ))
232 (set-buffer (get-buffer-create name)) 229 (set-buffer (get-buffer-create name))
233 (insert-file-contents filename) 230 (as-binary-input-file (insert-file-contents filename))
234 (setq buffer-file-name filename) 231 (setq buffer-file-name filename)
235 (setq code-conversion t) 232 (setq code-conversion t)
236 ) 233 )
237 (pop-to-buffer name) 234 (pop-to-buffer name)
238 (if (re-search-forward "^-+$" nil t) 235 (if (re-search-forward "^-+$" nil t)
239 (replace-match "") 236 (replace-match "")
240 ) 237 )
241 name)) 238 name))
242 (t 239 (t
243 (prog1 240 (prog1
244 (let ((file-coding-system-for-read *noconv*)) 241 (as-binary-input-file
245 (mh-read-draft "clean-up" (mh-msg-filename msg) nil) 242 (mh-read-draft "clean-up" (mh-msg-filename msg) nil)
246 ) 243 )
247 (setq code-conversion t) 244 (setq code-conversion t)
248 )))) 245 ))))
249 ) 246 )
250 (goto-char (point-min)) 247 (goto-char (point-min))
251 (mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil) 248 (mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil)