From: yamaoka <yamaoka>
Date: Fri, 16 Apr 1999 00:10:10 +0000 (+0000)
Subject: * (mime-pgp-detect-version): Bug fix -- save restriction before narrowing.
X-Git-Tag: semi-pgpgpg_12~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=59a3fd9bb2d8df718c62dd9f75e1ef0e9fc5cb0b;p=elisp%2Fsemi.git

* (mime-pgp-detect-version): Bug fix -- save restriction before narrowing.
---

diff --git a/ChangeLog b/ChangeLog
index de89efe..da114dd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-04-16  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-pgp.el (mime-pgp-detect-version): Bug fix -- save
+	restriction before narrowing.
+
 1999-04-15  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* mime-pgp.el (mime-add-application/pgp-keys): Use
diff --git a/mime-pgp.el b/mime-pgp.el
index 8525370..573d7b5 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -301,8 +301,11 @@ or \"v\" for choosing a command of PGP 5.0i."
 (defun mime-pgp-detect-version ()
   "Detect PGP version in the buffer. The buffer is expected to be narrowed
 to just an ascii armor."
-  (std11-narrow-to-header)
-  (let ((version (std11-fetch-field "Version")))
+  (let (version)
+    (save-restriction
+      (std11-narrow-to-header)
+      (setq version (std11-fetch-field "Version"))
+      )
     (cond ((not version)
 	   pgp-version)
 	  ((string-match "GnuPG" version)