From: Paul Eggert Date: Sat, 21 Oct 2017 01:12:01 +0000 (-0700) Subject: Fix two minor Gnus typos X-Git-Tag: emacs-26.0.91~508 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e655946ce0946b7081b037fa50be4d3fb1609b0b;p=emacs.git Fix two minor Gnus typos * lisp/gnus/gnus-sum.el (gnus-summary-import-article): Remove unused local, and fix use of local that was never assigned to. --- 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)