From: ueno <ueno>
Date: Thu, 25 Apr 2002 16:36:03 +0000 (+0000)
Subject: * lsdb.el (lsdb-offer-save): Rename from lsdb-gnus-offer-save.
X-Git-Tag: lsdb-0_1~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fb63d3db3ac184f546ded7cd69a0e629bfbfbf93;p=elisp%2Flsdb.git

* lsdb.el (lsdb-offer-save): Rename from lsdb-gnus-offer-save.
---

diff --git a/lsdb.el b/lsdb.el
index 3521ca1..5516632 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -260,6 +260,11 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
        hash-table)
       (insert "))"))))
 
+(defun lsdb-offer-save ()
+  (if (and lsdb-hash-table-is-dirty
+	   (y-or-n-p "Save the LSDB now?"))
+      (lsdb-save-file lsdb-file lsdb-hash-table)))
+
 ;;;_. Mail Header Extraction
 (defun lsdb-fetch-field-bodies (entity regexp)
   (save-excursion
@@ -484,7 +489,7 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
 (defun lsdb-gnus-insinuate ()
   "Call this function to hook LSDB into Semi-gnus."
   (add-hook 'gnus-article-prepare-hook 'lsdb-gnus-update-record)
-  (add-hook 'gnus-save-newsrc-hook 'lsdb-gnus-offer-save))
+  (add-hook 'gnus-save-newsrc-hook 'lsdb-offer-save))
 
 (defvar message-mode-map)
 (defun lsdb-gnus-insinuate-message ()
@@ -497,11 +502,6 @@ This is the current number of slots in HASH-TABLE, whether occupied or not."
     (when records
       (lsdb-display-record (car records)))))
 
-(defun lsdb-gnus-offer-save ()
-  (if (and lsdb-hash-table-is-dirty
-	   (y-or-n-p "Save the LSDB now?"))
-      (lsdb-save-file lsdb-file lsdb-hash-table)))
-
 (provide 'lsdb)
 
 ;;;_* Local emacs vars.