From fb63d3db3ac184f546ded7cd69a0e629bfbfbf93 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 25 Apr 2002 16:36:03 +0000 Subject: [PATCH] * lsdb.el (lsdb-offer-save): Rename from lsdb-gnus-offer-save. --- lsdb.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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. -- 1.7.10.4