X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mu-cite.el;fp=mu-cite.el;h=85975e0e17d0d1993572b8cb70008d6c821df558;hb=90fe24428dbf647aba48bf3c1d107bbcd62e2ea3;hp=eb991914e152dc1220392964ac61709717cebf56;hpb=850bf76ecf524580fc9cb62b3095bc2ed68f6938;p=elisp%2Fmu-cite.git

diff --git a/mu-cite.el b/mu-cite.el
index eb99191..85975e0 100644
--- a/mu-cite.el
+++ b/mu-cite.el
@@ -6,7 +6,7 @@
 ;;         MINOURA Makoto <minoura@netlaputa.or.jp>
 ;;         Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
 ;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Version: $Revision: 7.49 $
+;; Version: $Revision: 7.48 $
 ;; Keywords: mail, news, citation
 
 ;; This file is part of MU (Message Utilities).
@@ -54,7 +54,7 @@
 ;;;
 
 (defconst mu-cite/RCS-ID
-  "$Id: mu-cite.el,v 7.49 1997/03/18 15:07:56 morioka Exp $")
+  "$Id: mu-cite.el,v 7.48 1997/03/10 06:13:17 shuhei-k Exp $")
 (defconst mu-cite/version (get-version-string mu-cite/RCS-ID))
 
 
@@ -95,8 +95,21 @@ Use this hook to add your own methods to `mu-cite/default-methods-alist'.")
 ;;; @ field
 ;;;
 
-(defvar mu-cite/get-field-value-method-alist nil
-  "Alist major-mode vs. function to get field-body of header.")
+(defvar mu-cite/get-field-value-method-alist
+  (list (cons 'mh-letter-mode
+	      (function
+	       (lambda (name)
+		 (if (and (stringp mh-sent-from-folder)
+			  (numberp mh-sent-from-msg))
+		     (save-excursion
+		       (set-buffer mh-sent-from-folder)
+		       (set-buffer mh-show-buffer)
+		       (and (boundp 'mime::preview/article-buffer)
+			    (bufferp mime::preview/article-buffer)
+			    (set-buffer mime::preview/article-buffer))
+		       (std11-field-body name)
+		       ))
+		 )))))
 
 (defun mu-cite/get-field-value (name)
   (or (std11-field-body name)