X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmm-view.el;h=9e6a7298a0dd7ea5f1e62e616a92c919ff51edbf;hb=a6ce7a6b7040b917517c56bcd532206acf818092;hp=9ff7036fdff3f56442db4af0c50f32a914d2a439;hpb=d6d4117ff4c971d70a9e01f60a45f650056196dc;p=elisp%2Fgnus.git-

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 9ff7036..9e6a729 100644
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -34,7 +34,8 @@
   (autoload 'vcard-parse-string "vcard")
   (autoload 'vcard-format-string "vcard")
   (autoload 'fill-flowed "flow-fill")
-  (autoload 'diff-mode "diff-mode"))
+  (unless (fboundp 'diff-mode)
+    (autoload 'diff-mode "diff-mode" "" t nil)))
 
 ;;;
 ;;; Functions for displaying various formats inline
@@ -325,8 +326,8 @@
   (mm-string-as-unibyte
    (apply 'concat
 	  (mapcar 'char-to-string
-		  (list ?\x30 ?\x82 ?\x01 ?\x91 ?\x06 ?\x09 ?\x2a ?\x86 ?\x48
-			?\x86 ?\xf7 ?\x0d ?\x01 ?\x07 ?\x02)))))
+		  (list ?\x30 ?\x82 ?\x2e ?\x2e ?\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 }
@@ -334,18 +335,18 @@
   (mm-string-as-unibyte
    (apply 'concat
 	  (mapcar 'char-to-string
-		  (list ?\x30 ?\x82 ?\x01 ?\x91 ?\x06 ?\x09 ?\x2a ?\x86 ?\x48
-			?\x86 ?\xf7 ?\x0d ?\x01 ?\x07 ?\x03)))))
+		  (list ?\x30 ?\x82 ?\x2e ?\x2e ?\x06 ?\x09 ?\x5c ?\x2a
+			?\x86 ?\x48 ?\x86 ?\xf7 ?\x0d ?\x01 ?\x07 ?\x03)))))
 
 (defun mm-view-pkcs7-get-type (handle)
-  (with-temp-buffer
-    (mm-insert-part handle)
-    (cond ((looking-at (regexp-quote mm-pkcs7-enveloped-magic))
-	   'enveloped)
-	  ((looking-at (regexp-quote mm-pkcs7-signed-magic))
-	   'signed)
-	  (t
-	   (error "Could not identify PKCS#7 type")))))
+  (mm-with-unibyte-buffer
+   (mm-insert-part handle)
+   (cond ((looking-at mm-pkcs7-enveloped-magic)
+	  'enveloped)
+	 ((looking-at mm-pkcs7-signed-magic)
+	  'signed)
+	 (t
+	  (error "Could not identify PKCS#7 type")))))
 
 (defun mm-view-pkcs7 (handle)
   (case (mm-view-pkcs7-get-type handle)