From: yamaoka <yamaoka>
Date: Fri, 19 Nov 1999 13:17:27 +0000 (+0000)
Subject: (md5): Allow the optional 4th and 5th arguments `coding' and `noerror' for
X-Git-Tag: t-gnus-6_13_3-01~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6bacc07bfcde6033c6050a98fc2988b8493a50cb;p=elisp%2Fgnus.git-

(md5): Allow the optional 4th and 5th arguments `coding' and `noerror' for
the stopgaps.
---

diff --git a/lisp/md5.el b/lisp/md5.el
index 91a3041..a6c19aa 100644
--- a/lisp/md5.el
+++ b/lisp/md5.el
@@ -369,11 +369,15 @@ Returns a vector of 16 bytes containing the message digest."
 ;;; Here begins the merger with the XEmacs API and the md5.el from the URL
 ;;; package.  Courtesy wmperry@spry.com
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(defun md5 (object &optional start end)
+(defun md5 (object &optional start end coding noerror)
   "Return the MD5 (a secure message digest algorithm) of an object.
 OBJECT is either a string or a buffer.
 Optional arguments START and END denote buffer positions for computing the
-hash of a portion of OBJECT."
+hash of a portion of OBJECT.
+
+The optional CODING and NOERROR arguments are ignored.  They are only
+placeholders to ensure the compatibility with XEmacsen with file-coding or
+Mule support."
  (let ((buffer nil))
     (unwind-protect
 	(save-excursion