diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 48571096cc7..79d38f1bfe3 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -10294,7 +10294,6 @@ latter case, they will be copied into the relevant groups." "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)) @@ -10313,6 +10312,7 @@ latter case, they will be copied into the relevant groups." (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) |