From 4d7cb94b7c89dbb98c2f418c01d0f2b4ba313e58 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 30 Jul 2001 22:49:05 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/mml-smime.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2336144..cbca832 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-07-31 Simon Josefsson + + * mml-smime.el (mml-smime-sign, mml-smime-encrypt): Goto end of + buffer when done. + 2001-07-30 Simon Josefsson * smime.el (smime-call-openssl-region): Revert previous change, diff --git a/lisp/mml-smime.el b/lisp/mml-smime.el index 8c4c709..ac87492 100644 --- a/lisp/mml-smime.el +++ b/lisp/mml-smime.el @@ -32,7 +32,8 @@ (when (null smime-keys) (customize-variable 'smime-keys) (error "No S/MIME keys configured, use customize to add your key")) - (smime-sign-buffer (cdr (assq 'keyfile cont)))) + (smime-sign-buffer (cdr (assq 'keyfile cont))) + (goto-char (point-max))) (defun mml-smime-encrypt (cont) (let (certnames certfiles tmp file tmpfiles) @@ -56,7 +57,8 @@ t) (while (setq tmp (pop tmpfiles)) (delete-file tmp)) - nil))) + nil)) + (goto-char (point-max))) (defun mml-smime-sign-query () ;; query information (what certificate) from user when MML tag is -- 1.7.10.4