2001-08-04 Simon Josefsson <jas@extundo.com>

	* mm-view.el (mm-pkcs7-signed-magic): Support more ASN.1 lengths.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8a8553..68147c7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-04  Simon Josefsson  <jas@extundo.com>
+
+       * mm-view.el (mm-pkcs7-signed-magic): Support more ASN.1 lengths.
+
 2001-08-04  Simon Josefsson  <jas@extundo.com>
 
        * gnus-cache.el (gnus-cache-fully-p)

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 14ddd45..280c364 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -326,8 +326,10 @@
   (mm-string-as-unibyte
    (apply 'concat
          (mapcar 'char-to-string
-                 (list ?\x30 ?\x82 ?\x2e ?\x2e ?\x06 ?\x09 ?\x5c ?\x2a
-                       ?\x86 ?\x48 ?\x86 ?\xf7 ?\x0d ?\x01 ?\x07 ?\x02)))))
+                 (list ?\x30 ?\x5c ?\x28 ?\x80 ?\x5c ?\x7c ?\x81 ?\x2e ?\x5c
+                       ?\x7c ?\x82 ?\x2e ?\x2e ?\x5c ?\x7c ?\x83 ?\x2e ?\x2e
+                       ?\x2e ?\x5c ?\x29 ?\x06 ?\x09 ?\x5c ?\x2a ?\x86 ?\x48
+                       ?\x86 ?\xf7 ?\x0d ?\x01 ?\x07 ?\x02)))))
   
 ;;      id-envelopedData OBJECT IDENTIFIER ::= { iso(1) member-body(2)
 ;;          us(840) rsadsi(113549) pkcs(1) pkcs7(7) 3 }
@@ -335,8 +337,10 @@
   (mm-string-as-unibyte
    (apply 'concat
          (mapcar 'char-to-string
-                 (list ?\x30 ?\x82 ?\x2e ?\x2e ?\x06 ?\x09 ?\x5c ?\x2a
-                       ?\x86 ?\x48 ?\x86 ?\xf7 ?\x0d ?\x01 ?\x07 ?\x03)))))
+                 (list ?\x30 ?\x5c ?\x28 ?\x80 ?\x5c ?\x7c ?\x81 ?\x2e ?\x5c
+                       ?\x7c ?\x82 ?\x2e ?\x2e ?\x5c ?\x7c ?\x83 ?\x2e ?\x2e
+                       ?\x2e ?\x5c ?\x29 ?\x06 ?\x09 ?\x5c ?\x2a ?\x86 ?\x48
+                       ?\x86 ?\xf7 ?\x0d ?\x01 ?\x07 ?\x03)))))
   
 (defun mm-view-pkcs7-get-type (handle)
   (mm-with-unibyte-buffer