From 2e89ca5c558707277c183c092e0d5d011971ee79 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 9 Nov 2000 01:30:21 +0000 Subject: [PATCH] Synch with Gnus. --- lisp/ChangeLog | 5 +++++ lisp/mml2015.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e950db1..2fb269c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-11-08 19:58:58 ShengHuo ZHU + + * mml2015.el (mml2015-gpg-decrypt-1): + (mml2015-gpg-verify): buffer-string has no argument in Emacs. + 2000-11-08 16:37:02 ShengHuo ZHU * gnus-cache.el (gnus-cache-generate-nov-databases): Reopen cache. diff --git a/lisp/mml2015.el b/lisp/mml2015.el index 973d50f..a571748 100644 --- a/lisp/mml2015.el +++ b/lisp/mml2015.el @@ -273,7 +273,8 @@ '(t) (mm-set-handle-multipart-parameter mm-security-handle 'gnus-details - (buffer-string mml2015-result-buffer)) + (with-current-buffer mml2015-result-buffer + (buffer-string))) nil)))) (defun mml2015-gpg-decrypt (handle ctl) @@ -313,7 +314,8 @@ (unless (gpg-verify message signature mml2015-result-buffer) (mm-set-handle-multipart-parameter mm-security-handle 'gnus-details - (buffer-string mml2015-result-buffer)) + (with-current-buffer mml2015-result-buffer + (buffer-string))) (mm-set-handle-multipart-parameter mm-security-handle 'gnus-info "Failed") (throw 'error handle)))) -- 1.7.10.4