]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix two minor Gnus typos
authorPaul Eggert <eggert@cs.ucla.edu>
Sat, 21 Oct 2017 01:12:01 +0000 (18:12 -0700)
committerPaul Eggert <eggert@cs.ucla.edu>
Sat, 21 Oct 2017 01:12:21 +0000 (18:12 -0700)
* lisp/gnus/gnus-sum.el (gnus-summary-import-article):
Remove unused local, and fix use of local that was never assigned to.

lisp/gnus/gnus-sum.el

index 48571096cc7a8d0976c9be86f952a678bdeb3e7a..79d38f1bfe3de91e052d421725d003ee255be7ad 100644 (file)
@@ -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)