From: keiichi <keiichi>
Date: Thu, 23 Dec 1999 11:20:04 +0000 (+0000)
Subject: (gnus-bbdb/update-record): Fix timing of `save-restriction'.
X-Git-Tag: nana-gnus-7_1_0_16~77
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=194779b7ca46b1abb45a4c15832e03848c768518;p=elisp%2Fgnus.git-

(gnus-bbdb/update-record): Fix timing of `save-restriction'.
---

diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el
index be73903..181f8db 100644
--- a/lisp/gnus-bbdb.el
+++ b/lisp/gnus-bbdb.el
@@ -54,9 +54,9 @@ the user confirms the creation."
   (if bbdb-use-pop-up
       (gnus-bbdb/pop-up-bbdb-buffer offer-to-create)
     (save-excursion
-      (save-restriction
-	(let (from)
-	  (set-buffer gnus-original-article-buffer)
+      (let (from)
+	(set-buffer gnus-original-article-buffer)
+	(save-restriction
 	  (widen)
 	  (narrow-to-region (point-min)
 			    (progn (goto-char (point-min))
@@ -80,7 +80,7 @@ the user confirms the creation."
 					(or (bbdb-invoke-hook-for-value
 					     bbdb/news-auto-create-p)
 					    offer-to-create)
-					offer-to-create)))))))
+					offer-to-create)))))) )
 
 ;;;###autoload
 (defun gnus-bbdb/annotate-sender (string &optional replace)