Mercurial > hg > xemacs-beta

comparison lisp/tm/tmh-comp.el @ 40:7e54bd776075 r19-15b103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b103
author cvs
date Mon, 13 Aug 2007 08:54:25 +0200
parents 0293115a14e9
children 131b0175ea99
comparison
equal deleted inserted replaced
39:06f275776fba 40:7e54bd776075
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.4 1997/02/02 05:06:21 steve Exp $ 9 ;; Version: $Id: tmh-comp.el,v 1.5 1997/03/22 05:29:25 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)
516 'mh-yank-cur-msg 'tm-mh-e/yank-current-message mh-letter-mode-map) 513 'mh-yank-cur-msg 'tm-mh-e/yank-current-message mh-letter-mode-map)
517 (substitute-key-definition 514 (substitute-key-definition
518 'mh-insert-letter 'tm-mh-e/insert-letter mh-letter-mode-map) 515 'mh-insert-letter 'tm-mh-e/insert-letter mh-letter-mode-map)
519 516
520 517
518 ;;; @ for mu-cite
519 ;;;
520
521 (call-after-loaded
522 'mu-cite
523 (function
524 (lambda ()
525 (set-alist 'mu-cite/get-field-value-method-alist
526 'mh-letter-mode
527 (function
528 (lambda (name)
529 (if (and (stringp mh-sent-from-folder)
530 (numberp mh-sent-from-msg))
531 (save-excursion
532 (set-buffer mh-sent-from-folder)
533 (set-buffer mh-show-buffer)
534 (and (boundp 'mime::preview/article-buffer)
535 (bufferp mime::preview/article-buffer)
536 (set-buffer mime::preview/article-buffer))
537 (std11-field-body name)
538 ))
539 )))
540 )))
541
542
521 ;;; @ end 543 ;;; @ end
522 ;;; 544 ;;;
523 545
524 (provide 'tmh-comp) 546 (provide 'tmh-comp)
525 (require 'tm-mh-e) 547 (require 'tm-mh-e)