From: morioka <morioka>
Date: Sat, 14 Mar 1998 13:28:37 +0000 (+0000)
Subject: (mime-method-to-verify-application/pgp-signature): Delete unnecessary
X-Git-Tag: semi-1_1_0~44
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=63474513185ee18949a99cea44261c3cf906b28d;p=elisp%2Fsemi.git

(mime-method-to-verify-application/pgp-signature): Delete unnecessary
`save-excursion'.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index 0eb5ae8..ab24633 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -204,46 +204,45 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
       (kill-buffer (current-buffer))
       )
     (save-excursion (mime-show-echo-buffer))
-    (save-excursion
-      (let ((p-min (save-excursion
-		     (goto-char start)
-		     (and (search-forward "\n\n")
-			  (match-end 0))
-		     )))
-	(mime-write-decoded-region p-min end sig-file encoding)
-	)
-      (or (mime-pgp-check-signature mime-echo-buffer-name orig-file)
-	  (let (pgp-id)
-	    (save-excursion
-	      (set-buffer mime-echo-buffer-name)
-	      (goto-char (point-min))
-	      (let ((regexp (cdr (assq (or mime-pgp-default-language 'en)
-				       mime-pgp-key-expected-regexp-alist))))
-		(cond ((not (stringp regexp))
-		       (message
-			"Please specify right regexp for specified language")
-		       )
-		      ((re-search-forward regexp nil t)
-		       (setq pgp-id
-			     (concat "0x" (buffer-substring-no-properties
-					   (match-beginning 1)
-					   (match-end 1))))
-		       ))))
-	    (if (and pgp-id
-		     (y-or-n-p
-		      (format "Key %s not found; attempt to fetch? " pgp-id))
+    (let ((p-min (save-excursion
+		   (goto-char start)
+		   (and (search-forward "\n\n")
+			(match-end 0))
+		   )))
+      (mime-write-decoded-region p-min end sig-file encoding)
+      )
+    (or (mime-pgp-check-signature mime-echo-buffer-name orig-file)
+	(let (pgp-id)
+	  (save-excursion
+	    (set-buffer mime-echo-buffer-name)
+	    (goto-char (point-min))
+	    (let ((regexp (cdr (assq (or mime-pgp-default-language 'en)
+				     mime-pgp-key-expected-regexp-alist))))
+	      (cond ((not (stringp regexp))
+		     (message
+		      "Please specify right regexp for specified language")
 		     )
-		(progn
-		  (funcall (pgp-function 'fetch-key) (cons nil pgp-id))
-		  (mime-pgp-check-signature mime-echo-buffer-name orig-file)
-		  ))
-	    ))
-      (let ((other-window-scroll-buffer mime-echo-buffer-name))
-	(scroll-other-window 8)
-	)
-      (delete-file orig-file)
-      (delete-file sig-file)
-      )))
+		    ((re-search-forward regexp nil t)
+		     (setq pgp-id
+			   (concat "0x" (buffer-substring-no-properties
+					 (match-beginning 1)
+					 (match-end 1))))
+		     ))))
+	  (if (and pgp-id
+		   (y-or-n-p
+		    (format "Key %s not found; attempt to fetch? " pgp-id))
+		   )
+	      (progn
+		(funcall (pgp-function 'fetch-key) (cons nil pgp-id))
+		(mime-pgp-check-signature mime-echo-buffer-name orig-file)
+		))
+	  ))
+    (let ((other-window-scroll-buffer mime-echo-buffer-name))
+      (scroll-other-window 8)
+      )
+    (delete-file orig-file)
+    (delete-file sig-file)
+    ))
 
 (set-atype 'mime-acting-condition
 	   '((type . application)(subtype . pgp-signature)