From: ueno <ueno>
Date: Tue, 2 Nov 1999 18:19:21 +0000 (+0000)
Subject: (pgg-parse-length-type): Fix typo.
X-Git-Tag: emiko-1_13_7~111
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9242340dede3859111e523ff07f1577bc99c2384;p=elisp%2Fsemi.git

(pgg-parse-length-type): Fix typo.
(pgg-parse-public-key-encrypted-session-key-packet): Use
`pgg-read-bytes-string' instead of `pgg-read-bytes'.
---

diff --git a/pgg-parse.el b/pgg-parse.el
index b8c82f7..71a1019 100644
--- a/pgg-parse.el
+++ b/pgg-parse.el
@@ -188,7 +188,7 @@
 			 (pgg-byte-after (+ 5 (point)))))
 	   5))
     (t;partial body length
-     '(0 0))))
+     '(0 . 0))))
 
 (defun pgg-parse-packet-header ()
   (let ((ptag (pgg-byte-after))
@@ -406,7 +406,8 @@
 		   'version (pgg-read-byte))
     (pgg-set-alist result
 		   'public-key-identifier
-		   (pgg-format-key-identifier (pgg-read-bytes 8)))
+		   (pgg-format-key-identifier 
+		    (pgg-read-bytes-string 8)))
     (pgg-set-alist result
 		   'public-key-algorithm
 		   (cdr (assq (pgg-read-byte)