From e3ba153729adbbd084913b7a814692bb4968ae11 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sat, 15 Jul 2000 10:24:24 +0000
Subject: [PATCH] * README-gnus-bbdb.{ja|en}: Add example setting about
 gnus-bbdb-insinuate-message. (bbdb-auto-notes-hook): Don't
 use pop.

---
 README-gnus-bbdb.en |    6 ++++--
 README-gnus-bbdb.ja |    6 ++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/README-gnus-bbdb.en b/README-gnus-bbdb.en
index b99d805..287636e 100644
--- a/README-gnus-bbdb.en
+++ b/README-gnus-bbdb.en
@@ -28,6 +28,7 @@ of this file should be applied. If not, it might not.
 (require 'gnus-bbdb)
 (bbdb-initialize 'sc)  ;; 'Gnus or 'gnus should be deleted.
 (add-hook 'gnus-startup-hook 'gnus-bbdb-insinuate)
+(add-hook 'message-setup-hook 'gnus-bbdb-insinuate-message)
 
  If you would like to decode the quoted encoded words forcibly, even
 though FLIM does not decode them, put the following lines in your
@@ -44,7 +45,7 @@ though FLIM does not decode them, put the following lines in your
 ------ cut here ------ cut here ------ cut here ------ cut here ------
 --- bbdb-hooks.el~	Tue Oct 13 03:13:50 1998
 +++ bbdb-hooks.el	Fri Oct 30 17:05:53 1998
-@@ -352,12 +352,22 @@
+@@ -352,12 +352,23 @@
  	(marker (bbdb-header-start))
  	field pairs fieldval  ; do all bindings here for speed
  	regexp string notes-field-name notes
@@ -60,8 +61,9 @@ though FLIM does not decode them, put the following lines in your
 +	    function)
 +	(or (progn
 +	      (while (and (not extract-field-value-funtion)
-+			  (setq function (pop function-list)))
++			  (setq function (car function-list)))
 +		(setq extract-field-value-funtion (funcall function)))
++		      function-list (cdr function-list)))
 +	      extract-field-value-funtion)
 +	    (progn
 +	      (widen)
diff --git a/README-gnus-bbdb.ja b/README-gnus-bbdb.ja
index 393256e..f9f99bf 100644
--- a/README-gnus-bbdb.ja
+++ b/README-gnus-bbdb.ja
@@ -29,6 +29,7 @@ bbdb-auto-notes-hook $B$r;HMQ$7$F$$$J$$J}$K$OITMW$G$9$,!";HMQ$7$F$$$kJ}(B
 (require 'gnus-bbdb)
 (bbdb-initialize 'sc)  ;; 'gnus / 'Gnus $B$O$O$:$7$F$/$@$5$$!#(B
 (add-hook 'gnus-startup-hook 'gnus-bbdb-insinuate)
+(add-hook 'message-setup-hook 'gnus-bbdb-insinuate-message)
 
 FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$;$s$,!"$=$l(B
 $B$r6/@)E*$K(B decode $B$7$?$$>l9g$K$O!"<!$N@_Dj$r2C$($F$/$@$5$$!#(B
@@ -44,7 +45,7 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$
 ------ cut here ------ cut here ------ cut here ------ cut here ------
 --- bbdb-hooks.el~	Tue Oct 13 03:13:50 1998
 +++ bbdb-hooks.el	Fri Oct 30 17:05:53 1998
-@@ -352,12 +352,22 @@
+@@ -352,12 +352,23 @@
  	(marker (bbdb-header-start))
  	field pairs fieldval  ; do all bindings here for speed
  	regexp string notes-field-name notes
@@ -60,8 +61,9 @@ FLIM $B$G$O(B quote $B$5$l$?(B eword encoded word $B$O(B decode $B$5$l$^$
 +	    function)
 +	(or (progn
 +	      (while (and (not extract-field-value-funtion)
-+			  (setq function (pop function-list)))
++			  (setq function (car function-list)))
 +		(setq extract-field-value-funtion (funcall function)))
++		      function-list (cdr function-list)))
 +	      extract-field-value-funtion)
 +	    (progn
 +	      (widen)
-- 
1.7.10.4