From: ueno <ueno>
Date: Sat, 15 Jul 2000 10:24:24 +0000 (+0000)
Subject: * README-gnus-bbdb.{ja|en}: Add example setting about
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~169
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e3ba153729adbbd084913b7a814692bb4968ae11;p=elisp%2Fgnus.git-

* README-gnus-bbdb.{ja|en}: Add example setting about
gnus-bbdb-insinuate-message.
(bbdb-auto-notes-hook): Don't use pop.
---

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)