(eval-when-compile
(require 'cl))
-(eval-and-compile
- (require 'sha1-el)
- (condition-case nil
- (sha1 "" nil nil 'binary)
- (wrong-number-of-arguments
- (let ((mel (locate-library "mel")))
- (when mel
- (load (expand-file-name "sha1-el" (file-name-directory mel))
- nil t))))))
+(require 'sha1)
(defvar mail-header-separator)