From 339be9a6796b66d913e32fb0f28072cd29cd9dc8 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Sat, 4 Aug 2001 19:54:31 +0000 Subject: [PATCH] 2001-08-04 Simon Josefsson * mm-view.el (mm-pkcs7-signed-magic): Support more ASN.1 lengths. --- lisp/ChangeLog | 4 ++++ lisp/mm-view.el | 12 ++++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a8a8553ee..68147c72b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-08-04 Simon Josefsson + + * mm-view.el (mm-pkcs7-signed-magic): Support more ASN.1 lengths. + 2001-08-04 Simon Josefsson * gnus-cache.el (gnus-cache-fully-p) diff --git a/lisp/mm-view.el b/lisp/mm-view.el index 14ddd458a..280c364aa 100644 --- 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 -- 2.34.1