Mercurial > hg > xemacs-beta

comparison lisp/tm/tmh-comp.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents fe104dbd9147
children
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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/03/16 03:05:47 steve Exp $ 9 ;; Version: $Id: tmh-comp.el,v 1.5 1997/03/22 06:02:46 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
513 '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)
514 (substitute-key-definition 514 (substitute-key-definition
515 '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)
516 516
517 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
518 ;;; @ end 543 ;;; @ end
519 ;;; 544 ;;;
520 545
521 (provide 'tmh-comp) 546 (provide 'tmh-comp)
522 (require 'tm-mh-e) 547 (require 'tm-mh-e)