Mercurial > hg > xemacs-beta
diff lisp/mu/mu-cite.el @ 114:8619ce7e4c50 r20-1b9
Import from CVS: tag r20-1b9
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:21:54 +0200 |
| parents | fe104dbd9147 |
| children |
line wrap: on
line diff
--- a/lisp/mu/mu-cite.el Mon Aug 13 09:20:50 2007 +0200 +++ b/lisp/mu/mu-cite.el Mon Aug 13 09:21:54 2007 +0200 @@ -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: 1.5 $ +;; Version: $Revision: 1.6 $ ;; 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 1.5 1997/03/16 03:05:20 steve Exp $") + "$Id: mu-cite.el,v 1.6 1997/03/22 06:02:28 steve Exp $") (defconst mu-cite/version (get-version-string mu-cite/RCS-ID)) @@ -95,21 +95,8 @@ ;;; @ 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)