From 6c9e214812e69707125958677b92bffbe7d508bf Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 28 Aug 2004 15:30:06 +0000 Subject: [PATCH] * 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. --- ChangeLog | 7 +++++++ mime-edit.el | 8 ++++---- mime-play.el | 18 +++++++++--------- pgg-pgp.el | 6 +++--- pgg-pgp5.el | 6 +++--- 5 files changed, 26 insertions(+), 19 deletions(-) diff --git a/ChangeLog b/ChangeLog index b774069..e1bd01d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2004-08-28 Yoichi NAKAYAMA + + * 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 * 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) -- 1.7.10.4