Mercurial > hg > xemacs-beta

comparison lisp/mu/mu-cite.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 ;; MINOURA Makoto <minoura@netlaputa.or.jp> 6 ;; MINOURA Makoto <minoura@netlaputa.or.jp>
7 ;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> 7 ;; Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
8 ;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> 8 ;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
9 ;; Version: $Revision: 1.5 $ 9 ;; Version: $Revision: 1.6 $
10 ;; Keywords: mail, news, citation 10 ;; Keywords: mail, news, citation
11 11
12 ;; This file is part of MU (Message Utilities). 12 ;; This file is part of MU (Message Utilities).
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
52 52
53 ;;; @ version 53 ;;; @ version
54 ;;; 54 ;;;
55 55
56 (defconst mu-cite/RCS-ID 56 (defconst mu-cite/RCS-ID
57 "$Id: mu-cite.el,v 1.5 1997/03/16 03:05:20 steve Exp $") 57 "$Id: mu-cite.el,v 1.6 1997/03/22 06:02:28 steve Exp $")
58 (defconst mu-cite/version (get-version-string mu-cite/RCS-ID)) 58 (defconst mu-cite/version (get-version-string mu-cite/RCS-ID))
59 59
60 60
61 ;;; @ formats 61 ;;; @ formats
62 ;;; 62 ;;;
93 93
94 94
95 ;;; @ field 95 ;;; @ field
96 ;;; 96 ;;;
97 97
98 (defvar mu-cite/get-field-value-method-alist 98 (defvar mu-cite/get-field-value-method-alist nil
99 (list (cons 'mh-letter-mode 99 "Alist major-mode vs. function to get field-body of header.")
100 (function
101 (lambda (name)
102 (if (and (stringp mh-sent-from-folder)
103 (numberp mh-sent-from-msg))
104 (save-excursion
105 (set-buffer mh-sent-from-folder)
106 (set-buffer mh-show-buffer)
107 (and (boundp 'mime::preview/article-buffer)
108 (bufferp mime::preview/article-buffer)
109 (set-buffer mime::preview/article-buffer))
110 (std11-field-body name)
111 ))
112 )))))
113 100
114 (defun mu-cite/get-field-value (name) 101 (defun mu-cite/get-field-value (name)
115 (or (std11-field-body name) 102 (or (std11-field-body name)
116 (let ((method (assq major-mode mu-cite/get-field-value-method-alist))) 103 (let ((method (assq major-mode mu-cite/get-field-value-method-alist)))
117 (if method 104 (if method