From: okada <okada>
Date: Wed, 14 Apr 2004 23:45:33 +0000 (+0000)
Subject: mel-u.el Fix.
X-Git-Tag: flim-1_14_7~16
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=commitdiff_plain;h=a4139ca5c42e0eae82b2301d3f048dfaac4c216c

mel-u.el Fix.
---

diff --git a/ChangeLog b/ChangeLog
index bbb00c4..86b026f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,7 @@
 2004-04-13  Kenichi Okada  <okada@opaopa.org>
 
 	* mel-u.el (mime-write-decoded-region): Use make-temp-file.
-	(mime-write-decoded-region): Ditto.
+	(uuencode-external-decode-region): Ditto.
 
 2004-04-12  Kenichi Okada  <okada@opaopa.org>
 
diff --git a/mel-u.el b/mel-u.el
index 9e37489..abd6f17 100644
--- a/mel-u.el
+++ b/mel-u.el
@@ -69,8 +69,7 @@ This function uses external uuencode decoder which is specified by
 variable `uuencode-external-decoder'."
   (interactive "*r")
   (save-excursion
-    (let ((the-buf (current-buffer))
-	  (filename (make-temp-file "x-uue")))
+    (let ((filename (make-temp-file "x-uue")))
       (save-excursion
 	(save-restriction
 	  (set-mark end)
@@ -134,8 +133,7 @@ variable `uuencode-external-encoder'."
 START and END are buffer positions."
   (interactive "*r\nFWrite decoded region to file: ")
   (save-excursion
-    (let ((the-buf (current-buffer))
-	  (clone-buf (clone-buffer " *x-uue*"))
+    (let ((clone-buf (clone-buffer " *x-uue*"))
 	  (file (make-temp-file "x-uue")))
       (save-excursion
 	(save-restriction