-;; This part will be abolished in the future.
-
-(eval-when-compile (require 'static))
-
-(defconst mu-cite-obsolete-variable-alist
- '((mu-cite/cited-prefix-regexp mu-cite-cited-prefix-regexp)
- (mu-cite/default-methods-alist mu-cite-default-methods-alist)
- (mu-cite/get-field-value-method-alist
- mu-cite-get-field-value-method-alist)
- (mu-cite/instantiation-hook mu-cite-instantiation-hook)
- (mu-cite/ml-count-field-list mu-cite-ml-count-field-list)
- (mu-cite/post-cite-hook mu-cite-post-cite-hook)
- (mu-cite/pre-cite-hook mu-cite-pre-cite-hook)
- (mu-cite/prefix-format mu-cite-prefix-format)
- (mu-cite/top-format mu-cite-top-format)))
-
-(static-if (featurep 'xemacs)
- (mapcar
- (function (lambda (elem)
- (apply (function define-obsolete-variable-alias) elem)))
- mu-cite-obsolete-variable-alist))
-
-(mapcar
- (function (lambda (elem)
- (apply (function define-obsolete-function-alias) elem)))
- '((mu-cite/cite-original mu-cite-original)
- (mu-cite/get-field-value mu-cite-get-field-value)
- (mu-cite/get-value mu-cite-get-value)))
+(defmacro mu-cite-remove-text-properties (string)
+ "Remove text properties from STRING which is read from minibuffer."
+ (if (or (featurep 'xemacs)
+ (boundp 'minibuffer-allow-text-properties);; Emacs 20.1 or later.
+ (not (fboundp 'set-text-properties)));; under Emacs 19.7.
+ string
+ (` (let ((obj (copy-sequence (, string))))
+ (set-text-properties 0 (length obj) nil obj)
+ obj))))