summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKatsumi Yamaoka <yamaoka@jpl.org>2011-10-11 05:51:09 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2011-10-11 05:51:09 +0000
commitf5b71bc0d6de35ff97571d7b933b8ba8e8bbb1bb (patch)
tree561dacae381f2968ceefdbe4e91b6db76a2312ca /lisp
parent93e616fdc5f4ef9161570028ed4329128db09777 (diff)
downloademacs-f5b71bc0d6de35ff97571d7b933b8ba8e8bbb1bb.tar.gz
emacs-f5b71bc0d6de35ff97571d7b933b8ba8e8bbb1bb.tar.bz2
emacs-f5b71bc0d6de35ff97571d7b933b8ba8e8bbb1bb.zip
Bugfix: message.el (message-signed-or-encrypted-p): Exclude header when checking if there is signed or encrypted body in text/plain message.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/gnus/ChangeLog5
-rw-r--r--lisp/gnus/message.el8
2 files changed, 10 insertions, 3 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9c76635fb63..a4c2d97403b 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-11 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * 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 <schwab@linux-m68k.org>
* html2text.el (html2text-get-attr): Correctly handle attribute values
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 7203ef69a14..948892d1e13 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -7429,14 +7429,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