delete spam-get-article-as-filename

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8a03c9..0df0c92 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -13,6 +13,8 @@
        * gnus-start.el (gnus-backup-startup-file): Fixed custom type.
 
 2003-02-24  Ted Zlatanov <tzz@lifelogs.com>
+       * spam.el: disabled spam-get-article-as-filename
+
        From Michael Shields  <shields@msrl.com>
 
        * gnus-group.el (gnus-group-is-exiting-without-update-p): New.

diff --git a/lisp/spam.el b/lisp/spam.el
index f237429..c56310b 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -513,14 +513,15 @@ your main source of newsgroup names."
        (setq article-buffer (get-buffer gnus-article-buffer))))
     article-buffer))
 
-(defun spam-get-article-as-filename (article)
-  (let ((article-filename))
-    (when (numberp article)
-      (nnml-possibly-change-directory (gnus-group-real-name gnus-newsgroup-name))
-      (setq article-filename (expand-file-name (int-to-string article) nnml-current-directory)))
-    (if (file-exists-p article-filename)
-       article-filename
-      nil)))
+;; disabled for now
+;; (defun spam-get-article-as-filename (article)
+;;   (let ((article-filename))
+;;     (when (numberp article)
+;;       (nnml-possibly-change-directory (gnus-group-real-name gnus-newsgroup-name))
+;;       (setq article-filename (expand-file-name (int-to-string article) nnml-current-directory)))
+;;     (if (file-exists-p article-filename)
+;;     article-filename
+;;       nil)))
 
 (defun spam-fetch-field-from-fast (article)
   "Fetch the `from' field quickly, using the internal gnus-data-list function"