[Emacs-diffs] trunk r112907: lisp/gnus/mm-view.el (mm-pkcs7-signed-magic, mm-pkcs7-enveloped-magic): Correct PKCS7 regexps to match messages with 0x0a bytes

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 112907
revision-id: address@hidden
parent: address@hidden
author: Roy Hashimoto <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-06-10 05:17:51 +0000
message:
  lisp/gnus/mm-view.el (mm-pkcs7-signed-magic, mm-pkcs7-enveloped-magic): 
Correct PKCS7 regexps to match messages with 0x0a bytes

=== modified file 'doc/misc/epa.texi'
--- a/doc/misc/epa.texi 2013-06-10 00:32:49 +0000
+++ b/doc/misc/epa.texi 2013-06-10 05:17:51 +0000
@@ -240,9 +240,8 @@
 @node Cryptographic operations on files
 @section Cryptographic operations on files
 
address@hidden Command epa-decrypt-file file &optional output
-Decrypt @var{file}.  If you do not specify the name @var{output} to
-use for the decrypted file, this function prompts for the value to use.
address@hidden Command epa-decrypt-file file
+Decrypt @var{file}.
 @end deffn
 
 @deffn Command epa-verify-file file

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-06-06 22:18:53 +0000
+++ b/lisp/gnus/ChangeLog       2013-06-10 05:17:51 +0000
@@ -1,3 +1,9 @@
+2013-06-10  Roy Hashimoto  <address@hidden>  (tiny change)
+
+       * mm-view.el (mm-pkcs7-signed-magic): Allow newline in the regexp and
+       make it easier to read.
+       (mm-pkcs7-enveloped-magic): Ditto.
+
 2013-06-06  Teodor Zlatanov  <address@hidden>
 
        * gnus-ems.el (gnus-image-type-available-p): Test `display-images-p'

=== modified file 'lisp/gnus/mm-view.el'
--- a/lisp/gnus/mm-view.el      2013-01-01 09:11:05 +0000
+++ b/lisp/gnus/mm-view.el      2013-06-10 05:17:51 +0000
@@ -660,14 +660,26 @@
 ;;      id-signedData OBJECT IDENTIFIER ::= { iso(1) member-body(2)
 ;;          us(840) rsadsi(113549) pkcs(1) pkcs7(7) 2 }
 (defvar mm-pkcs7-signed-magic
-  "\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")
+  (concat
+    "0"
+    "\\(\\(\x80\\)"
+    "\\|\\(\x81\\(.\\|\n\\)\\{1\\}\\)"
+    "\\|\\(\x82\\(.\\|\n\\)\\{2\\}\\)"
+    "\\|\\(\x83\\(.\\|\n\\)\\{3\\}\\)"
+    "\\)"
+    "\x06\x09\\*\x86H\x86\xf7\x0d\x01\x07\x02"))
 
 ;;      id-envelopedData OBJECT IDENTIFIER ::= { iso(1) member-body(2)
 ;;          us(840) rsadsi(113549) pkcs(1) pkcs7(7) 3 }
 (defvar mm-pkcs7-enveloped-magic
-  "\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")
+  (concat
+    "0"
+    "\\(\\(\x80\\)"
+    "\\|\\(\x81\\(.\\|\n\\)\\{1\\}\\)"
+    "\\|\\(\x82\\(.\\|\n\\)\\{2\\}\\)"
+    "\\|\\(\x83\\(.\\|\n\\)\\{3\\}\\)"
+    "\\)"
+    "\x06\x09\\*\x86H\x86\xf7\x0d\x01\x07\x03"))
 
 (defun mm-view-pkcs7-get-type (handle)
   (mm-with-unibyte-buffer