[Emacs-diffs] /srv/bzr/emacs/trunk r112668: lisp/gnus/mml2015.el (mml2015-epg-sign): Make sure to insert newline after the signed data to conform the standard (Bug#14232)

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 112668
author: Daiki Ueno <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2013-05-22 13:18:40 +0000
message:
  lisp/gnus/mml2015.el (mml2015-epg-sign): Make sure to insert newline after 
the signed data to conform the standard (Bug#14232)
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mml2015.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-05-20 22:37:06 +0000
+++ b/lisp/gnus/ChangeLog       2013-05-22 13:18:40 +0000
@@ -1,3 +1,8 @@
+2013-05-22  Daiki Ueno  <address@hidden>
+
+       * mml2015.el (mml2015-epg-sign): Make sure to insert newline after the
+       signed data to conform the standard.  (Bug#14232)
+
 2013-05-20  Adam Sjøgren  <address@hidden>
 
        * gnus-spec.el (gnus-parse-complex-format): Use unicode escape for left

=== modified file 'lisp/gnus/mml2015.el'
--- a/lisp/gnus/mml2015.el      2013-05-09 06:46:51 +0000
+++ b/lisp/gnus/mml2015.el      2013-05-22 13:18:40 +0000
@@ -1085,6 +1085,10 @@
        (epg-context-set-passphrase-callback
         context
         #'mml2015-epg-passphrase-callback))
+    ;; Signed data must end with a newline (RFC 3156, 5).
+    (goto-char (point-max))
+    (unless (bolp)
+      (insert "\n"))
     (condition-case error
        (setq signature (epg-sign-string context (buffer-string) t)
              mml2015-epg-secret-key-id-list nil)