From eda3b75ff915b92c48864dfed2a91bb52aae695c Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 11 Jun 1998 14:25:09 +0000 Subject: [PATCH] (mime-edit-sign-pgp-kazu): Abolish unused local variable. (mime-edit-encrypt-pgp-kazu): Abolish unused local variables. --- mime-edit.el | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index 9c71ef8..5da8260 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -1757,9 +1757,7 @@ Content-Transfer-Encoding: 7bit (let* ((ret (mime-edit-translate-region beg end boundary)) (ctype (car ret)) - (encoding (nth 1 ret)) - (parts (nth 3 ret)) - ) + (encoding (nth 1 ret))) (goto-char beg) (insert (format "Content-Type: %s\n" ctype)) (if encoding @@ -1779,10 +1777,9 @@ Content-Transfer-Encoding: 7bit (defun mime-edit-encrypt-pgp-kazu (beg end boundary) (save-excursion - (let (from recipients header) + (let (recipients header) (let ((ret (mime-edit-make-encrypt-recipient-header))) - (setq from (aref ret 0) - recipients (aref ret 1) + (setq recipients (aref ret 1) header (aref ret 2)) ) (save-restriction @@ -1790,9 +1787,7 @@ Content-Transfer-Encoding: 7bit (let* ((ret (mime-edit-translate-region beg end boundary)) (ctype (car ret)) - (encoding (nth 1 ret)) - (parts (nth 3 ret)) - ) + (encoding (nth 1 ret))) (goto-char beg) (insert header) (insert (format "Content-Type: %s\n" ctype)) -- 1.7.10.4