From 773f7fddd11fcff5b717850e71da6abd6fd445e2 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Thu, 4 Nov 1999 06:08:47 +0000
Subject: [PATCH] * pgg-parse.el (pgg-decode-packets): Don't use
 `mime-encode-string'. (pgg-ignore-packet-checksum): Default
 to t.

---
 pgg-parse.el |   12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/pgg-parse.el b/pgg-parse.el
index 0154ea6..9df4386 100644
--- a/pgg-parse.el
+++ b/pgg-parse.el
@@ -92,7 +92,7 @@
   :group 'pgg-parse
   :type 'alist)
 
-(defcustom pgg-ignore-packet-checksum (featurep 'xemacs); XXX
+(defcustom pgg-ignore-packet-checksum t; XXX
   "If non-nil checksum of each ascii armored packet will be ignored."
   :group 'pgg-parse
   :type 'boolean)
@@ -475,11 +475,11 @@
     (mime-decode-region (point-min) marker "base64")
     (static-when (fboundp 'pgg-parse-crc24-string )
       (or pgg-ignore-packet-checksum
-	  (string-equal (mime-encode-string 
-			 (pgg-parse-crc24-string 
-			  (buffer-substring (point-min)(point-max)))
-			 "base64")
-			checksum)
+	  (string-equal 
+	   (funcall (mel-find-function 'mime-encode-string "base64")
+		    (pgg-parse-crc24-string 
+		     (buffer-substring (point-min)(point-max))))
+	   checksum)
 	  (error "PGP packet checksum does not match.")))))
 
 (defun pgg-decode-armor-region (start end)
-- 
1.7.10.4