From 8174a4ba6588ad93e624a09498a289e633c83fae Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 10 Mar 1998 18:11:01 +0000 Subject: [PATCH] semi 0.75. --- mu-cite.el | 21 ++++----------------- 1 file changed, 4 insertions(+), 17 deletions(-) diff --git a/mu-cite.el b/mu-cite.el index 85975e0..eb99191 100644 --- a/mu-cite.el +++ b/mu-cite.el @@ -6,7 +6,7 @@ ;; MINOURA Makoto ;; Shuhei KOBAYASHI ;; Maintainer: Shuhei KOBAYASHI -;; Version: $Revision: 7.48 $ +;; Version: $Revision: 7.49 $ ;; 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.48 1997/03/10 06:13:17 shuhei-k Exp $") + "$Id: mu-cite.el,v 7.49 1997/03/18 15:07:56 morioka Exp $") (defconst mu-cite/version (get-version-string mu-cite/RCS-ID)) @@ -95,21 +95,8 @@ Use this hook to add your own methods to `mu-cite/default-methods-alist'.") ;;; @ field ;;; -(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) - )) - ))))) +(defvar mu-cite/get-field-value-method-alist nil + "Alist major-mode vs. function to get field-body of header.") (defun mu-cite/get-field-value (name) (or (std11-field-body name) -- 1.7.10.4