From 59a3fd9bb2d8df718c62dd9f75e1ef0e9fc5cb0b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 16 Apr 1999 00:10:10 +0000 Subject: [PATCH] * (mime-pgp-detect-version): Bug fix -- save restriction before narrowing. --- ChangeLog | 5 +++++ mime-pgp.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index de89efe..da114dd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-04-16 Katsumi Yamaoka + + * mime-pgp.el (mime-pgp-detect-version): Bug fix -- save + restriction before narrowing. + 1999-04-15 Katsumi Yamaoka * 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) -- 1.7.10.4