From a4139ca5c42e0eae82b2301d3f048dfaac4c216c Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 14 Apr 2004 23:45:33 +0000 Subject: [PATCH] mel-u.el Fix. --- ChangeLog | 2 +- mel-u.el | 6 ++---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index bbb00c4..86b026f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,7 @@ 2004-04-13 Kenichi Okada * 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 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 -- 1.7.10.4