-;; This part will be abolished in the future.
-
-(eval-when-compile
- (require 'static)
- (defmacro 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)
- (dolist (def (mu-cite-obsolete-variable-alist))
- (apply (function define-obsolete-variable-alias) def)))
-
-(define-obsolete-function-alias
- (function mu-cite/cite-original) (function mu-cite-original))
-(define-obsolete-function-alias
- (function mu-cite/get-field-value) (function mu-cite-get-field-value))
-(define-obsolete-function-alias
- (function mu-cite/get-value) (function 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))))