From: morioka <morioka>
Date: Tue, 10 Feb 1998 07:22:19 +0000 (+0000)
Subject: Merge qgnus-0.23.
X-Git-Tag: gnus-6_7-tomo-199811302358~218
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2162ab5317b5839d32fb74f64aaf04524d6ef122;p=elisp%2Fgnus.git-

Merge qgnus-0.23.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index de18679..c25fa17 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -67,13 +67,6 @@ the group.")
 (defvar gnus-add-to-list nil
   "*If non-nil, add a `to-list' parameter automatically.")
 
-(defvar gnus-sent-message-ids-file
-  (nnheader-concat gnus-directory "Sent-Message-IDs")
-  "File where Gnus saves a cache of sent message ids.")
-
-(defvar gnus-sent-message-ids-length 1000
-  "The number of sent Message-IDs to save.")
-
 (defvar gnus-crosspost-complaint
   "Hi,
 
@@ -485,36 +478,6 @@ If SILENT, don't prompt the user."
      ;; Use the normal select method.
      (t gnus-select-method))))
 
-;;;
-;;; Check whether the message has been sent already.
-;;;
-
-(defvar gnus-inews-sent-ids nil)
-
-(defun gnus-inews-reject-message ()
-  "Check whether this message has already been sent."
-  (when gnus-sent-message-ids-file
-    (let ((message-id (save-restriction (message-narrow-to-headers)
-					(mail-fetch-field "message-id")))
-	  end)
-      (when message-id
-	(unless gnus-inews-sent-ids
-	  (ignore-errors
-	    (load t t t)))
-	(if (member message-id gnus-inews-sent-ids)
-	    ;; Reject this message.
-	    (not (gnus-yes-or-no-p
-		  (format "Message %s already sent.  Send anyway? "
-			  message-id)))
-	  (push message-id gnus-inews-sent-ids)
-	  ;; Chop off the last Message-IDs.
-	  (when (setq end (nthcdr gnus-sent-message-ids-length
-				  gnus-inews-sent-ids))
-	    (setcdr end nil))
-	  (nnheader-temp-write gnus-sent-message-ids-file
-	    (gnus-prin1 `(setq gnus-inews-sent-ids ',gnus-inews-sent-ids)))
-	  nil)))))
-
 
 
 ;; Dummy to avoid byte-compile warning.
@@ -1036,11 +999,6 @@ this is a reply."
 		(insert " ")))
 	    (insert "\n")))))))
 
-(gnus-add-shutdown 'gnus-inews-close 'gnus)
-
-(defun gnus-inews-close ()
-  (setq gnus-inews-sent-ids nil))
-
 ;;; Allow redefinition of functions.
 
 (gnus-ems-redefine)