-(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.")