* lisp/gnus/gnus-sum.el (gnus-summary-import-article):
Remove unused local, and fix use of local that was never assigned to.
"Import an arbitrary file into a mail newsgroup."
(interactive "fImport file: \nP")
(let ((group gnus-newsgroup-name)
- (now (current-time))
atts lines group-art)
(unless (gnus-check-backend-function 'request-accept-article group)
(error "%s does not support article importing" group))
(goto-char (point-min))
(unless (re-search-forward "^date:" nil t)
(goto-char (point-max))
+ (setq atts (file-attributes file))
(insert "Date: " (message-make-date (nth 5 atts)) "\n")))
;; This doesn't look like an article, so we fudge some headers.
(setq atts (file-attributes file)