(mml2015-pgg-clear-verify, mml2015-epg-clear-verify): Replace

 encode-coding-string with mm-encode-coding-string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4afdc7f..9391c55 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-30  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mml2015.el (mml2015-pgg-clear-verify, mml2015-epg-clear-verify):
+       Replace encode-coding-string with mm-encode-coding-string.
+
 2006-11-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * nneething.el (nneething-decode-file-name): Replace

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 5339c84..14f095c 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -834,7 +834,7 @@ Whether the passphrase is cached at all is controlled by
     (if (condition-case err
            (prog1
                (mm-with-unibyte-buffer
-                 (insert (encode-coding-string text coding-system))
+                 (insert (mm-encode-coding-string text coding-system))
                  (pgg-verify-region (point-min) (point-max) nil t))
              (goto-char (point-min))
              (while (search-forward "\r\n" nil t)
@@ -1103,8 +1103,8 @@ Whether the passphrase is cached at all is controlled by
 (defun mml2015-epg-clear-verify ()
   (let ((inhibit-redisplay t)
        (context (epg-make-context))
-       (signature (encode-coding-string (buffer-string)
-                                        buffer-file-coding-system))
+       (signature (mm-encode-coding-string (buffer-string)
+                                           buffer-file-coding-system))
        plain)
     (condition-case error
        (setq plain (epg-verify-string context signature))