;;; nnwarchive.el --- interfacing with web archives
-;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2003 Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: news egroups mail-archive
(require 'gnus-bcklg)
(require 'nnmail)
(require 'mm-util)
-(require 'mail-source)
(require 'mm-url)
(nnoo-declare nnwarchive)
"Where nnwarchive will save its files.")
(defvoo nnwarchive-type nil
- "The type of nnwarchive.")
+ "The type of nnwarchive.")
(defvoo nnwarchive-address ""
"The address of nnwarchive.")
(set-buffer nntp-server-buffer)
(erase-buffer)
(let (header)
- (dolist (art articles)
- (if (setq header (assq art nnwarchive-headers))
- (nnheader-insert-nov (cdr header))))))
+ (dolist (art articles)
+ (if (setq header (assq art nnwarchive-headers))
+ (nnheader-insert-nov (cdr header))))))
(let ((elem (assoc group nnwarchive-headers-cache)))
(if elem
(setcdr elem nnwarchive-headers)
(setq nnwarchive-login
(or nnwarchive-login
(read-string
- (format "Login at %s: " server)
- user-mail-address)))
+ (format "Login at %s: " server)
+ user-mail-address)))
(setq nnwarchive-passwd
(or nnwarchive-passwd
- (mail-source-read-passwd
+ (read-passwd
(format "Password for %s at %s: "
nnwarchive-login server)))))
(unless nnwarchive-groups
(let (p refs url mime e
from subject date id
done
- (case-fold-serch t))
+ (case-fold-search t))
(save-restriction
(goto-char (point-min))
(when (search-forward "X-Head-End" nil t)