* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)