From: ueno <ueno>
Date: Thu, 4 Nov 1999 06:08:47 +0000 (+0000)
Subject: * pgg-parse.el (pgg-decode-packets): Don't use `mime-encode-string'.
X-Git-Tag: emiko-1_13_7~78
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=773f7fddd11fcff5b717850e71da6abd6fd445e2;p=elisp%2Fsemi.git

* pgg-parse.el (pgg-decode-packets): Don't use `mime-encode-string'.
(pgg-ignore-packet-checksum): Default to t.
---

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)