- ;; XEmacs 20
- (defalias 'pop3-md5 'md5)
- ;; Emacs 21 or XEmacs 21
- (defun pop3-md5 (string)
- (md5 string nil nil 'binary)))
- ;; The lisp function provided by FLIM
+ ;; Emacs 21 or XEmacs 21
+ ;; (md5 OBJECT &optional START END CODING-SYSTEM NOERROR)
+ (defun pop3-md5 (string)
+ (md5 string nil nil 'binary))
+ ;; The reason why the program reaches here:
+ ;; 1. XEmacs 20 is running and the built-in `md5' doesn't
+ ;; allow the 4th argument.
+ ;; 2. `md5' has been defined by one of some lisp libraries.
+ ;; 3. This file is being compiled in the Gnus source tree,
+ ;; and `md5' has been defined in lpath.el.
+ (defalias 'pop3-md5 'md5))
+ ;; The lisp function will be provided by FLIM or other libraries.