From: yamaoka <yamaoka>
Date: Mon, 30 Jul 2001 22:49:05 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_4-06-quimby~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d7cb94b7c89dbb98c2f418c01d0f2b4ba313e58;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

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  <jas@extundo.com>
+
+	* mml-smime.el (mml-smime-sign, mml-smime-encrypt): Goto end of
+	buffer when done.
+
 2001-07-30  Simon Josefsson  <jas@extundo.com>
 
 	* 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