[gnus git] branch master updated: n0-17-344-g92e9c62 =1= Bugfix: message.el (message-signed-or-encrypted-p): Exclude header when checking if there is signed or encrypted body in text/plain message.

       via  92e9c620b48a080bda4fc801e3f63378437ed78b (commit)
      from  6ab52c14d994e773705729c9b9d0b75e3aba2db0 (commit)


- Log -----------------------------------------------------------------
commit 92e9c620b48a080bda4fc801e3f63378437ed78b
Author: Katsumi Yamaoka <[email protected]>
Date:   Tue Oct 11 05:49:46 2011 +0000

    Bugfix: message.el (message-signed-or-encrypted-p): Exclude header when checking if there is signed or encrypted body in text/plain message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fee6949..83243e7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-11  Katsumi Yamaoka  <[email protected]>
+
+	* message.el (message-signed-or-encrypted-p): Exclude header when
+	checking if there is signed or encrypted body in text/plain message.
+
 2011-10-09  Andreas Schwab  <[email protected]>
 
 	* html2text.el (html2text-get-attr): Correctly handle attribute values
diff --git a/lisp/message.el b/lisp/message.el
index c6ea7ad..7f56ed6 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7473,14 +7473,16 @@ is for the internal use."
       (with-temp-buffer
 	(insert-buffer-substring cur)
 	(when (setq handles (mm-dissect-buffer t t))
-	  (if (and (prog1
-		       (bufferp (car handles))
-		     (mm-destroy-parts handles))
+	  (if (and (bufferp (car handles))
 		   (equal (mm-handle-media-type handles) "text/plain"))
 	      (progn
+		(erase-buffer)
+		(insert-buffer-substring (car handles))
 		(mm-decode-content-transfer-encoding
 		 (mm-handle-encoding handles))
+		(mm-destroy-parts handles)
 		(setq handles (mm-uu-dissect)))
+	    (mm-destroy-parts handles)
 	    (setq handles nil))))))
   (when handles
     (prog1

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    5 +++++
 lisp/message.el |    8 +++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project