*** empty log message ***

3 files changed, 89 insertions, 0 deletions

diff --git a/app-emacs/md5/files/90md5-gentoo.el b/app-emacs/md5/files/90md5-gentoo.el
new file mode 100644
index 000000000000..dc4da50f2280
--- /dev/null
+++ b/app-emacs/md5/files/90md5-gentoo.el
@@ -0,0 +1,4 @@
+
+;;; site-lisp configuration for md5
+
+(add-to-list 'load-path "@SITELISP@")
diff --git a/app-emacs/md5/files/digest-md5-1.0-r1 b/app-emacs/md5/files/digest-md5-1.0-r1
new file mode 100644
index 000000000000..57785d7633ba
--- /dev/null
+++ b/app-emacs/md5/files/digest-md5-1.0-r1
@@ -0,0 +1 @@
+MD5 a1439b60e379ebfe279b4e32ebd06b37 md5-1.0.tar.gz 5736
diff --git a/app-emacs/md5/files/md5-1.0-gentoo.patch b/app-emacs/md5/files/md5-1.0-gentoo.patch
new file mode 100644
index 000000000000..467d54ef2af3
--- /dev/null
+++ b/app-emacs/md5/files/md5-1.0-gentoo.patch
@@ -0,0 +1,84 @@
+diff -ur md5-1.0/md5.el md5-1.0.orig/md5.el
+--- md5-1.0/md5.el	2003-11-21 23:59:30.000000000 -0600
++++ md5-1.0.orig/md5.el	2003-12-21 23:59:40.839985880 -0600
+@@ -368,39 +368,44 @@
+ ;;; Here begins the merger with the XEmacs API and the md5.el from the URL
+ ;;; package.  Courtesy wmperry@cs.indiana.edu
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+-(defun md5 (object &optional start end)
+-  "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."
+- (let ((buffer nil))
+-    (unwind-protect
+-	(save-excursion
+-	  (setq buffer (generate-new-buffer " *md5-work*"))
+-	  (set-buffer buffer)
+-	  (cond
+-	   ((bufferp object)
+-	    (insert-buffer-substring object start end))
+-	   ((stringp object)
+-	    (insert (if (or start end)
+-			(substring object start end)
+-		      object)))
+-	   (t nil))
+-	  (prog1
+-	      (if (<= (point-max) md5-maximum-internal-length)
+-		  (mapconcat
+-		   (function (lambda (node) (format "%02x" node)))
+-		   (md5-encode (buffer-string))
+-		   "")
+-		(call-process-region (point-min) (point-max)
+-				     shell-file-name
+-				     t buffer nil
+-				     shell-command-switch md5-program)
+-		;; MD5 digest is 32 chars long
+-		;; mddriver adds a newline to make neaten output for tty
+-		;; viewing, make sure we leave it behind.
+-		(buffer-substring (point-min) (+ (point-min) 32)))
+-	    (kill-buffer buffer)))
+-      (and buffer (buffer-name buffer) (kill-buffer buffer) nil))))
+ 
+-(provide 'md5)
++;; Emacs 21.3 already defines this function.
++
++;; (defun md5 (object &optional start end)
++;;   "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."
++;;  (let ((buffer nil))
++;;     (unwind-protect
++;; 	(save-excursion
++;; 	  (setq buffer (generate-new-buffer " *md5-work*"))
++;; 	  (set-buffer buffer)
++;; 	  (cond
++;; 	   ((bufferp object)
++;; 	    (insert-buffer-substring object start end))
++;; 	   ((stringp object)
++;; 	    (insert (if (or start end)
++;; 			(substring object start end)
++;; 		      object)))
++;; 	   (t nil))
++;; 	  (prog1
++;; 	      (if (<= (point-max) md5-maximum-internal-length)
++;; 		  (mapconcat
++;; 		   (function (lambda (node) (format "%02x" node)))
++;; 		   (md5-encode (buffer-string))
++;; 		   "")
++;; 		(call-process-region (point-min) (point-max)
++;; 				     shell-file-name
++;; 				     t buffer nil
++;; 				     shell-command-switch md5-program)
++;; 		;; MD5 digest is 32 chars long
++;; 		;; mddriver adds a newline to make neaten output for tty
++;; 		;; viewing, make sure we leave it behind.
++;; 		(buffer-substring (point-min) (+ (point-min) 32)))
++;; 	    (kill-buffer buffer)))
++;;       (and buffer (buffer-name buffer) (kill-buffer buffer) nil))))
++
++;; An md5 module is already provided by FLIM.
++
++(provide 'md5-digest)
+Only in md5-1.0.orig: md5.el~