From: yoichi <yoichi>
Date: Sat, 28 Aug 2004 15:30:06 +0000 (+0000)
Subject: * pgg-pgp5.el (pgg-scheme-verify-region): `let*' -> `let'.
X-Git-Tag: semi-1_14-wl-root~38
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6c9e214812e69707125958677b92bffbe7d508bf;p=elisp%2Fsemi.git

* pgg-pgp5.el (pgg-scheme-verify-region): `let*' -> `let'.
* pgg-pgp.el (pgg-scheme-verify-region): Ditto.
* mime-edit.el (mime-edit-split-and-send): Ditto.
* mime-play.el (mime-store-message/partial-piece): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index b774069..e1bd01d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2004-08-28  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* pgg-pgp5.el (pgg-scheme-verify-region): `let*' -> `let'.
+	* pgg-pgp.el (pgg-scheme-verify-region): Ditto.
+	* mime-edit.el (mime-edit-split-and-send): Ditto.
+	* mime-play.el (mime-store-message/partial-piece): Ditto.
+
 2004-08-03  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* mime-edit.el (mime-edit-mime-version-field-for-message/partial):
diff --git a/mime-edit.el b/mime-edit.el
index 55bc1d9..7c6c134 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -2631,10 +2631,10 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 	    (or (cdr (assq major-mode mime-edit-message-max-lines-alist))
 		mime-edit-message-default-max-lines))
       )
-  (let* ((separator mail-header-separator)
-	 (id (concat "\""
-		     (replace-space-with-underline (current-time-string))
-		     "@" (system-name) "\"")))
+  (let ((separator mail-header-separator)
+	(id (concat "\""
+		    (replace-space-with-underline (current-time-string))
+		    "@" (system-name) "\"")))
     (run-hooks 'mime-edit-before-split-hook)
     (let ((the-buf (current-buffer))
 	  (copy-buf (get-buffer-create " *Original Message*"))
diff --git a/mime-play.el b/mime-play.el
index 59c8bb6..c537175 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -379,15 +379,15 @@ occurs."
 	(set-default-file-modes orig-modes)))))
 
 (defun mime-store-message/partial-piece (entity cal)
-  (let* ((root-dir
-	  (expand-file-name
-	   (concat "m-prts-" (user-login-name)) temporary-file-directory))
-	 (id (cdr (assoc "id" cal)))
-	 (number (cdr (assoc "number" cal)))
-	 (total (cdr (assoc "total" cal)))
-	 file
-	 (mother (current-buffer))
-	 (orig-modes (default-file-modes)))
+  (let ((root-dir
+	 (expand-file-name
+	  (concat "m-prts-" (user-login-name)) temporary-file-directory))
+	(id (cdr (assoc "id" cal)))
+	(number (cdr (assoc "number" cal)))
+	(total (cdr (assoc "total" cal)))
+	file
+	(mother (current-buffer))
+	(orig-modes (default-file-modes)))
     (mime-require-safe-directory root-dir)
     (or (file-exists-p root-dir)
 	(unwind-protect
diff --git a/pgg-pgp.el b/pgg-pgp.el
index d34445b..a99bdbd 100644
--- a/pgg-pgp.el
+++ b/pgg-pgp.el
@@ -190,9 +190,9 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
 
 (luna-define-method pgg-scheme-verify-region ((scheme pgg-scheme-pgp)
 					      start end &optional signature)
-  (let* ((orig-file (make-temp-file "pgg"))
-	 (args '("+verbose=1" "+batchmode" "+language=us"))
-	 (orig-mode (default-file-modes)))
+  (let ((orig-file (make-temp-file "pgg"))
+	(args '("+verbose=1" "+batchmode" "+language=us"))
+	(orig-mode (default-file-modes)))
     (unwind-protect
 	(progn
 	  (set-default-file-modes 448)
diff --git a/pgg-pgp5.el b/pgg-pgp5.el
index 515ca5a..df2a969 100644
--- a/pgg-pgp5.el
+++ b/pgg-pgp5.el
@@ -202,9 +202,9 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
 
 (luna-define-method pgg-scheme-verify-region ((scheme pgg-scheme-pgp5)
 					      start end &optional signature)
-  (let* ((orig-file (make-temp-file "pgg"))
-	 (args '("+verbose=1" "+batchmode=1" "+language=us"))
-	 (orig-mode (default-file-modes)))
+  (let ((orig-file (make-temp-file "pgg"))
+	(args '("+verbose=1" "+batchmode=1" "+language=us"))
+	(orig-mode (default-file-modes)))
     (unwind-protect
 	(progn
 	  (set-default-file-modes 448)